发信人: puregod()
整理人: teleme(2000-12-06 19:10:46), 站内信件
|
各位大虾,小弟近日在用Delphi 5。0 编程时遇到一个问题,非常紧急,请帮帮
我,多谢多谢:
在程序中需要存储和读取数据的功能,现存储的功能已实现运行通过,但读
取的功能却无法实现,不知错在哪里,特向各位大虾请教,小弟在此先谢过了!
以下为读取数据的源代码,其中StringGrid2为三列若干行:
procedure TFormMain.SpeedButton4Click(Sender: TObject);
Var
x,y:integer;
data:string;
begin
if OpenDialog1.Execute then
begin
AssignFile(DataFile, openDialog1.FileName);
Reset(DataFile);
for y:=0 to row do
for x:=0 to 2 do
begin
Read(DataFile, data);
StringGrid2.Cells[x,y]:= data;
end;
end
else
exit;
end;
以下为存储数据的源代码:
procedure TFormMain.SpeedButton5Click(Sender: TObject);
Var
x,y:integer;
begin
if SaveDialog1.Execute then
begin
AssignFile(DataFile, SaveDialog1.FileName);
Rewrite(DataFile);
for y:=0 to row do
begin
for x:=0 to 2 do
Write(DataFile, StringGrid2.Cells[x,y]:12,' ');
Writeln(DataFile);
end;
CloseFile(DataFile);
end else
exit;
end;
存储后生成的文件内容为如下形式:
0 0 0
1 2 3
4 5 6
…………
全部数据都是实数。
还请各位大虾不吝赐教,小弟不胜感激!!!
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.109.0.100]
|
|