![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
доброго времени суток!
помогите пожалуйста новичку с решением задачи. задача такова: имеются StringGrid и текстовый файл следующего содержания ____________________________ ООО "василек",7712349578 ООО "здоровье",5046287439 ООО" ромашка",7733478323 ____________________________ Сохраняю StringGrid в текстовый фаил так: Код:
procedure TForm1.SpeedButton2Click(Sender: TObject);
Var
I : Byte;
F : TextFile;
S : String;
begin
AssignFile(F, 'Test.txt');
Rewrite(F);
For I := 1 to StringGrid1.RowCount - 1 do
Begin
Writeln(F,StringGrid1.Cells[0,I] +','+StringGrid1.Cells[1,I])
end;
CloseFile(F)
end;а вот с загрузкой текстового фаила в StringGrid ни чего не выходит. пожалуйста подскажите хотя бы в каком направлении искать. Помогите пожалуйста, очень надо!!! Последний раз редактировалось Admin, 29.04.2010 в 22:05. |