怎么样操作delphi里的文件啊,比如我有好多条记录,但是又不想用数据库,怎样写入/读出一条记录,谢谢,还有我想安装delphi5的两个补丁时,需要cdkey,我用的是serial:hki-hd3-c139,autorization key:92x0-92x1;我用1111111111...也不行
请问有谁知道,谢谢!!

解决方案 »

  1.   

    记录文件的操作:
    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;
      

  2.   

    用TStringList不就行拉!一行一条数据,简单实用!