TColorscheme als String

[uligerhardt]

Wenn du mit den Enum-Namen (in Englisch mit cs... vornedran) klarkommst, würde ich vorschlagen, du nimmst Apollonius' Vorschlag. Anderenfalls musst du selber was basteln. Ich hab mir mal die Freiheit genommen, Progmans Lösung etwas zu vereinfachen:

Delphi-Quellcode:

const
  ColorSchemeStrings: array[TColorScheme] of string = ('Neo Desert', 'Neo Sky',
    'Neo Grass', 'Neo Silver', 'Neo Rose', 'Neo Sun',
    'Desert', 'Grass', 'Sky', 'Sun', 'Rose', 'Silver',
    'Custom');

function TForm1.GetColorScheme(const s: string): TColorScheme;
var
  cs: TColorScheme;
begin
  for cs := Low(TColorScheme) to High(TColorScheme) do
    if s = ColorSchemeStrings[cs] then
    begin
      Result := cs;
      Exit;
    end;
  raise EConvertError.CreateFmt('%s ist kein TColorScheme.', [s]);
end;

HTH,
Uli.