Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизУ кого есть ф-я сохранения-чтения StringGrid в txt файл Найти похожие ветки
← →
Layner (2003-10-27 15:06) [0]поделитесь, плз.!
← →
Layner (2003-10-27 15:08) [1]Тьфу, сам задал, сам и отвечаю, в Кулибе1000 нашел.
Кому надо вот:
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;
← →
Palladin (2003-10-27 15:20) [2]нда... шедеврь...
← →
Layner (2003-10-27 15:22) [3]Palladin © (27.10.03 15:20)
Можешь упростить?
← →
Amoeba (2003-10-27 15:38) [4]Используй swStringGrid, он это умеет делать сам.
http://www.torry.net/vcl/grids/stringgrids/swstringgrid.zip
← →
Palladin (2003-10-27 17:50) [5]
procedure SaveStringGrid(p_sg:TStringGrid;const p_strFileName:string);
var
i:integer;
s:string;
begin
with TFileStream.Create(p_strFileName,fmCreate) do
try
for i:=0 to p_sg.RowCount-1 do
begin
s:=p_sg.Rows[i].CommaText+#13#10;
Write(s[1],Length(s));
end;
finally
Free;
end;
end;
procedure LoadStringGrid(p_sg:TStringGrid;const p_strFileName:string);
var
fs:TFileStream;
i:integer;
begin
fs:=TFileStream.Create(p_strFileName,fmOpenRead);
with TStringList.Create do
try
LoadFromStream(fs);
p_sg.RowCount:=Count;
for i:=0 to Count-1 do p_sg.Rows[i].CommaText:=Strings[i];
finally
free;
fs.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c