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