Thema: Delphi Noten als enum auslegen

Einzelnen Beitrag anzeigen

Benutzerbild von EWeiss
EWeiss

Registriert seit: 16. Okt 2010
6.373 Beiträge
 
Delphi 2010 Architect
 
#5

AW: Noten als enum auslegen

  Alt 16. Apr 2018, 16:42
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
  Mit Zitat antworten Zitat