Delphi. Save Stringrid To File

[Neroaz]

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows
Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

Нужно:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
вызов процедуры
end;

end.

Только точно не знаю, достаточно ли этого, чтобы StringGrid сохранить в файл.

[evg_m]

достаточно ли этого, чтобы StringGrid сохранить в файл.

если потом ты сможешь восстановить из этого файла stringGrid в нужном тебе виде и с нужными данными значит достаточно

хотя я бы попробовал такой вариант

Writeln(F, i, #9, j, #9,  Cells[i, k]); // вместе со значением в строке записывать и его координаты
// а не писать размеры вначале 
Writeln(f, ColCount);
Writeln(f, RowCount);

[Google2010]

if OpenDialog1.Execute then
SaveStringGrid(StringGrid1, OpenDialog1.FileName);

[Serge_Bliznykov]

Google2010, +1

Writeln(F, i, #9, j, #9,  Cells[i, k]); // вместе со значением в строке записывать и его координаты
// а не писать размеры вначале

evg_m, извините, коллега, но я с Вашим предложением КАТЕГОРИЧЕСКИ не согласен! ну, писать координаты, можно, хоть это и приведёт к резкому усложнению кода чтения — вместо одно readln будет чтение строки, разбор её на координаты и т.д.
а вот если не писать размерность вначале сохранённого файла, тогда откуда брать размеры грида? Каждый раз проверять, если координата больше, чем текущая и увеличивать размер stringgrid'а ? Ваш метод хорош только в том случае, когда имеется сильно разреженный грид: сам грид большого размера, а заполнена пара/другая ячеек. Тогда, конечно, скорость чтения Вашим способом будет намного эффективнее. но тогда надо писать только непустые ячейки..

В любом случае, лично я автору топика рекомендую оставить тот способ, который у него написан.

[Neroaz]

Google2010
Спасибо. Это то что мне нужно было.

Сообщение от Google2010

if OpenDialog1.Execute then
SaveStringGrid(StringGrid1, OpenDialog1.FileName);

[Grag]

Ваще оригинально!!! Товарисч раскидал процедуры своей проги по разным постам на форуме... А потом соберет все в кучку и сдаст проект... С миру по нитке - студенту на стипендию!