简单示例:实现了保存一个StrGrid中的数据
procedure TMainForm.SaveGridData(FileName : string);
var
LWriter :TWriter;
MStm : TMemoryStream;
i:integer;
bCheck : boolean;
begin
MStm := TMemoryStream.Create;
LWriter :=TWriter.Create(MStm,csBuffer);
try
LWriter.WriteString(csFileFlag);
//文件头标志,随便写
LWriter.WriteInteger(Grid1.RowCount);
with Grid1do
begin
for i := 1 to Grid1.RowCount-1do
begin
GetCheckBoxState(csCheck,i,bCheck);
Lwriter.WriteBoolean(bCheck);
Lwriter.WriteString(Cells[csDate,i]);
Lwriter.WriteString(Cells[csTime,i]);
Lwriter.WriteString(Cells[csType,i]);
Lwriter.WriteString(Cells[csNeiRong,i]);
Lwriter.WriteString(Cells[csPrg,i]);
Lwriter.WriteString(Cells[csBell,i]);
Lwriter.WriteString(Cells[csHide,i]);
Lwriter.WriteString(Cells[csHidePass,i]);
end;
end;
Lwriter.FlushBuffer;
MStm.Seek(0,0);
MStm.SaveToFile(FileName);
finally
FreeAndNil(LWriter);
FreeAndNil(MStm);
end;
//
end;