[Delphi]Błąd- Jak wykonać tylko raz...

[Luksor]

Otóż mam w RichEdit w evencie OnChange, warunek który sprawdza czy zmienna IsHtml = true.

Jeśli wartość się zgadza wykonuje akcję kolorowania składni HTML.

Ale tutaj jest jakiś błąd: Gdy napiszę coś w RichEdit (warunek się zgadza) to kolorowanie składni uruchamia się co step ( :jezor: ) aż do wyświetlenia erroru.

 

Jak zrobić aby ta akcja wykonała się tylko 1 raz?

 

Chciałem to zrobić na zmiennych, ale wy wymyślicie pewnie lepszy sposób bo po co zaśmiecać pamięć zmiennymi. :P

[gnysek]

coś na zasadzie IsHtml = true and Kolorowanie = false.

[Luksor]

coś na zasadzie IsHtml = true and Kolorowanie = false.

Że tak powiem... Co? :blink:

[Yoda]

Dodaj dodatkowy warunek i dodatkową zmienną. Dzięki której wykona się to tylko raz.

[Luksor]

Dodaj dodatkowy warunek i dodatkową zmienną. Dzięki której wykona się to tylko raz.

Czyli jak? Możesz podać kod? Ja swój wypróbowałem i kicha! Ciągle to samo.

[g-Enjoy]

var
  Form1: TForm1;
  IsHtml: boolean;
  kolorowanie: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
if IsHtml = true and Kolorowanie = false then
begin
ShowMessage('Test');
end;

 

Masz

[Pieter]

@up: no prawie:

 

var
  Form1: TForm1;
  kolorowanie: boolean;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Kolorowanie := true;
end;

procedure costam(IsHtml:boolean);
begin
if (IsHtml = true) and (Kolorowanie = true) then
begin
ShowMessage('Test');
Kolorowanie := false; // zeby juz nie wykonalo sie 2 raz :P
end;

[gnysek]

Nom dokładnie o to mi chodziło :) Może mało obrazowo powiedziałem, ale niektórzy załapali od razu :P