Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
ВнизStringGrid Найти похожие ветки
← →
MBo (2002-03-05 08:29) [3]один из методов
procedure TForm1.Button4Click(Sender: TObject);
var fs:tfilestream;
i,l:integer;
s:string;
begin
fs:=tfilestream.create("e:\sgsave2.dat",fmCreate);
with sg1 do begin
fs.write(RowCount,SizeOf(Integer));
fs.write(ColCount,SizeOf(Integer));
for i:=0 to rowcount-1 do begin
s:=Rows[i].Text;
l:=length(s);
fs.write(l,SizeOf(Integer));
if Length(s)>0 then fs.write(s[1],l);
end;
end;
fs.free;
end;
procedure TForm1.Button5Click(Sender: TObject);
var fs:tfilestream;
i,l:integer;
s:string;
begin
fs:=tfilestream.create("e:\sgsave2.dat",fmOpenRead);
with sg1 do begin
fs.read(l,SizeOf(Integer));
rowcount:=l;
fs.read(l,SizeOf(Integer));
colcount:=l;
for i:=0 to RowCount-1 do begin
fs.read(l,SizeOf(Integer));
if l>0 then begin
setlength(s,l);
fs.read(s[1],l);
Rows[i].Text:=s;
end;
end;
end;
fs.free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c