else exit Problem ?

[thomas2009]

Hallo

auf einmal funktioniert mein Programm nicht
alle Programm-Stücke mit "Exit" meldet Delphi eine Fehlermeldung !
Vorher ging aber

beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_BITMAP) then
showMessage('Grafik')
else
exit; // Error
end;

Ich weiß nicht was ich in mein Programm geändert habe, dann auf einmal Fehler überall !
Aber sicher nicht in diesem Bereich wo Delphi Fehler meldet

[Helmi]

Welcher Fehler wird dir denn angegeben?

[Apollonius]

Vor else darf kein Semikolon stehen. Aber diese Fehlermeldung ist gewöhnlich sehr deutlich.

[thomas2009]

Zitat:

Zitat von Apollonius

Vor else darf kein Semikolon stehen. Aber diese Fehlermeldung ist gewöhnlich sehr deutlich.

Ja, ich habe den Rest gelöscht, darum ist dort Simikolon geblieben
Ich habe den Code oben editiert

[Error] Unit1.pas(xx37): Statement expected, but expression of type 'TMenuItem' found

[Hawkeye219]

Hallo,

du solltest deinem MenuItem nicht den Namen "Exit" geben...

Gruß Hawkeye

[mirage228]

Zitat:

Zitat von thomas2009

[Error] Unit1.pas(xx37): Statement expected, but expression of type 'TMenuItem' found

Hast Du Deinem MenuItem zufällig den Namen "Exit" gegeben? (Was das Problem erklären würde)
Kannst Du sonst den gesamten Code posten?
[edit]Kein roter Kasten :P[/edit]

[thomas2009]

Das stimmt
Ich habe einen Item-Namen von dem MainMenu "Exit" eingegeben
Ich hätte nicht drauf kommen können

Danke!