If-Anweisung zu einer Case-Anweisung "konvertieren"

[mkinzler]

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:   ...