Textdateien zusammenfügen

[turboPASCAL]

@Muhkuh, ist es nicht so etwas besser ?

Delphi-Quellcode:

function MergeTextFile(FName1, FName2, FOutName: String): Bool;
var
  SLFile1: TStringList;
  SLFile2: TStringList;
begin
  Result := FALSE;

  if FileExists(FName1) and FileExists(FName2) then
  begin
    SLFile1 := TStringList.Create;
    SLFile2 := TStringList.Create;
    try
      SLFile1.LoadFromFile(FName1);
      SLFile2.LoadFromFile(FName2);

      SLFile1.Add('');
      SLFile1.AddStrings(SLFile2);

      SLFile1.SaveToFile(FOutName);

      Result := TRUE;
    finally
      SLFile1.Free;
      SLFile2.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not MergeTextFile('C:\RUESSEL.HTM', 'C:\MOPS.HTM', 'C:\RUESSELMOPS.HTML') then
    ShowMessage('Fehler beim zusammenfügen der Dateien.');
end;