谁有操作txt文件的代码(delphi 5.0)立刻给分。

Question

var
  FileName: string;
  temp: string;
begin
  FileName := 'TJF\NET' + FormatDateTime('MMDD', Date) + '.TXT';
  AssignFile(FileJournal, FileName);
  try
    Append(FileJournal);
  except
    ReWrite(FileJournal);
  end;
  if Mode <> 0 then
    temp := FormatDateTime('HH:MM:SS ', Now) + JStr
  else
    temp := JStr;
  Write(FileJournal,temp);
  WriteLn(FileJournal);
  CloseFile(FileJournal);
end;

Answer 1

with TStringList.Create do try
  LoadFromFile('1.txt');
  Add('添加一行');
  SaveToFile('1.txt')
finally
  Free;
end;

Answer 2

var sl : TStringList;
sl := TStringList.Create;sl.LoadFromFile('file');...do somethingsl.SaveToFile('file');

Answer 3

var
  MyTextFile:TextFile;
  i : Integer;
  S : String;
begin
  AssignFile(MyTextFile,'MyTextFile.txt');
  Reset(MyTextFile);
  for i:=0 to 5 do
    begin
      S := 'This is line #';
      WriteLn(MyTextFile,S,i);
    end;
  CloseFile(MyTextFile);
end;

Answer 4

procedure TForm1.FormShow(Sender: TObject);
var
    sParamFileName:string;
    sFile:TextFile;
    sTemp:String;
begin
    sParamFileName:='address.txt';  ////与应用程序路径相同
    If FileExists(sParamFileName) Then
    Begin
      AssignFile(sFile, sParamFileName);
      Reset(sFile);
      cbPT.Items.Clear;
      While not EOF(sFile) Do
      Begin
        Readln(sFile, sTemp);
        cbPT.Items.Add(sTemp);
      End;      CloseFile(sFile);
    End;
end;我的目的是把'address.txt'的内容添加到combobox里。可是当我把'address.txt'另存为'address.ptd'的时候就可以。两个文件都在当前目录。其中cbPT是combobox的name.

Answer 5

在对文本文件进行任何处理之前，首先要打开此文本文件。打开一个文件需要两步：首先是A s s i g n F i l e ( ) ,它可以将文件变量与一个文件关联起来。例如：
这时，你可以进行第二步：打开文件。有三种方式打开文件：使用R e w r i t e ( )过程创建并打开文
件；对于一个已存在的文件，此操作将使文件被覆盖；使用R e s e t ( )过程只读地打开一个文件；使用
Append() 过程向已存在的文件追加文本。
注意Reset()将以可读写方式打开类型文件和无类型文件。
可以使用C l o s e F i l e ( )来关闭一个已打开的文件。下例是各种调用的例子。

Answer 6

不要弄那么复杂，用TStrings就可以了。
var
  items:TStrings;  items.LoadFromFile('address.txt');
  //处理
  items.SaveToFile(''address.ptd');

Answer 7

var 
items:TStrings;
 
items:=TStringList.Create;
items.LoadFromFile('address.txt'); 
//处理 
items.SaveToFile(''address.ptd');
items.free;