Mehere zeilen ohne schleife aus memo "hohlen"??

[Thorben77]

Zitat von himitsu:

Das mag stimmen, aber hier sind es 96

Delphi-Quellcode:

for loop:=5 to 100 do 
  memo2.lines.add(...);

Da ist es aber nur eins :

Zitat von Lannes:

Delphi-Quellcode:

var j,i : Integer;
begin
  j := Memo1.Perform(EM_LINEINDEX, 5, 0);
  i := Memo1.Perform(EM_LINEINDEX, 501, 0);
  Memo2.Lines.BeginUpdate;
  Memo2.Lines.Add(Copy(Memo1.Text,j,i-2));
  Memo2.Lines.EndUpdate;