Delphi an das Ende eines memo's einen doppelpunkt setzen

[Lyan]

Hallo,

ich möchte eine Liste abarbyten.
Also man hat quasi einen Text der in etwa so aussehen könnte:

Code:

hallo mein name ist
ich bin 99 jahre alt
ich liebe pizza
außerdem asdasdasd
obendrauf gefallen mir

Ohne jetzt zu erwähnen warum ich das so möchte, sollte es nach Bearbeitung der routine dann so aussehen:

Code:

hallo mein name ist:
ich bin 99 jahre alt:
ich liebe pizza:
außerdem asdasdasd:
obendrauf gefallen mir:

Jemand eine Idee wie das machbar wäre?

Habs so versucht:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  for i := 0 to memo1.Lines.count - 1 do
  begin
    memo1.Lines[i] := memo1.Lines[i] + ':';
  end;
end;

Ist aber völliger Schwachsinn! Also bitte um Denkanstöße


MfG

[haentschman]

Zitat:

Ist aber völliger Schwachsinn!

... hast du den Schwachsinn mal ausprobiert ? Was kommt dabei raus ?

[lbccaleb]

Das ist total OFF-Topic, aber total geil deswegen muss das mal gesagt werden^^

Zitat:

ich möchte eine Liste abarbyten.

[Lyan]

Zitat von haentschman:

Zitat:

Ist aber völliger Schwachsinn!

... hast du den Schwachsinn mal ausprobiert ? Was kommt dabei raus ?

Bei paar tausend Zeilen, oder auch 1 Million Zeilen, kann das dann schon hängen mit einer Schleife

Habs mit 1565 Zeilen versucht, dauert ewig!

[markus5766h]

'ne TStringList nehmen
abarbeiten
und dann in's TMemo kopieren

sollte einiges schneller sein

[lbccaleb]

Füge diese Zeilen ein:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate

... //Bearbeitung ...

Memo1.Lines.EndUpdate;

[Lyan]

Zitat von lbccaleb:

Füge diese Zeilen ein:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate

... //Bearbeitung ...

Memo1.Lines.EndUpdate;

Habe es nun so gemacht:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  for i := 1 to memo1.Lines.count do
  begin
    Memo1.Lines.BeginUpdate;
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
    Memo1.Lines.EndUpdate;
  end;
end;

Gibts sonst noch andere methoden um eine liste abzuarbyten?
die performance würde ich schon gerne erhöhen.

MfG

[implementation]

Zitat von Lyan:

Code:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  for i := 1 to memo1.Lines.count do
  begin
    Memo1.Lines.BeginUpdate;
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
    Memo1.Lines.EndUpdate;
  end;
end;

Nimm BeginUpdate und EndUpdate mal aus der Schleife raus und setz sie außerhalb:

Delphi-Quellcode:

procedure TForm1.pSetzedoppel;
var i : Integer;
begin
  progressbar1.position := 0;
  Memo1.Lines.BeginUpdate;
  for i := 1 to memo1.Lines.count do
  begin
    memo1.Lines[i] := memo1.Lines[i] + ':';
    progressbar1.position := i;
    application.ProcessMessages;
  end;
  Memo1.Lines.EndUpdate;
end;

[Klaus01]

Hallo,

BeginUpdate vor der Schleife
EndUpdate noch der Schleife.

Grüße
Klaus

[himitsu]

Erstmal ist es totaler "Schachsinn" überhaupt soviele Zeilen in einem Memo verarbeiten zu wollen.
Wer will sich das alles ansehn?

TStringList geht schneller, da hier jede Zeile "einzeln" ist und damit alles schnell verarbeitet wird.
(Memo.Text > StringList.Text > die StringList verarbeiten > StringList.Text > Memo.Text)

TMemo ist nunmal nicht für eine massenhafte String-Verarbeitung geeignet, denn dort befindet sich alles in einem Speicherblock, also für das Einfügen eines Zeichens am Anfang werden alle nachfolgenden Zeichen verschoben.
und bei 1 Mio. Zeilen muß da viel verschoben werden.

Ohne BeginUpdate wird dabei auch noch jedesmal die GUI geupdatet, was dann nochmals massig Rechenleistung verbrät.

usw.