чтение файла по строчно

[glazik]

Доброго времени суток,

Столкнулся с такой проблемой:

begin

     x:=strtoint(g1.edit1.text);
     y:=strtoint(g1.edit2.text);

     for j:=1 to x do
     begin
            assignFile(F,'c:\file.txt');
            reset(f);
            Readln(F,s);
            CloseFile(F);
            mass2[j]:=Tlabel.create(g3);
            mass2[j].parent:=g3;
            mass2[j].font.size:=20;
            mass2[j].top:=80;
            mass2[j].Width:=50;
            mass2[j].Caption:=inttostr(j)+s;
            mass2[j].top:=100+j*50;
     end;

после выполнения данного куска программы, создаются поля, но в каждом поле записана только первая строка из файла, хотя в файле имеются j строк. Добавление while not eof(f) do программа выдает ошибку i/o error 104...

[ArtGrek]

а когда пишеш, не вариант подумать немного головои?
просто порочти код, вернее деиствия последовательно, хотябы 2-3 цикла
и поимеш что фаил не надо асоциирывать при каждом прочтении цикла
видимо и в while not eof(f) do у тебя также было

[glazik]

да я тока 3 день программирую, опираюсь максимум на школьную программу))))) так что не судите строго.... по проще можешь написать?? А понял асиигн вынести из цикла))

[Dimo4ka]

я конеш знал делфи и паскаль похожи.... но чтоб на столько....

[glazik]

Да, только вынести ассигн не приводит к нормальному функционированию программы...

[Serge_Bliznykov]

Да, только вынести ассигн не приводит к нормальному функционированию программы...

ну и reset(f); выносите до цикла!
Это же каждый раз в цикле открывает файл на чтение (и, следовательно, читается каждый раз первая строчка файла)!

я уже молчу о том, что если в файле будет больше строк, чем X - то они просто не прочитаются, а вот если их будет меньше - то получите ошибку (Exception ) во время чтения строк, которых нет!
Не проше ли читать файл так, как положено, через while not eof(f) do ...
или, ещё лучше грузануть файл сразу в TStringList через

  TS := TStringList.Create;
  TS.LoadFromFile('c:\file.txt');
... тут делает что хотите с полученными строчками
  TS,.Free; {освобождаем занятую память}

[glazik]

Сообщение от Serge_Bliznykov

ещё лучше грузануть файл сразу в TStringList через

Tstringlist можно использовать в любом случае или же требуется еще что то описывать??
Если можно поподробнее, как из файла считать строку и зхаписать ее в label1 допустим, потом перейти ко второй строке и записать ее в label2 и так далее...

[Serge_Bliznykov]

Tstringlist можно использовать в любом случае или же требуется еще что то описывать??

разумеется, переменную типа TStringList обязательно надо описать!

как из файла считать строку и зхаписать ее в label1 допустим

вот, без проверки, что какого-то LabelXX отсутствует на форме (соответствующая строчка из файла просто никуда не попадёт!)

procedure TForm1.Button1Click(Sender: TObject);
var TS : TStringList;
  i : integer;
  lb : TComponent;
begin
  {создать объект}
  TS := TStringList.Create;
  {загрузить текстовый файл в объект}
  TS.LoadFromFile('c:\file.txt');

  {цикл по всем строчкам текстового файла}
  for i:=0 to TS.Count-1 do begin
    {найдём очередной Label, куда будем писать строку}
    lb := FindComponent('Label'+IntToStr(i+1));
    {если нашли и это Label - запишем строчку}
    if (lb<>nil) and (lb is TLabel)
        then TLabel(lb).Caption := TS.Strings[i];
  end;

  FreeAndNil(TS); {освобождаем занятую память}
end;

разбирайтесь!