Memo in Memo kopieren ?

[thomas2009]

Hallo

wie konnte man Memo1.Lines über Memo2.Lines ersetzen ?
Leere Lines in memo2 sollen aber ignoriert werden. d.h.
die Memo1.Lines dürfen nicht über leere Lines ersetzt werden
sehe Anhang

[Zacherl]

Vorrausgesetzt, dass das Zielmemo mehr oder gleich viele Zeilen hat, als das Quellmemo:

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 QuellMemo.Lines.Count -1 do
  begin
    if QuellMemo.Lines[I] <> '' then
    begin
      ZielMemo.Lines[I] := QuellMemo.Lines[I];
    end;
  end;
end;

[HalloDu]

Ehm und vielleicht sollte man vorher noch sicherstellen das beide Memos gleich viel Zeilen haben.

[thomas2009]

es hat geklappt, Danke

[Zacherl]

Zitat von HalloDu:

Ehm und vielleicht sollte man vorher noch sicherstellen das beide Memos gleich viel Zeilen haben.

Zitat von Zacherl:

Vorrausgesetzt, dass das Zielmemo mehr oder gleich viele Zeilen hat, als das Quellmemo ..