Mehere zeilen ohne schleife aus memo "hohlen"??

[Lannes]

Hallo,

etwas ungewöhnlich aber schneller als mit einer Schleife

Delphi-Quellcode:

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

Nachtrag: (nicht genau gelesen) > Zeile 5-500

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;