Delphi If-Anweisung zu einer Case-Anweisung "konvertieren"

Thema durchsuchen

Ansicht

Themen-Optionen

If-Anweisung zu einer Case-Anweisung "konvertieren"

Ein Thema von gasty · begonnen am 15. Nov 2007 · letzter Beitrag vom 15. Nov 2007

Vorheriger Beitrag

Nächster Beitrag

mkinzler

(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge

Delphi 11 Alexandria

Re: If-Anweisung zu einer Case-Anweisung "konvertieren&

15. Nov 2007, 19:52

markieren

Delphi-Quellcode:

			case c of

    1: 

      begin

        Edit1.Text := ('');

        MessageBoxA(Form1.handle, 'Tip 1: Huhn auf Englisch', '*Tips*', MB_OK);

        MessageBoxA(Form1.handle, 'Tip 2: Kopfschuss auf Englisch', '*Tips*', MB_OK);

        MessageBoxA(Form1.handle, 'Tip 3: Best Dog in da World !', '*Tips*', MB_OK);

        button5.caption := 'Ich bin sehr dumm gib mir mehr Tips';

      end;

  2:   ...