Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - bei bedingung 2 befehle ausführen?


110022 - Mi 28.11.07 21:16
Titel: bei bedingung 2 befehle ausführen?

Delphi-Quelltext
1:
if not  (memo1.lines.text=''then (form4.showmodal) and (PlaySound('default'0, SND_SYNC));                    

Diese Fehlermeldung kommt

Delphi-Quelltext
1:
[Fehler] Unit1.pas(122): Operator ist auf diesen Operandentyp nicht anwendbar                    


wie bearbeite ich das so dass es klappt?


Gausi - Mi 28.11.07 21:20

Ups, da fehlen ein paar Grundlagen, was?

So geht das:

Delphi-Quelltext
1:
2:
3:
4:
5:
if not (memo1.lines.text=''then 
begin
  form4.showmodal;
  PlaySound('default'0, SND_SYNC);
end;

Allerdings dürfte der Sound erst dann abgespielt werden, wenn die Form wieder geschlossen wird.


Atreyu - Mi 28.11.07 22:40

Sieht so aus, als willst du eine Fehlermeldung ausgeben. Da würde ich keine Extra Form bauen, sondern nur ShowMessage(); oder MessageDlg() verwenden.