Einfache Fall-Entscheidung bei hexadezimalen Werten?

[Hawkeye219]

Du kannst die FOR-Schleife natürlich auch in der "herkömmlichen" Art programmieren und das zu untersuchende Zeichen über den Schleifenindex aus dem Schlüssel extrahieren:

Delphi-Quellcode:

procedure AnalyzeKey (const aKey: string); 
var
  [...]
  i: Integer;
begin
  [...]
  for i := 1 to Length(aKey) do
    begin
      ch := aKey[i];
      Value := StrToIntDef('$' + ch, 0); 
      [...]
    end;
  [...]
end;

Gruß Hawkeye