CaseStr

hansa · Beiträge: 3079 Erhaltene Danke: 9

Hi,

hier ist noch was für den FAQ Beitrag mit dem CaseStr. Da kann ich ja nichts hinschreiben. Das macht fast dasselbe. Oder doch nicht ? Ich brauche nur diese Prozedur gar nicht.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormCreate(Sender: TObject);
const str : ARRAY [1..3] of string = ('str1','str2','str3');
var i : integer;
Begin
  i := 2;
  Case i of
    0: ShowMessage('Str1');
    1: ShowMessage('Str2');
    2: ShowMessage('Str2');
  Else
    ShowMessage('Keine übereinstimmung gefunden!');
  End;
end;

_________________
Gruß
Hansa

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo!

Wie, wo, was? Hast du jetzt eine Frage oder ist das ein FAQ Beitrag oder was genau?

Gruß
Tino

maxk · Verfasst: Do 24.07.03 20:50

Ich glaube das soll eine Bemerkung zu einem FAQ sein. Kann man ja leider nicht antworten - ist gut so :wink:

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme