Noten als enum auslegen

[EWeiss]

Zitat von Zacherl:

Naja, einfach anders benennen halt C_HALF/C_MAJOR oder so.

Delphi-Quellcode:

function TransposeChord(sChord: string; Pitch: Integer): string;
var
  sResult: string;
  sTranspose: Array[1..12] of TTranspose;
  K, MaxK, Found: Integer;
begin

  sResult := sChord;
  MaxK := High(sTranspose);

  for K := 1 to MaxK do
  begin
    if sTranspose[K] = sChord then
    begin
      Found := (K + Pitch) mod MaxK;
      if Found < 1 then
        inc(Found, MaxK);

      sResult := sTranspose[Found];
      break;
    end;
    Result := sResult;
  end;
end;

Nun einfach?
Umbenennen ist nicht möglich wie gesagt ich brauche den String 'C#'

gruss