Hi,

Ich habe ein Problem mit meinem Prog.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain.ToolButton2Click(Sender: TObject);
begin
 StatusBar1.Panels[1].Text := 'Bitte warten...';

 ToolButton2.Enabled := False;
 ToolButton3.Enabled := False;
 ToolButton5.Enabled := False:

 Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '111', 'in ', [rfReplaceAll]);
 ProgressBar1.StepIt;
 Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '222', 'das', [rfReplaceAll]);
 ProgressBar1.StepIt;
 Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '333', 'von', [rfReplaceAll]);
 ProgressBar1.StepIt;
 ...
end;

Wenn ich jetzt auf den ToolButton2 klicke, startet es, aber erst ab Memo1.Lines... Also alles davor wird einfach übersprungen ! Wenn ich jetzt aber zwischen ToolButton5... und Memo1..., ShowMessage('Hallo'); setze, werden die oberen befehle nicht übersprungen. Warum is das so und wie kann ich alles ausführen, ohne das ich ne meldung anzeigen muss ?

MFG

hmm... weiß net obs damit zu tun hat aber:

markieren

Code:

ToolButton5.Enabled := False:

<- da is ein Doppelpunkt, kein Senikolon

Oh, kleiner Tipfehler. Aber nein, daran liegts nicht. Es funktioniert immer noch nicht

markieren

Code:

StatusBar1.Panels[1].Text := 'Bitte warten...';

hmm... wie hast du denn das l deklariert, oder welchen Wert hat es?

Hast du es mal so probiert?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMain.ToolButton2Click(Sender: TObject);
begin
StatusBar1.Panels[1].Text := 'Bitte warten...';

ToolButton2.Enabled := False;
ToolButton3.Enabled := False;
ToolButton5.Enabled := False;

Application.ProcessMessages; // <---

Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '111', 'in ', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '222', 'das', [rfReplaceAll]);
ProgressBar1.StepIt;
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '333', 'von', [rfReplaceAll]);
ProgressBar1.StepIt;
...
end;

die befehle werde nicht übersprungen.
nur die vcl hat keine zeit mehr die buttons und labels neuzuzeichnen.

im post vor meinen ist die lösung.
wenn du programmteile hast die länger laufen solltest du processmessages aufrufen damit die form nicht einfriert.
du kannst den prozess der lange dauert auch einfach in einen thread verbannen.

Du siehst beim Kompilieren auch schon, ob zeilen übersprungen werden, oder nicht.

Die, die ausgeführt werden, sind links mit einem blauen Punkt gekennzeichnet.

Moin Äfan,

es ist übrigens keine gute Idee immer direkt Memo1.Lines.Text anzusprechen.
Speichere Dir lieber Memo1.Lines.Text zu Beginn in einem String, verarbeite den, und schreibe ihn zum Schluss wieder zurück.

Jedesmal, wenn Du die Eigenschaft Text ausliest, wird sie aus den Lines zusammengebaut, und beim Schreiben dann natürlich umgekehrt.
Das drückt erheblich auf die Performance.