Сохранение данных StringGrid в файл

josch

Нужно реализовать сохранение и загрузку данных из StringGrid'a в текстовый файл с помощью компонентов OpenDialog и SaveDialog. Массив двухмерный.о, все, сам сделал.
7 ответов

josch

Массив двухмерный
Какой же еще он может быть? ))) Идея проста: 1. в циклк для каждой строки создаете текстовую строку и записываете в файл и наоборот


josch

Какой же еще он может быть? )))
[0,j]


josch

[0,j]
Так ведь это все равно двумерный массив, просто один из размеров равен 0


josch

Так ведь это все равно двумерный массив, просто один из размеров равен 0
ну ок, [i]


josch

Сотвари нечто извращенское. Сделай ini файл со структурой [config] rows=количество строк cols=столбцов [upper] in1-1=bla in1-2=blabla in1-3=blablabla И черехз цикл работай с ini файлом uses inifiles //start inifiles lib Var ini:TiniFile; //Обьявляем ini файл Дальше открываем файл читаем Ini.Free; //незабываем закрытьhttp://articles.org.ru/lessond/les16.php про ini файлы почитай здесь Прошу извинения за рекламу другого сайта


josch

Разделитель ставь какой хочешь:
var
  FileStream: TFileStream;
  Writer: TWriter;
  I: Integer;
begin
  FileStream :=
    TFileStream.Create('c:\stream.txt',
    fmCreate or fmOpenWrite or fmShareDenyNone);
  Writer := TWriter.Create(FileStream, $FF);
  Writer.WriteListBegin;
  for I := 1 to StGrid.RowCount - 1 do
    begin
    Writer.WriteString('&'+StGrid.Cells[1,I]+'&'+StGrid.Cells[2,I]+'&'+StGrid.Cells[3,I]+'&'+StGrid.Cells[4,I]);
    end;
  Writer.WriteListEnd;
  Writer.Destroy;
  FileStream.Destroy;
  
end;


josch

Как доделаешь,))))) поделись исходником, у меня похожая задачка.