Mehere zeilen ohne schleife aus memo "hohlen"??

[Nepos]

Hallo mal wieder...

ich hab das prob das ich bisher immer wenn ich von einem Memo die zeilen von zb 5-100 in ein anderes memo kopieren wollte es mit einer schleife gemacht habe... so zb:

Delphi-Quellcode:

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

das dauert aber immer sehr lange! Gibt es da ne elegantere lösung?

ich habe leider nichts im internet gefunden... eventuell hatte ich auch nur die falschen stichwörter.

Könnt ihr mir weiter helfen?

viele grüße Martin

[Sharky]

Hai Nebos,

eventuell kannst Du das ganze ja schon dadurch beschleunigen das Du vor deine Schleife ein [oh]BeginUpdate;[/oh] für das "Zielmemo" setzt und danach natürlich ein EndUpdate.

Delphi-Quellcode:

begin
  Memo2.Lines.BeginUpdate;
  for loop:=5 to 100 do
  begin
    memo2.lines.add(memo1.lines[loop]);
  end;
  Memo2.Lines.EndUpdate;
end;

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
Memo? Passt besser zu VCL ;-)

[Lannes]

Hallo,

etwas ungewöhnlich aber schneller als mit einer Schleife :stupid:

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;

[Vjay]

Ich habe es nicht ausprobiert, aber ich glaube Begin + EndUpdate ist bei einem einzigen Add nicht erforderlich.

[himitsu]

Das mag stimmen, aber hier sind es 96 :zwinker:

Delphi-Quellcode:

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

[Thorben77]

Zitat:

Zitat von himitsu

Das mag stimmen, aber hier sind es 96 :zwinker:

Delphi-Quellcode:

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

Da ist es aber nur eins :zwinker: :

Zitat:

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;

[mschaefer]

Moin, moin,

also Prinzipiell gibt es noch einen anderen Weg. Zugriff über Memo.Lines.Text ergibt den ganzen Memotext als String.
Die einzelnen Zeilen sind durch #10#13 voneinander getrennt. Damit könnte man die #10#13 bis zur Startzeile zählen und dann die #10#13 bis zur Endzeile. Beide Positionen werden zwischengespeichert und der Bereich dann mit Copy herauskopiert. Wie sich das zeitlich verhält weiss ich nicht. Das hängt im Wesentlichen von einer schnellen erweiterten Pos-Suche ab.


PS: Die neueren Delphi-Versionen haben meines Erachtens einige weitere Stringfunktionen und ich meine auch schonmal ein Pos-Routine in Assembler gesehen zu haben...

Grüße // Martin

[himitsu]

Zitat:

Zitat von mschaefer

also Prinzipiell gibt es noch einen anderen Weg. Zugriff über Memo.Lines.Text ergibt den ganzen Memotext als String. ...

Der Nachteil dabei ... .Lines.Text liest erstmal alle Lines[] aus und setzt diese zu einem einzigem String zusammen, was auch nicht gerade schnell und eventuell auch noch speichersparend ist.

Zitat:

Zitat von mschaefer

PS: Die neueren Delphi-Versionen haben meines Erachtens einige weitere Stringfunktionen und ich meine auch schonmal ein Pos-Routine in Assembler gesehen zu haben...

Oder du hast meine gesehen (in der CodeLib), :roll:
aber wenn ich mich recht erinnere, sind die Standard-Routinen von Delphi auch schon in ASM (oder umschaltbar in ASM und Pascal)

z.B. Code-Library -> Object-Pascal / Delphi-Language
(Teil)String in anderem String suchen/zählen
Zeile aus String extrahieren