精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>SOS紧急求助!!!不胜感激!!!

主题:SOS紧急求助!!!不胜感激!!!
发信人: 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]

[关闭][返回]