|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
из файла в stringgrid
Вопросик:
у меня есть стринггрид с одним столбцом и сколько-то там строк. Мне надо из файла (желательно текстового), созданного мною вручную, запихать в строки то, что в том файле (там в каждой строчке по одному слову). Вот мой код: Код:
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; ошибку даёт на 9 строке. Я взял этот код из другой проги, но там был MEMO из файл программно создавался. Последний раз редактировалось Admin, 28.06.2008 в 16:22. |
#2
|
||||
|
||||
Наверное строки в стринггриде заканчиваются?
|
#3
|
|||
|
|||
закройте плиззз тему, своего мозга хватило.
он не хочет заполнять стринг из другой формы, а из родной заполняет. хотя если кто знает, как с этим разобраться, то давайте |
#4
|
|||
|
|||
ещё одна фишка оттуда же:
Код:
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; Мне нужно, чтобы он записал в файл при изменении строки в стринггриде, но ничего подобного он не делает, даже ошибок не выдаёт, я вручную печатаю в строке, но всё в холостую... |
#5
|
|||
|
|||
спасибо, я опять сам исправился
|