Variable mit mehreren Werten vergleichen ohne "OR" ?

[Hawkeye219]

Hallo MaBuSE,

hier eine Erweiterung deiner Idee:

Delphi-Quellcode:

// uses StrUtils (AnsiIndexText)

procedure MachNix;
begin
end;

procedure rohr;
begin
end;

procedure schraube;
begin
end;

procedure schraubendreher;
begin
end;

const
  JumpTable: array [-1..2] of procedure = (MachNix, rohr, schraube, schraubendreher);

var
  s : string;
  i : Integer;
begin
  s := 'ScHrAuBe';
  i := AnsiIndexText(s, ['rohr', 'schraube', 'schraubendreher']);
  JumpTable[i];
end;

Gruß Hawkeye