case STRING of ?

[Pseudemys Nelsoni]

hoi,

kann ich in case anweisungen auch andere sachen als char u. integer benutzen? das würds mir viel leichter machen...

bei:

Delphi-Quellcode:

case command of
  '374':  begin
            //irgendwas
          end;
  '376':  begin
            //irgendwas
          end;
  '377':  begin
            //irgendwas
          end;
end;

bekomme ich den fehler, das der typ Ordinal sein muss

:(

[Hansa]

Dann hast Du doch schon die Antwort, warum fragst Du? Mußt halt auf if zurückschalten. :mrgreen:

[Luckie]

Esrtmal so nicht, da case nur ordinal Werte auswerten kann. Man kann auch eine Konstruktion basteln mit der man auch Strings auswerten kann, diese ist aber, meiner Meinung nach, Murks.

[Pseudemys Nelsoni]

ich frag mich wo das problem liegt das auch für strings zu realisieren?

[Pseudemys Nelsoni]

hmz, ok, danke^^

[Hansa]

Wenn ich mir aber mal Deine Zahlen 374, 376,377 ansehe, dann liegt doch auf der Hand nur 4,6,7 zu berücksichtigen und das kannst Du dann mit

Delphi-Quellcode:

CASE

[Illuminator-23-5]

sonst dürfte folgendes reichen:

Delphi-Quellcode:

function caseHelp(text: string; list: array of string): integer;
var
  i: integer;
begin
  result := 0;
  for i := 0 to length(list) - 1 do
    if list[i] = text then
      result := i;
end;

das ganze ruft man dann so auf:

Delphi-Quellcode:

case caseHelp(command, ['374', '376', '377'{, ...}] of
  0: ...
  1: ...
  2: ...
end;

[Hansa]

Ja, so habe ich das auch schon gemacht. So gehts auch. :thuimb: Oder wie wärst den String in eine Zahl umzuwandeln, sofern er nur Zahlen enthält? :mrgreen:

[CalganX]

Warum denn eigentlich so umständlich?

Delphi-Quellcode:

case StrToInt(command) of
  374: {...}
  {...}
end;

Chris

PS: Das Suchen in der Code-Library hätte auch was ergeben: case string

[Hansa]

was ist da umständlich ? :hi: Trittbrettfahrer :mrgreen: