Zitat:
Ja, wenn man denn einen der vielen richtigen Wege geht.
Seltsam nur das bei mir die richtigen Ergebnisse ausgegeben werden.
Siehe shot
oben A ,B genau das was erwartet wird.
Delphi-Quellcode:
for k = 0 to xx do
begin
end
Result := bla; // und hier das result. dort wird ausgewertet wenn die schleife beendet wird auf welchen weg auch immer.
Keine Ahnung was du willst?
Zitat:
Die Zeile Result := sResult wird nicht ausgeführt.
Wird immer ausgeführt.
Zitat:
Eine Zeile tiefer steht ein "end;", und unter die Zeile mit dem "end;" soll es gebracht werden, also 1 + 1 = 2 Zeilen tiefer.
Keine Ahnung was du da rechnest oder meinst zu sehen.
Wie ich schon sagte 1 zeile tiefer.
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 < 0 then
inc(Found, MaxK);
sResult := cTranspose[TTranspose(Found)];
break;
end;
end;
Result := sResult;
end;
EIne Zeile tiefer vergleiche es!
Vorher stand es über den End nun drunter.
gruss