2 Textdateien zu einer zusammenfügen

[marabu]

Hi,

trotzdem hier noch eine Alternative für überschaubare Dateigrößen:

Delphi-Quellcode:

procedure JoinStrings(sLeft, sRight, sResult: TStrings; cSeparator: Char = '=');
var
  i: Integer;
begin
  sResult.NameValueSeparator := cSeparator;
  for i := 0 to Pred({Math.}Min(sLeft.Count, sRight.Count)) do
    sResult.Values[sLeft[i]] := sRight[i];
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  fn, fnLeft, fnRight: TFileName;
begin
  fnLeft := ParamStr(1);
  fnRight := ParamStr(2);
  fn := ParamStr(3);
  Memo1.Lines.LoadFromFile(fnLeft);
  Memo2.Lines.LoadFromFile(fnRight);
  JoinStrings(Memo1.Lines, Memo2.Lines, Memo3.Lines);
  Memo3.Lines.SaveToFile(fn);
end;

Freundliche Grüße