Показать сообщение отдельно
  #1  
Старый 29.04.2010, 22:02
konsul_81 konsul_81 вне форума
Прохожий
 
Регистрация: 19.04.2010
Сообщения: 21
Репутация: 10
Восклицание загрузка из текстового файла в StringGrid

доброго времени суток!
помогите пожалуйста новичку с решением задачи.
задача такова:
имеются 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 ни чего не выходит.
пожалуйста подскажите хотя бы в каком направлении искать.

Помогите пожалуйста, очень надо!!!
Ответить с цитированием