Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - If abfrage


hedie - Mo 10.01.05 22:27
Titel: If abfrage
He sorry aber ich habs nicht so mit den if abfragen

könnt ihr mir vieleicht nochmal helfen


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TformMain.Button10Click(Sender: TObject);
begin
if serial.Text = 'ab458sd' then begin
ShowMessage('OK Richtiger Key');
Button2.Enabled := True;
Button4.Enabled := True;
Button6.Enabled := True;
Button9.Enabled := True;
else
showmessage ('falscher key')
end;
end


was ist da nur falsch?

grüsse
hedie

Moderiert von user profile iconChristian S.: Code- durch Delphi-Tags ersetzt.
Moderiert von user profile iconChristian S.: Topic aus Internet / Netzwerk verschoben am Mo 10.01.2005 um 21:30


Christian S. - Mo 10.01.05 22:31

So geht es:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
procedure TformMain.Button10Click(Sender: TObject);
begin
  if serial.Text = 'ab458sd' then
  begin
    ShowMessage('OK Richtiger Key');
    Button2.Enabled := True;
    Button4.Enabled := True;
    Button6.Enabled := True;
    Button9.Enabled := True;
  end
  else
    showmessage ('falscher key');
end;


retnyg - Mo 10.01.05 22:32


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TformMain.Button10Click(Sender: TObject);
begin
  if serial.Text = 'ab458sd' then 
  begin
    ShowMessage('OK Richtiger Key');
    Button2.Enabled := True;
    Button4.Enabled := True;
    Button6.Enabled := True;
    Button9.Enabled := True;
  end
  else showmessage ('falscher key');
end;


hedie - Mo 10.01.05 22:33

folgende fehler meldungen

[Fehler] Main.pas(263): Record, Objekt oder Klassentyp erforderlich
[Fehler] Main.pas(270): 'END' erwartet, aber Dateiende gefunden
[Fataler Fehler] SendMail.dpr(27): Verwendete Unit 'Main.pas' kann nicht compiliert werden

vielen dank für die rasche antwort


Christian S. - Mo 10.01.05 22:34

Sorry, habe gerade nochmal editiert. :oops:


hedie - Mo 10.01.05 22:48

ausdruck muss boolean sein hmm?


Quelltext
1:
if Button2.Enabled := False then                    


JayEff - Mo 10.01.05 22:55

hedie hat folgendes geschrieben:

Quelltext
1:
if Button2.Enabled := False then                    

blödsinn... :D WENNSCHON dann

Delphi-Quelltext
1:
if Button2.Enabled = False then                    


hedie - Mo 10.01.05 23:05

merci in zwischen klappt es vielen dank für die schnelle hilfe

grüsse hedie

p.s. es soll endlich mal einer redio basilisk höhren 8) [/url]http://www.basilisk.ch[url]


Kroni - Mo 10.01.05 23:15


Delphi-Quelltext
1:
if  NOT Button1.enabled then .....                    

auch wenn das prob beseitig ist, das sieht schöner aus^^