StringGrid и способы сохранения таблиц

← →
Zheka © (2003-04-10 16:59) [0]

Здравтвуйте уважаемые!!!
Подскажите плз. как сохранить полученные таблицы(StringGrid).
Есть ли возможность сохранения таблиц в Excel_евском формате?
Спасибо.

← →
Skier © (2003-04-10 17:00) [1]

А сюда лень сходить www.torry.net ?

← →
Amoeba (2003-04-10 17:42) [2]

TswStringGrid, найдешь на Torry

← →
Бобко Сергей (2003-04-11 16:32) [3]

Procedure SaveGrid;
var f:textfile;
x,y:integer;
begin
assignfile (f,"Filename");
rewrite (f);
writeln (f,stringgrid.colcount);
writeln (f,stringgrid.rowcount);
For X:=0 to stringgrid.colcount-1 do
For y:=0 to stringgrid.rowcount-1 do
writeln (F, stringgrid.cells[x,y]);
closefile (f);
end;

Procedure LoadGrid;
var f:textfile;
temp,x,y:integer;
tempstr:string;
begin
assignfile (f,"Filename");
reset (f);
readln (f,temp);
stringgrid.colcount:=temp;
readln (f,temp);
stringgrid.rowcount:=temp;
For X:=0 to stringgrid.colcount-1 do
For y:=0 to stringgrid.rowcount-1 do begin
readln (F, tempstr);
stringgrid.cells[x,y]:=tempstr;
end;
closefile (f);
end;

предпочитаю записыват в Tab Delimited формате, в эксель и обратно импортируется только так. Первая строка заголовки колонок Row0
Fld1<tab>Fld2<tab>..FldN
..
Fld1<tab>Fld2<tab>..FldN

StringGrid и способы сохранения таблиц Найти похожие ветки