у меня возникла такая проблема , в цикле происходит парсинг данных из файла , для первого цикла нужно выташить данные из первой сточки ,а во втором цикле чтобы из второй строчки данные вытягивались , как бы это реализовать?
VeTaL_UA
27.10.2011, 21:39
для первого цикла нужно выташить данные из первой сточки
во втором цикле чтобы из второй строчки данные вытягивались
var
s:TStringList;
str1,str2:String;
begin
s:=TStringList.Create;
...
Ну так загрузи файл в TStringList:
s.LoadFromFile('blabla.txt');
Потом загрузи первую строку файла в str1, а вторую в str2:
str1:=s.Strings[1];
str2:=s.Strings[2];
Ну а потом уже парси данные из этих переменных...
Dinmaite
27.10.2011, 23:17
Эм...
procedure _name (Filename:string);
var
s:string;
f:TextFile;
begin
assignfile(f, Filename);
reset(f);
while not eof(f) do
begin
readln(f,s);
// тут парсим строку s
end;
closefile(f);
end;