'Ich hab ein Brett vor dem Kopf' oder 'inc(var)'

[tomsel]

Das ist doch ganz einfach: Du hast eine lokale Variable VFett in deiner Prozedur. Die hat zu Beginn irgendeinen zufälligen Wert, auf den du 1 addierst (also Zufall + 1, he, he). Manchmal ist das sogar 1 oder 2, meistens aber was anderes.

Deklariere in TForm1 eine private Variable VFett:boolean und initialisiere die in FormCreate mit FALSE.

Die Prozedur so abändern:

Delphi-Quellcode:

procedure TForm1.SBbClick(Sender: TObject);
begin
If not VFett Then
begin
   MText.Text:= MText.Text + ' [b] ' ;
   SBb.Caption:= '[/b]' ;
end
Else
begin
   MText.Text:= MText.Text + ' [/b] ' ;
   SBb.Caption:='[b]' ;
end;
VFett := not VFett
end;

--------------------------------
jaja, zu langsam