Hallo Leute!
Habe die Suche schon benutzt aber leider nichts passendes gefunden...
Ich habe abhängig von einer globalen Variable (welche die Sprache angibt) verschiedene Dialoge.
Das wollte ich (weil es ja schöner ist
) mit
case of realisieren. Nun stellt sich aber ein Problem.
Hier mal der Quelltext:
Delphi-Quellcode:
procedure TMainForm.QuitDialog(Sender: TObject; var CanClose: Boolean);
begin
case Language of
0: begin
MessageDlg('Vielen Dank für den Einsatz von' +#13
+' ..:: Encrypt / Decrypt ::..'+#13+#13
+'Beenden?', mtInformation,
[mbYes, mbNo],0)= mrYes //<--- Fehlermeldung: ':=' erwartet aber '=' gefunden
then //<--- Fehlermeldung: 'END' erwartet aber 'THEN' gefunden
CanClose := true
else
CanClose := false;
end;
1: begin //<--- Fehlermeldung: Unbekannter Bezeichner: '1'
MessageDlg('Thanks for using' +#13
+' ..:: Encrypt / Decrypt ::..'+#13+#13
+'Quit?', mtInformation,
[mbYes, mbNo],0)=mrYes //<--- Fehlermeldung: ':=' erwartet aber '=' gefunden
then //<--- Fehlermeldung: 'END' erwartet aber 'THEN' gefunden
CanClose := true
else
CanClose := false;
end;
end; //<--- Fehlermeldung: '.' erwartet aber ';' gefunden
end; //<--- Fehlermeldung: Text hinter finalem 'END.' - vom Compiler ignoriert.
Dann meint er noch:
Zitat:
[Error] MainFormUnit.pas(32): Unsatisfied forward or external declaration: 'TMainForm.ImgGermanClick'
[Error] MainFormUnit.pas(33): Unsatisfied forward or external declaration: 'TMainForm.ImgEnglishClick'
[Error] MainFormUnit.pas(34): Unsatisfied forward or external declaration: 'TMainForm.FormCreate'
Diese Zeilen sind ja ganz oben in der
Unit wo die Prozeduren alle stehen
Hat das was damit zu tun???
Wo liegt der Fehler im
case of Block? Ich kann irgendwie keinen erkennen. Aber vielleicht könnt ihr mir ja helfen.
Danke im Vorraus!
MfG Florian
P.S.: Ich wollte mal nen kleinen Textverschlüsseler schreiben
Bin hoffentlich bald fertig!