Probleme mit Case anweisung

[Gehstock]

Delphi-Quellcode:

Var
land : string;
prov : string;
begin
land := Copy(MaskEdit6.Text, 1, Length(MaskEdit6.Text)-2);
prov := MaskEdit6.Text [6];

case (land) of
'0000':Label53.Caption :=  'Keiner';
'020C':Label53.Caption :=  'Deutschland';
'01d0':Label53.Caption :=  'Österreich';
'01c8':Label53.Caption :=  'Schweiz';

er sucht einen ordinal type

[mkinzler]

Strings sind keine ordinale Typen, es müßen z.B. Integer sein.

[3_of_8]

Das geht so nicht. Case funktioniert nur mit Ordinaltypen. Ein String ist kein Ordinaltyp.

Wenn man sich mal den ASM-Code für case ansieht, versteht man auch warum.

Außerdem fehlt ein end;

[turboPASCAL]

bei einer Case - Anweisung muss der Typ ordinal sein. (Integer, Byte etc.)

[Gehstock]

und wie bekomm ich den maskEdit.text in ordinal

[3_of_8]

Gar nicht. Ifs verwenden. Oder ein Array, Stringlist sowas in der Art.

[Hawkeye219]

Hallo Gehstock,

in deinem Beispiel sind die CASE-Labels Hexadezimalzahlen. Falls dies für alle möglichen Werte gilt, könntest du folgende Lösung verwenden:

Delphi-Quellcode:

case StrToIntDef('$' + land, -1) of
  $0000 : Label53.Caption := 'Keiner';
  $020C : Label53.Caption := 'Deutschland';
  $01D0 : Label53.Caption := 'Österreich';
  $01C8 : Label53.Caption := 'Schweiz';
else
  Label53.Caption := '(ungültig)';
end;

Handelt es sich nicht nur um Hexadezimalwerte, solltest du dir die Funktion AnsiIndexText ansehen: klick

Gruß Hawkeye

[Gehstock]

Danke

So anderes problem

also im MaskEdit.Text wird zb. folgendes eingegeben "01B500"das soll in bin gewandelt werden "0000 0001 1011 0101 0000 0000" und dann bestimmten stellen der binzahl bestimmte eigenschaften zugeordnet werden.

geht das über "StrToBin" oder "HexToBin" und wie

[marabu]

Hallo,

die einzige Konvertierung, die du wirklich brauchst, ist die mittels StrToInt() - wie sie Hawkeye schon gezeigt hat. Willst du ein bestimmtes Bit auswerten, dann geht das z.B. so:

Delphi-Quellcode:

function TestBit(const c: Cardinal; const bit: Byte): Boolean;
begin
  Result := Odd(c shr bit);
end;

Grüße vom marabu