![]() |
|
|
Регистрация | << Правила форума >> | 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. |