Einzelnen Beitrag anzeigen

Benutzerbild von xShadowBoZz
xShadowBoZz

Registriert seit: 19. Jan 2008
Ort: Deutschland ~.~
80 Beiträge
 
Delphi 7 Enterprise
 
#1

If / then / Else Problem mit mehreren Ak-/Funktionen?

  Alt 20. Jan 2008, 17:22
Hi erstmal,
ich hab hier im forum schon ein bisschen rumgesucht, nix gefunden und weis auch nicht genau was ich als suchbegriff eingeben soll.
ich habe folgendes problem:
(in diesem fall)
ich hab hier schon einmal gefragt wie man ein edit feld mithilfe einer chechbox zensieren kann, soweit so gut klappt das auch aba wenn ich mit einer checkbox mehrer edit felder zensieren will klappt das nicht.
ich habs einmal schon mit folgendem probiert, bin aba gescheitert.

Delphi-Quellcode:
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
If Checkbox2.Checked then
  Form1.Edit3.PasswordChar := '*'
  Form1.Edit5.PasswordChar := '*'
    else
      Form1.Edit3.PasswordChar := #0;
      Form1.Edit5.PasswordChar := #0;
end;
dann kommt folgender Error:

[Error] Unit2.pas(186): Missing operator or semicolon

(unten drunter is dann noch ein error, weis aba grad net ob des dazu gehört oda ob des einer von vohind war, naja egal hier ist er)
unten drunter:

[Fatal Error] Project.dpr(8 ): Could not compile used unit 'Unit2.pas'

wobei der erste angezeigt wird(mit dem dreieck pfeil).
dann hab ich einfach mal probiert nach
  Form1.Edit5.PasswordChar := '*' ein semicolon zu machen(; )
da blieb der fehler trotzdem und dann kam noch einer dazu, der, der sagt das man kein ; vor else haben darf.

[Error] Unit2.pas(186): Missing operator or semicolon
[Error] Unit2.pas(187): ';' not allowed before 'ELSE'
[Fatal Error] Project.dpr(8 ): Could not compile used unit 'Unit2.pas'

wenn ich jetzt noch ein ; nach
  Form1.Edit3.PasswordChar := '*' mache geht der "Unit2.pas(186) Error" weg aba der "';' not allowed error" bleibt, und den krieg ich ja nur weg wenn ich die ';' weg mache, dann erscheint aba wieder der "Missing operator or semicolon error" und so geht des halt immer so weiter.

gibt es dafür eine lösung, also 2Aktionen zwischen 'If' und 'Else' zu "Erstellen" , wie auch nach else(wobei das wohl kein problem sein wird, schätz ich mal)?

mfg
andy
Andreas
  Mit Zitat antworten Zitat