Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Alle Textdateien eines Verzeichnisses zusammenfügen?

    Delphi
    by kcx, 18. Mär 2008
  Mit FindFirst, FindNext alle Textdateien in eine Liste laden und dann folgende Funktion aufrufen:
  function MergeFiles(const AInputFiles: TStrings; const AOutputFile: String): Boolean;
  const
  BUFFER_SIZE = 65536;
  var
  i, iRead, iWritten: Integer;
  fInput, fOutput: File;
  sBuffer: String;
  begin
  Result := True;