Fehlermeldung: 'ordinal type required'

Computer: Software & Programmierung Delphi & Pascal
#1

Hi Leute,

procedure …
begin
case CoBx1Deckblatt.Items of
1: ShowMessage(‚1‘);
2: ShowMessage(‚2‘);
3: ShowMessage(‚3‘);
end;
end;

Also ich möchte verschiedene Anweisungen ausführen je nachdem welcher TString in der Combobox gewählt wird. Doch da kommt immer die Fehlermeldung: „Ordinal type required“ .

Wäre euch für einen Lösungsvorschlag sehr dankbar.

Gruß
Thomas

#2

Hallo,

procedure …
begin
case CoBx1Deckblatt.Items of
1: ShowMessage(‚1‘);
2: ShowMessage(‚2‘);
3: ShowMessage(‚3‘);
end;
end;

so gehts:

procedure ...
begin
 case CoBx1Deckblatt.ItemIndex of
 0: ShowMessage('1');
 1: ShowMessage('2');
 2: ShowMessage('3');
end;

Also ich möchte verschiedene Anweisungen ausführen je nachdem
welcher TString in der Combobox gewählt wird. Doch da kommt
immer die Fehlermeldung: „Ordinal type required“ .

Die „case“-Anweisung benötigt eine Variable von ordinalem Typ. Ordinale Typen sind abzählbare Typen. „Items“ ist vom Typ TStrings dh es ist eine Klasse und damit nicht abzählbar. Abzählbar sind zB alle Integer-Typen (dazu gehört auch ItemIndex), der Typ char etc. Die Zählung von ItemIndex beginnt bei 0. Ist kein Eintrag ausgewählt, hat ItemIndex den Wert -1.

Wäre euch für einen Lösungsvorschlag sehr dankbar.

Bitte schön.

Gruss, Niels

#3

Danke
vielen Dank,

funtioniertt jetzt

Thomas