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

[-lx-]

Hallo.

Entschuldigung bitte für den etwas komischen Titel abe rmir ist nicht wirklich etwas sinnvolles eingefallen, da mein Gefühl für Sinn bereits verloren gegenagen ist - zumindest bei dme Problem was ich euch nun schildere.

Also es geht darum. Man drückt auf eine Button. Darauf wird in ein Memofeld ein Zusätzliches STück Text gehängt und die Beschriftung des Buttons wird geändert. Wenn man nun wieder auf den gleichen Button klickt, wird wiederum ein Stück Text in das MemoFeld geschriben und die Beschriftugn des Textes wieder in den Urzustand zurckversetzt.
ich bekomm e sjedoch nicht gebacken, dass es funktioniert. Warscheinlich ein blöder Fehler und ich werde im Nachhinein sagen "U're a such a fool"

nun gut... hier ist der Quelltext:

Delphi-Quellcode:

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

end.

Mit freundlichen Grüßen