как сохранить stringgrid в файл

← →
Veetyok (2004-07-30 17:10) [0]

Подскажите пож, как сохранить stringgrid в файл без всяких двойных циклов

← →
KSergey © (2004-07-30 17:11) [1]

А чем двойные циклы не угодили? И что собственно сохранить хотим? Инфу из StringGrid или его параметры?

← →
clickmaker © (2004-07-30 17:15) [2]

> Veetyok (30.07.04 17:10)
> Подскажите пож, как сохранить stringgrid в файл без всяких
> двойных циклов

Alt+Print Scrn
Paint.exe, Ctrl + V, Save
В файл? Без циклов? Ну и славненько...

← →
Palladin © (2004-07-30 17:17) [3]

Да... лентяи...

← →
Anatoly Podgoretsky © (2004-07-30 17:22) [4]

Болеше полутора не потянуть

← →
Veetyok (2004-07-30 17:31) [5]

я слышал что есть процедура которая сохраняет инфу из StringGrid в файл двумя-тремя строчками без циклов, а если вы ее не знаете можете просто не отвечать, тем более бесполезными фразами

← →
Anatoly Podgoretsky © (2004-07-30 17:37) [6]

Можно и одно, только надо написать наследника и он сам себя будет сохранять

← →
Sandman25 © (2004-07-30 17:37) [7]

StringGrid1.Rows[I].SaveToFile

Без двойных циклов, как заказывали...
Счет я попозже принесу :)

← →
pasha_golub © (2004-07-30 17:38) [8]

Орех, имхо

← →
Кириешки © (2004-07-30 17:56) [9]

Блин, ну вы даете...

Я знаю два способа - вот так и потоком. Вот самый быстрый.

---------------------------
Сохранять так :
SAVE

var f:textfile;
x,y:integer;
begin
assignfile (f,"Acces.dbs");
rewrite (f);
writeln (f,StringGrid1.colcount);
writeln (f,StringGrid1.rowcount);
For X:=0 to StringGrid1.colcount-1 do

For y:=0 to StringGrid1.rowcount-1 do
writeln (F, StringGrid1.cells[x,y]);
closefile (f);

А вот так загружать
LOAD

var
f:textfile;
temp,x,y:integer;
tempstr:string;
begin
if FileExists("Acces.dbs") then
begin
assignfile (f,"Acces.dbs");
reset (f);
readln (f,temp);
My_DataBase.colcount:=temp;
readln (f,temp);
My_DataBase.rowcount:=temp;
For X:=0 to StringGrid1.colcount-1 do

For y:=0 to StringGrid1.rowcount-1 do
begin
readln (F, tempstr);
StringGrid1.cells[x,y]:=tempstr;
end;
closefile (f);
end;
----------------------------

← →
Sandman25 © (2004-07-30 17:57) [10]

[9] Кириешки © (30.07.04 17:56)
Не, не пойдет. Двойной цикл тута. Сложно слишком, однако.

← →
Кириешки © (2004-07-30 18:16) [11]

>Sandman25 © (30.07.04 17:57) [10]

Мона так -

Uses Grid

type
...
StringGrid : TStringGrid;

Procedure Podmena;
var
StringGrid : Nifiga_Ne_StringGrid_A_TListBox;
Begin
StringGrid.items.savetofile(filename);
end;

Так лучще ? Вообще без циклов обошлись. ;))

← →
Veetyok (2004-07-30 18:40) [12]

Sandman25 © (30.07.04 17:37) [7]
StringGrid1.Rows[I].SaveToFile

сохраняется только одна строка, а если через цикл, то только последняя

Кириешки © (30.07.04 18:16) [11]
StringGrid.items.savetofile(filename);

что за items?

← →
мимо (2004-07-30 18:46) [13]

procedure SaveComponent(comp: tcomponent; filename: string);
var m: tmemorystream;
i: integer;
begin
m := tmemorystream.Create;
m.writeComponent(comp);
m.SaveToFile(filename);
m.Free;
end;

← →
мимо (2004-07-30 18:48) [14]

> i: integer;

это в принципе не нужно

← →
мимо (2004-07-30 18:49) [15]

да, и еще в довесок

procedure LoadComponent(comp: tcomponent; filename: string);
var m: tmemorystream;
begin
if fileexists(filename) = false then exit;
m := tmemorystream.Create;
m.LoadFromFile(filename);
m.readComponent(comp);
m.Free;
end;

>Veetyok (30.07.04 18:40) [12]

"StringGrid.items.savetofile(filename); "
"что за items?"

ЧИТАЙ ОТВЕТ НОМЕР 9 ОН РЕАЛЬНО РАБОТАЕТ!!!!!!!!!!!!!!

Прошу прощения за повтор.

как сохранить stringgrid в файл Найти похожие ветки