Strings einfügen von zwei memo's

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

uses math;

procedure MergeStrings(const Src1,Src2,Dest: TStrings);
var i, MaxLine: integer;
begin
  Assert(Assigned(Src1) and Assigned(Src2) and Assigned(Dest));
  Dest.BeginUpdate;
  try
    Dest.Clear;
    MaxLine := min(Src1.Count,Src2.Count);
    for i := 0 to MaxLine - 1 do
      begin
        Dest.Add(Src1[i]);
        Dest.Add(Src2[i]);
      end;
  finally
    Dest.EndUpdate;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MergeStrings(Memo1.Lines,Memo2.Lines,Memo3.Lines);
end;

[edit] Wenn Du math nicht einbinden möchtest, geht das auch so:

Delphi-Quellcode:

if Src1.Count > Src2.Count then
  MaxLine := Src2.Count
else
  MaxLine := Src1.Count;

[/edit]