Noten als enum auslegen

[JasonDX]

Eine separate Methode zum Konvertieren zwischen Enum und String wäre dann sinnvoll.

[EWeiss]

Zitat von JasonDX:

Eine separate Methode zum Konvertieren zwischen Enum und String wäre dann sinnvoll.

Dann mache ich es so..

Delphi-Quellcode:

const
cTranspose : Array[TTranspose ] of String = ('C, 'C#, 'D, 'D#');

und benenne das enum um.
Danke.

gruss

[EWeiss]

Sorry bin wieder blöd heute.

Delphi-Quellcode:

type  
  TTranspose = (C, C_, D, D_, E, F, F_, G, G_, A, A_, B);

const
  cTranspose : Array[TTranspose] of String = ('C', 'C#', 'D', 'D#', 'E', 'F', 'F#',
    'G', 'G#', 'A', 'A#', 'B');

Delphi-Quellcode:

function TransposeChord(sChord: string; Pitch: Integer): string;
var
  sResult: string;
  sTranspose: Array[0..11] of TTranspose; // scheint ein Problem mit dieser Definition zu sein. aber brauche ein Array wenn auch vielleicht nicht dieses
  K, MaxK, Found: Integer;
begin

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

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

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

kann mir bitte jemand auf die Sprünge helfen ?

gruss

[himitsu]

# gibt es so ähnlich auch als andere Unicodezeichen ... wenn dieses andere Zeichen vom Compiler als "gültiges" alphanumerisches Zeichen anerkannt ist, dann könnte man auch das nehmen.
Aber ohne Codevervollständigung oder Copy&Paste sind solche Namen dann schwer zu schreiben, so als würdest du ohne IME versuchen chinesische Typenbezeichner zu verwenden.

[EWeiss]

Zitat von himitsu:

# gibt es so ähnlich auch als andere Unicodezeichen ... wenn dieses andere Zeichen vom Compiler als "gültiges" alphanumerisches Zeichen anerkannt ist, dann könnte man auch das nehmen.
Aber ohne Codevervollständigung oder Copy&Paste sind solche Namen dann schwer zu schreiben, so als würdest du ohne IME versuchen chinesische Typenbezeichner zu verwenden.

Bekomme hier außerhalb des gültigen Bereich.
if cTranspose[sTranspose[K]] = sChord then

Ich erzeuge hier 12 x mal TTranspose
sTranspose: Array[0..11] of TTranspose;

Obwohl ich nur den Wert innerhalb eines einmalig erstellen TTranspose benötige.
Das scheint mein Fehler zu sein. (Array ist eigentlich überflüssig) Hmmm...
Aber ohne kann ich K nicht auswerten.

Heute ist ein schlechter Tag.. Hehehehehehe

EDIT:
Ok hat sich erledigt.

Delphi-Quellcode:

function TransposeChord(sChord: string; Pitch: Integer): string;
var
  sResult: string;
  K, MaxK, Found: Integer;
begin

  sResult := sChord;
  MaxK := 12;

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

      sResult := cTranspose[TTranspose(Found)];
      break;
    end;
    Result := sResult;
  end;
end;

gruss

[Luckie]

Nimm doch "Cis" usw. Allerdings müsstest du dann beim "H" (dt.) aufpassen.

C_Major (C-Dur) wäre übrigens falsch. Es geht um einzelne Noten, nicht um Akkorde.

[EWeiss]

Zitat von Luckie:

Nimm doch "Cis" usw. Allerdings müsstest du dann beim "H" (dt.) aufpassen.

C_Major (C-Dur) wäre übrigens falsch. Es geht um einzelne Noten, nicht um Akkorde.

Ja könnte man machen aber ich denke so ist es auch verständlich.
TTranspose = (C, C_, D, D_, E, F, F_, G, G_, A, A_, B);

Bin ja noch am Anfang.

gruss

[Delphi.Narium]

TTranspose = (C, Cis, D, Dis, E, F, Fis, G, Gis, A, Ais, B); ist auch für 'nen Musiker ohne Programmierkenntnisse verständlich. Der _ macht keinerlei Aussage darüber, was gemeint sein könnte. Um es zu verstehen, muss man bereits wissen, was gemeint ist. Bei der von Luckie vorgeschlagenen alternativen Nutzung der regulären Tonbezeichnungen, ist das nicht erforderlich.

[Amateurprofi]

Zitat von EWeiss:

Zitat von himitsu:

# gibt es so ähnlich auch als andere Unicodezeichen ... wenn dieses andere Zeichen vom Compiler als "gültiges" alphanumerisches Zeichen anerkannt ist, dann könnte man auch das nehmen.
Aber ohne Codevervollständigung oder Copy&Paste sind solche Namen dann schwer zu schreiben, so als würdest du ohne IME versuchen chinesische Typenbezeichner zu verwenden.

Bekomme hier außerhalb des gültigen Bereich.
if cTranspose[sTranspose[K]] = sChord then

Ich erzeuge hier 12 x mal TTranspose
sTranspose: Array[0..11] of TTranspose;

Obwohl ich nur den Wert innerhalb eines einmalig erstellen TTranspose benötige.
Das scheint mein Fehler zu sein. (Array ist eigentlich überflüssig) Hmmm...
Aber ohne kann ich K nicht auswerten.

Heute ist ein schlechter Tag.. Hehehehehehe

EDIT:
Ok hat sich erledigt.

Delphi-Quellcode:

function TransposeChord(sChord: string; Pitch: Integer): string;
var
  sResult: string;
  K, MaxK, Found: Integer;
begin

  sResult := sChord;
  MaxK := 12;

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

      sResult := cTranspose[TTranspose(Found)];
      break;
    end;
    Result := sResult;
  end;
end;

gruss

Mir scheint deine Funktion enthält Fehler.
1)
if Found < 1 then sollte wohl besser if Found < 0 then heißen.
Andernfalls würde z.B. TransposeChord('C',0') in einem Fehler resultieren.
Warum?!
K wäre = 0, Found wäre zunächst = 0 und würde um 12 auf 12 erhöht und wäre dann außerhalb des gültigen Bereiches von TTranspose.
2)
Das Result := sResult; gehört 2 Zeilen tiefer (hinter die for-Schleife.

Und warum so kompliziert?

Delphi-Quellcode:

FUNCTION xTransposeChord(sChord:String; Pitch:Integer):String;
const ChordText='C C#D D#E F F#G G#A A#B';
var I:Integer;
begin
   I:=Pos(sChord,ChordText);
   if I=0 then Exit(sChord);
   I:=(I div 2 + Pitch mod 12 + 12) mod 12;
   Result:=cTranspose[TTranspose(I)];
end;

[EWeiss]

Zitat:

Mir scheint deine Funktion enthält Fehler.

Nein das scheint nicht nur so das ist es .. Danke für die Info.

Mein Array ging vorher von 1..XX aber nach der Änderung des Enums habe ich das nicht mehr korrigiert.

Danke..

Bei dem Anderen Vorschlag möchte ich gerne bei meiner Lösung bleiben da ich weis was ich hier geschrieben habe.
Bei deiner Lösung auch wenn sie richtig sein mag muss ich erst wieder raten.
Und ist von der Berechnung her zu kompliziert und unübersichtlich.

Viele Wege führen zum Ziel.

Zitat:

Das Result := sResult; gehört 2 Zeilen tiefer (hinter die for-Schleife.

Na ja eine Zeile tiefer.

Wird aber in jedem fall aufgerufen auch wenn ich es so belassen würde.
Der Wert wird also in jedem fall richtig übergeben.

gruss