Delphi: Tipi

[Fusyllo]

Qualcuno mi sa dire il perchè ricevo questi errori.
Se al posto della funzione dichiaro una procedura, funziona tutto.



[Error] TestAppU.pas(31): Function needs result type
[Error] TestAppU.pas(31): '=' expected but ';' found

procedure TForm1.Button1Click(Sender: TObject);
type
TShowForm = function ShowForm : Integer; stdcall; <== Riga 31
var
DLLInstance : THandle;
ShowForm : TShowForm;
begin
DLLInstance := LoadLibrary('myforms.dll');
@ShowForm := GetProcAddress(DLLInstance, 'ShowForm');
ShowForm;
FreeLibrary(DLLInstance);
end;

[alka]

Se definisci un prototipo di funzione, non devi specificare il nome di alcuna funzione nella dichiarazione.

TShowForm = function: Integer; stdcall;

Ciao!

[Fusyllo]

grazie 1000 alka.
:metallica :metallica :metallica