zahlwert in wort+farbe umwandeln

[jfheins]

Das geht entweder über ein konstantes Array oder mit einem Case-Statement

ersteres sieht ungefähr so aus:

Delphi-Quellcode:

function IntToColorStr(a: Integer):String
const
  Table: array of String = ['grün', 'gelb', 'rot'];
begin
  Result := Table[a];
end;

zweiteres:

Delphi-Quellcode:

function IntToColorStr(a: Integer):String
begin
  case a of
  begin
    0: Result := 'grün';
    1: Result := 'gelb';
    2: Result := 'rot';
  end;
end;