Код: Выделить всё
case ArrNotePos[CountX,CountY] of
'F':
begin
NoteAlt:=ArrNotePos[CountX,CountY-1];
OktaveAlt:=ArrOktavePos[CountX,CountY];
end;
'A','B','D','E','G':
begin
NoteAlt:=ArrNotePos[CountX,CountY-2]+'#';
OktaveAlt:=ArrOktavePos[CountX,CountY];
end;
'C':
begin
NoteAlt:=ArrNotePos[CountX,CountY-1];
OktaveAlt:=ArrOktavePos[CountX,CountY-12];
end;
end;
