Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

У кого есть ф-я сохранения-чтения 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;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.043 c