[Помогите!] Цикл

[Number/1/]

у меня возникла такая проблема , в цикле происходит парсинг данных из файла , для первого цикла нужно выташить данные из первой сточки ,а во втором цикле чтобы из второй строчки данные вытягивались , как бы это реализовать?

[VeTaL_UA]

Цитата: Сообщение от Number/1/ для первого цикла нужно выташить данные из первой сточки

Цитата: Сообщение от Number/1/ во втором цикле чтобы из второй строчки данные вытягивались

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]

Эм...

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;

Собственно зачем лишние сложности?