case und Variable

[lume96]

Moin,

hier mal ein kleines Beispiel

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  int : array[1..5] of integer; // Deklaration eines Array mit 5 Integer-Elementen
  i : integer;
begin

  // Zuweisung der Werte
  int[1] := 10; 
  int[2] := 20;
  int[3] := 30;
  int[4] := 40;
  int[5] := 50;

  for i := 1 to 5 do
  // Auswertung mit Hilfe eines Case .. of
  case int[i] of
    10 : MessageDlg('zehn',mtInformation,[MbOK],0);
    20 : MessageDlg('zwanzig',mtInformation,[MbOK],0);
    30 : MessageDlg('deizig',mtInformation,[MbOK],0);
    40 : MessageDlg('vierzig',mtInformation,[MbOK],0);
  else
    MessageDlg('anderer Wert',mtInformation,[MbOK],0);
  end;

  

end;

Hoffe, das hilft.
MfG
Lutz