Habe ein Problem beim Einfärben der Schrift im RichEdit.
Mein Programm hängt sich immer auf !
Delphi-Quellcode:
procedure TForm1.ColorBox1Select(Sender: TObject);
var
x : integer;
begin
while ColorBox1.Selected <> RichEdit1.SelAttributes.Color do begin
ColorBox1.ItemIndex := x; // <- welcher Wert???
Inc(x);
end;
end;
Was ist mein Fehler
Wenn dein Programm zum ersten Mal an die Stelle kommt
ColorBox1.ItemIndex := x;
, welchen Wert - denkst du - hat dann x?
Dieser Gedanke ist falsch und die (vermeintliche) Endlosschleife ist nicht endlos, sondern du bis nur zu ungeduldig.
(Warte einfach ein paar Minuten, je nach CPU-Geschwindigkeit und Mondphase)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)