如何用delphi操作记录型文本文件。

Question

如题

Answer 1

不知道你的”记录型文本文件“是什么样子，用TSTRINGLIST读进来然后分析不行吗？

Answer 2

TSTRINGLIST来操作INI文件效果很好~~`

Answer 3

不知楼主要的是不是下面这种:type
  TMyRec = record
    Name : string[10];
    Addr : string[20];
    Numb : integer;
end;procedure TForm1.Button1Click(Sender: TObject);//写入一条记录到 C:\1.txt
var
  Fp : File of TMyRec;
  My : TMyRec;
begin
  My.Name := 'dBASE3';
  My.Addr := 'ChineseTaiPei';
  My.Numb := 10098;  AssignFile(Fp,'C:\1.txt');
  ReWrite(Fp);
  try
    Write(Fp,My);
  finally
    CloseFile(Fp);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);//从 1.txt 读出一条记录
var
  Fp : File of TMyRec;
  My : TMyRec;
begin
  AssignFile(Fp,'C:\1.txt');
  ReSet(Fp);
  try
    Read(Fp,My);
  finally
    CloseFile(Fp);
  end;  showmessage(My.Name);
  showmessage(My.Addr);
  showmessage(IntToStr(My.Numb));
end;

Answer 4

我是想把这种格式的文件交易日期  ,借贷,金额          
2006.12.28,贷,1000.00
2006.12.31,借,10.50转换成abcd,上海公司_12345678
01.2007_上海------表示2007年1月
28,,,D,1000.00-------表示28日，D表示贷，J标记借
31,,,J,10.50我写了点代码老是通不过清高手指教
procedure TForm1.Button1Click(Sender: TObject);
var
  F:textfile;
  S:string;
  totalrow,myrow:integer;
  str:tstringlist;
begin
   assignfile(F,'yc.txt');
   reset(F);
   str:=tstringlist.Create ;
   readln(F,S);
   totalrow:=1;
   repeat
    inc(totalrow);
    readln(F);
   until eof(F);
   reset(F);
   for myrow:=0 to totalrow do
    begin
      readln(F,S);
      str.CommaText:=S;
      if str[1]='借' then str[1]:='J'
      else str[1]:='D';
    end;
    str.Free;
    closefile(F);
end;
end.