Einzelnen Beitrag anzeigen

-lx-
(Gast)

n/a Beiträge
 
#5

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

  Alt 27. Jan 2006, 18:00
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 ....
  Mit Zitat antworten Zitat