case of und MessageDlg Abfrage

**flomei**

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:

zusammenfalten · markieren

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!

case of und MessageDlg Abfrage

case of und MessageDlg Abfrage

Forumregeln