Hilfe bei Übersetzung VB to Delphi

[bluescreen25]

Zitat von EWeiss:

Code:

Public Declare Function VB_GetAFList Lib "USBRadio.dll" (ByRef ary As Single, ByRef size As Long) As Boolean

ByRef ist in Delphi grundsätzlich 'var'
also
TFNGetAFList = function(var ary:Single; var size: Integer):Bool;stdcall; gruss Emil

genau das wars ! supi

hiermit habe ich noch ein Prob:

TFNGetEON = function(var buf:Single;var len,pi,pty:Integer;var ps:String;var ta:Boolean;var eon:Integer):Boolean;stdcall;

Delphi-Quellcode:

function WGetEON1:String;
var
  aflist1 : array of Single;
  arysize: Integer;
  LoopArr: Integer;
  pseontemp: String;
  ttaeon1 :Boolean;
  tptyeon1:Integer;
  tpieon1 :Integer;
begin
    Result := '';
    SetLength(pseontemp,8);

    arysize := 25;
    SetLength(aflist1, arysize-1);

    if GetEON(aflist1[0],arysize,tpieon1,tptyeon1,pseontemp,ttaeon1,0) then
    SetLength(aflist1, arysize-1);
    For LoopArr := Low(aflist1) To high(aflist1) do
    Result := floattostr(aflist1[LoopArr]);
End;

ps: dein messenger möchte mich nicht -- zonealarm