Oha... mit so ne schnellen Antworten habe ich garnicht gerechnet!
Jaa da kommt durchaus die Meldung "...konnt enicht initialisiert werden." aber ich wusste nicht was er damit meinte.
Was meinst du mit der Stelle:
VFett := not VFett;
und
If VFett Then
???
Bei der IF Abfrage wir ddoch nichts verglichen... !?
Könntets du mir die Stellen erläutern ?
mfg
CYa
/€dit: Ich habe das jetzt so geöst, dass ich die Var VFett als globale Variable mit dem Wert 0 deklariert habe.
Delphi-Quellcode:
procedure TForm1.SBbClick(Sender: TObject);
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]' ;
VFett:= 0 ;
end;
end;
end.
Globale Var:
Delphi-Quellcode:
var
Form1: TForm1;
Satz: String;
VFett: Integer = 0 ;
So nun abe rnoch eine Frage: Wie stelle ich es an, dass der Curser im Memofeld immer am Textende platziert wird ?
@ tomsel
mit
VFett:= Vfett + 1 ;
habe ich e sja versucht aber es ging komischer weise nicht ....