怎么写日制文件??

Question

这个很简单吧
//-----------记录日志-----------------------------------------
Procedure WriteJournal(const JStr: string; const Mode:integer);
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

try memo1.loadfromfile('everyday.txt');memo1.item.add('xinxi');memo1.savetofile('everyday.txt');一个TXT的大小由使用的控件决定，memo:64k,richedit:没有限制！

Answer 2

应该是memo1.lins.……，刚才写错了！

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var
HistroyFileName,s:string;
TxtFile:TextFile;
begin
        HistroyFileName:=ExtractFilePath(Application.ExeName)+'everyday.txt';
        if not FileExists(HistroyFileName) then
        begin
        AssignFile(TxtFile,HistroyFileName);
        ReWrite(TxtFile);
        s:='12345';//你想写的数据
        WriteLn(txtFile,s);
        CloseFile(TxtFile);
        end else
        begin
        AssignFile(TxtFile,HistroyFileName);
        Append(TxtFile);
        s:='111111';
        WriteLn(txtFile,s);
        CloseFile(TxtFile);
        end;
end;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var
HistroyFileName,s:string;
TxtFile:TextFile;
begin
        HistroyFileName:=ExtractFilePath(Application.ExeName)+'everyday.txt';
        if not FileExists(HistroyFileName) then
        begin
        AssignFile(TxtFile,HistroyFileName);
        ReWrite(TxtFile);
        s:='12345';//你想写的数据
        WriteLn(txtFile,s);
        CloseFile(TxtFile);
        end else
        begin
        AssignFile(TxtFile,HistroyFileName);
        Append(TxtFile);
        s:='111111';
        WriteLn(txtFile,s);
        CloseFile(TxtFile);
        end;end;