怎么样操作delphi里的文件啊,比如我有好多条记录,但是又不想用数据库,怎样写入/读出一条记录,谢谢,还有我想安装delphi5的两个补丁时,需要cdkey,我用的是serial:hki-hd3-c139,autorization key:92x0-92x1;我用1111111111...也不行
请问有谁知道,谢谢!!
请问有谁知道,谢谢!!
解决方案 »
- 500分求如何实现在任务栏上显示倒计时代码?
- 高分请教一个有关textarea的简单问题,弄了一天一夜搞不定!
- 如何将string类型的空字符串update到excel表中?
- 快过年了,在山西工作的程序员或山西人在外地的程序员你们好吗?进来报个到,留下联系方式!
- 谁有这样的控件?急在线等待……高分相送,分不够再加
- 如何访问TRODataSnapModule中的方法呢?
- 各位:大家平时都是怎样读书的?
- Delphi需要一个启动界面,如何制作.
- BCB用ALT+F9作编译语法检查,那么在DELPHI里有没有相应的快捷健作语法检查?
- 现在搞分布式数据库开发是用DCOM,还是MTS;是用BDE,还是ADO?高手请进。(30分表示一点心意)
- dll中非模态窗体与主窗体的同步
- help me a look!
type //定义自己的记录类型
myType=record
name:string[20];
age:integer;
end;//写记录
var
myArr:Array[1..3] of myType;
myFile:File of myType;
i:integer;
begin
myArr[1].name :='abc';
myArr[1].age :=10;
myArr[2].name :='def';
myArr[2].age :=11;
myArr[3].name :='ghi';
myArr[3].age :=12;
AssignFile(myFile,'d:\test.txt');
try
reset(myFile);
seek(myFile,0); //定位到文件头
for i:=1 to 3 do
write(myFile,myArr[i]);
finally
CloseFile(myFile);
end; //end of try
end;//读记录
var
myVar:myType;
myFile:File of myType;
begin
AssignFile(myFile,'d:\test.txt');
try
reset(myFile);
seek(myFile,1); //定位到第二条记录
read(myFile,myVar);
finally
closeFile(myFile);
end; //end of try
Edit1.Text :=myVar.name ;
Edit2.Text :=IntToStr(myVar.age );
end;