Du solltest mal versuchen alle types zusammen machen, und dann alle functions zusammen.
Anstatt
Code:
type
TACloseAudio = function: Integer; stdcall;
function ACloseAudio: Integer;
type
TAOpenAudio = function(var pInfo: TAudioInfo): Integer; stdcall;
function AOpenAudio(var pInfo: TAudioInfo): Integer;
versuchs lieber so:
Code:
type
TACloseAudio = function: Integer; stdcall;
TAOpenAudio = function(var pInfo: TAudioInfo): Integer; stdcall;
TAOthertype = function:String; stdcall;
function ACloseAudio: Integer;
function AOpenAudio(var pInfo: TAudioInfo): Integer;
function AOtherFunction: String;
Ist nicht nur mit types so, sondern auch mit uses, var, und const. Du hattest vorher nähmlich ein Type deklariert, danach eine funktion deklariert, aber die nächste Anweisung hat Delphi nicht erkannt (weil das letzte deklarierte eine "function" war, und das muss man für jede deklaration extra dazuschreiben). Wenn du aber alle Types nacheinander deklarierst, bruachst du (genau so wie bei var und const) nur einmal das wort Type hinzuschreiben, und nur Types dazwischenlegen.