写日志文件

最新推荐文章于 2024-08-19 16:02:08 发布

转载最新推荐文章于 2024-08-19 16:02:08 发布 · 267 阅读

procedure WriteFile(str1,str2: string);

const

  ErrorLog = '\test.txt';

var

  strPath: string;

  FileT: TextFile;

begin

  strPath := ExtractFileDir(Application.ExeName) + ErrorLog;

  AssignFile(FileT, strPath);

  try

    if FileExists(strPath) then

    begin

      Append(FileT);

      Writeln(FileT, str1+str2);

      Flush(FileT);

    end

    else

    begin

      Rewrite(FileT);

      Writeln(FileT, str1+str2);

      Flush(FileT);

    end;

  finally

    CloseFile(FileT);

  end

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  WriteFile（Edit1.text,edit2.text);

end;