Hilfe bei Übersetzung VB to Delphi

[EWeiss]

Zitat von bluescreen25:

Zitat von mkinzler:

Ein Zeiger scheint Nil zu sein

was kann ich prüfen ? weiss nicht mehr weiter....

gruß, bluescreen

Ich kann dir nur nochmal sagen das du das alles nicht brauchst!

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 
    begin
      //SetLength(aflist1, arysize-1); 
      //For LoopArr := Low(aflist1) To high(aflist1) do 
      Result := aflist1; 
    
      pieon1 := tpieon1; 
      ptyeon1 := tptyeon1; 
      taeon1 := ttaeon1; 
    // usw..
    end;
End;