| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6655 人关注过本帖
标题:[求助]如何新建一个.dat文件并写入数据
只看楼主 加入收藏
cch8080
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-3-18
结帖率:100%
收藏
 问题点数:0 回复次数:6 
[求助]如何新建一个.dat文件并写入数据

我想通过键盘输入数据,将包括学号,姓名,数学,语文,电子等学生成绩数据输入到一个顺序文件中(stu.dat)。下面是代码,请大家帮忙看下错在哪,什么只能新建,但没能把输入的数据保存到文件中,请高手们帮忙该该,我在这先谢谢大家了!!
unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;

procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
type
studentrecord=record
xh,xm:string;
xb:string;
sx,yy,dz:string;
end;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var t:studentrecord;
f:file;

begin

with t do
begin
xh:=edit1.Text;
xm:=edit2.text;
if radiobutton1.Checked=true then
xb:='男'
else
xb:='女';
sx:=edit3.text;
yy:=edit4.text;
dz:=edit5.text;
end;
assignfile(f,'e:/stu.dat');
rewrite(f);
closefile(f);
end;


end.

搜索更多相关主题的帖子: dat 数学 数据 文件 
2007-04-29 08:50
phonbob
Rank: 1
等 级:新手上路
威 望:1
帖 子:57
专家分:0
注 册:2007-4-21
收藏
得分:0 
file of

男儿、血如泪、洒沙场
2007-04-29 10:24
cch8080
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-3-18
收藏
得分:0 

不行啊,要是那样写的话,他就出现下面的错误提示:
[error]Unit4.pas(49):Type expected but';'found

[Fatal Error]Project4.dpr(5);Could not compile used unit'Unit4.pas'

2007-04-29 13:44
phonbob
Rank: 1
等 级:新手上路
威 望:1
帖 子:57
专家分:0
注 册:2007-4-21
收藏
得分:0 

没写;号


男儿、血如泪、洒沙场
2007-04-29 13:53
anthony634
Rank: 6Rank: 6
来 自:西南交大
等 级:贵宾
威 望:24
帖 子:653
专家分:10
注 册:2006-6-8
收藏
得分:0 

assignfile(f,'e:/stu.dat');
rewrite(f);
closefile(f);
写入的语句怎么没有?
f:file of studentrecord;


assignfile(f,'e:/stu.dat');
rewrite(f);
try
write(f,t);
finally
closefile(f);
end;

2007-04-29 14:28
cch8080
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-3-18
收藏
得分:0 
什么还是不行啊,那样写了,可还是出现了下面的错误提示:[Error]Unit4.pas(49):Type 'studentrecord' needs finalization.not allowed in file type

[fatal Error]Project4.dpr(5):Could not compile used unit'Unit4.pas'
2007-04-30 07:59
zhpseason
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-8-9
收藏
得分:0 

由于string类型不是delphi中的基本数据类型,string实际上是一个类,故出现 楼上的提示错误,可以将string类型,改为array of char数据,则没有问题

2007-08-31 20:00
快速回复:[求助]如何新建一个.dat文件并写入数据
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040285 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved