Unter "Implementation" :
Delphi-Quellcode:
Type
TSmallIntArray = Array of SmallInt;
end;
..muss hier kein record hin?(Hier habe ich garantiert noch etwas verwechselt)
Ansonsten:
Delphi-Quellcode:
(...)
procedure SaveWavFileClick(Sender: TObject);
procedure DisableItems(Status: Boolean);
procedure KeyNoteClickCheck(Sender: TObject);
Procedure LoadTheWave(FileName: String; out Value: TSmallIntArray; Start: Integer = 0);
private
{ Private declarations }
public
KeysToRecord: Array[0..11] of Integer;
function ValidateInput(Itemobject: String; minval, maxval: Integer): String;
{ Public declarations }
end;
(...)
Procedure LoadTheWav: Identifier redeclared usw
