Delphi an das Ende eines memo's einen doppelpunkt setzen

[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;