Hilfe bei Übersetzung VB to Delphi

[EWeiss]

Zitat:

Zitat von bluescreen25

Zitat:

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;

[bluescreen25]

das mag sein, aber das löst leider mein Problem nicht.

aflist1 ohne einen Index kann ich aber eh nicht auf einen String übergeben. Da meckert der Compiler.....
Die exception kommt aber schon beim Aufruf der GetEON-Funktion, den Rest hatte ich ausgeklammert....
Es muss erstmal laufen, dann will ich die Werteauswertung noch überarbeiten...


Gruß, bluescreen

[EWeiss]

Hab dir doch nen link gegeben prüfe anhand der Liste nochmal deine Declarationen

Long ist nicht Integer sondern 'LongInt'
Auch wenn das nicht hilft ist aber die richtige umsetzung. ;)

gruss Emil

[bluescreen25]

Zitat:

Zitat von EWeiss

Hab dir doch nen link gegeben prüfe anhand der Liste nochmal deine Declarationen

Long ist nicht Integer sondern 'LongInt'
Auch wenn das nicht hilft ist aber die richtige umsetzung. ;)

gruss Emil

ja das werde ich machen, danke !

Gruß, bluescreen