发信人: 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]
|
|