![]() |
Re: Hilfe bei Übersetzung VB to Delphi
Zitat:
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; |
Re: Hilfe bei Übersetzung VB to Delphi
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 |
Re: Hilfe bei Übersetzung VB to Delphi
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 |
Re: Hilfe bei Übersetzung VB to Delphi
Zitat:
Gruß, bluescreen |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz