Hilfe bei Übersetzung VB to Delphi

[bluescreen25]

Sieht jetzt so aus:

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

Delphi-Quellcode:

function WGetEON1:String;
var
  aflist1 : array of Single;
  arysize: Integer;
  LoopArr: Integer;
  pseontemp: String;
  ttaeon1 :Bool;
  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;

Hmm, ich weiss auch net weiter....komisch, bei GetAFList wars mit deinen Änderungen sofort gut !

Gruß, bluescreen