Strings einfügen von zwei memo's

[Landogar-Garuno]

Hallo alle zusamen...

brauche mal wieder eure hilfe


möchte von 2 unterschiedlichen memos in ein anderes memo einfügen

bei fester text länge ist es kein problem

Delphi-Quellcode:

memo2.lines.add(memo3.lines[0]); //12345
memo2.lines.add(memo4.lines[1]); //67890
memo2.lines.add(memo3.lines[2]); //12345
memo2.lines.add(memo4.lines[3]); //67890 
memo2.Text := StringReplace(memo2.Text, '\'#13#10, '', [rfReplaceAll,rfIgnoreCase]);

//memo2.text ist dann---> 123456789  line für line (example)

das ganze brauche ich mit einer for schleife....

[DeddyH]

Ich verstehe Dein Beispiel noch nicht. Soll immer abwechselnd aus dem einen und dem anderen Memo eine Zeile eingefügt werden, und zwar alle Zeilen beider Memos?

[Landogar-Garuno]

Hi

ja genau

von memo3 und memo4 nach memo2 immer im wechsel

lines[0] von memo3 nach memo2 Lines[0]
Lines[0] von memo4 nach memo2[lines[1]
lines[1] von memo3 nach memo2 Lines[2]
Lines[1] von memo4 nach memo2[lines[3]

usw....

[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]

[Landogar-Garuno]

Danke

perfekt genau das was ich gesucht habe