[Yogurt]

Вопросик:
у меня есть стринггрид с одним столбцом и сколько-то там строк. Мне надо из файла (желательно текстового), созданного мною вручную, запихать в строки то, что в том файле (там в каждой строчке по одному слову).
Вот мой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

1   var i:integer; Lname:TextFile; stroka:string; 2   begin 3         AssignFile(Lname,'L-name.txt'); 4         i:=0; 5         reset(Lname); 6         while not eof(Lname) do 7         begin 8               Readln(Lname,stroka); 9               form11.StringGrid15.Cells[0,i]:=stroka; 10              i:=i+1; 11       end; 12  end;

Admin: Используем теги для форматирования кода, иначе последуют санкции!

ошибку даёт на 9 строке. Я взял этот код из другой проги, но там был MEMO из файл программно создавался.

[Aristarh Dark]

Наверное строки в стринггриде заканчиваются?

[Yogurt]

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

[Yogurt]

ещё одна фишка оттуда же:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure тратата; label next; var n,i:integer; begin       n:=0;       while unit11.form11.stringgrid15.Cells[0,n]<>'' do n:=n+1;       AssignFile(fl,'L-name.txt');       if unit11.form11.stringgrid15.Cells[0,n+1]='' then goto next       else       begin           rewrite(fl);           for i:=1 to n+1 do           begin                 writeln(fl,unit11.form11.stringgrid15.Cells[0,i]);           end;           CloseFile(fl);       end;       next: end;

Мне нужно, чтобы он записал в файл при изменении строки в стринггриде, но ничего подобного он не делает, даже ошибок не выдаёт, я вручную печатаю в строке, но всё в холостую...

[Yogurt]

спасибо, я опять сам исправился