VB-Source nach Delphi porten...

[Alexander]

Hallo Leute,
ich nutze gerade eine ActiveX-Komponente, allerdings sind die Demos alle in VB geschrieben...
Und das dumme ist ich habe weder einen VB noch irgendwelche Erfahrungne mit VB...
Könnt ihr mir mal bei einer Zeile helfen?

Code:

VB-Code:
        If TypeName(m_cube.ColHeading(colNumber, depth)) = "String" Then
            If depth <= m_cube.ColFields.Count Then
                returnValue = True
                Exit For
            End If
        End If

Wie sähe die erste Zeile in Delphi aus? Mir macht dieses TypeName zu schaffne...
Ich habe in delphi irgendwie nichts passendes gefunden. Könnt ihr mir helfen diese Zeile zu übersetzen?
Wäre super von euch :love:

[Alexander]

Und noch ne Frage :oops:
Was macht FIX in VB? Was wäre die Entsprechung in Delphi, div vielleicht?
Hier mal die VB-Zeile:

Code:

 Fix(colNumber / visibleDataFieldCount)

Ich hasse VB :mrgreen:
Wäre cool, wenn ihr mir beide Fragen beantworten könntet :love:

[jbg]

Da ich nichts über m_cube.ColHeading weiß, kann ich nur raten, dass es sich, da du von ActiveX schreibst, um einen OLEVariant handelt.

Delphi-Quellcode:

if VarType(m_cube.ColHeading(colNumber, depth)) in [varOleStr, varStrArg, varString] then

varString: dürfte eher unwahrscheinlich sein, da das ein Delphi-HugeString ist.
varOleStr: COM compatibler Unicode String
varStrArg: COM compatibler String.

[Alexander]

Hey, Super!
das scheint zu funktionieren, so richtig testen kann ich es allerdings noch nicht, sind mehrere zum Teil recht lange Funktionen, die ich erst alle porten muss, dann kann ich testen....

Hast du auch noch ne Lösung für FIX?


PS: ColHeading ist ein einfaches Property von Cube, mein Problem lag nur an dem TypNAme

[jbg]

Fix() = Trunc()
Das kann man aus der VB Hilfe bzw. VBA Hilfe herauslesen.

[Alexander]

Jupp, könnte man wenn man sie hat ;-)
Gibt es die kostenlos & legal im Netz? Ich habe bisher ncihts gefunden.

Danke nochmal !!

[r_kerber]

Hallo Alexander,

die VBA-Hilfe ist z.B. M$ Office bei.

[Alexander]

Kannst du mir noch ein mal helfen?
Was macht "Wend"? Was ist die Delphi-Entsprechung?
Wäre cool, wenn du das auch noch wüsstest :oops:

[Alexander]

@r_kerber
Denkst du ich habe Office :mrgreen: ?

[r_kerber]

Hallo Alexander,

das ist der Abschluß einer While-Schleife (auch aus der OH von Office :lol: ).

Ach so, da Du Office nicht hast, kannst Du auch hier suchen:
http://msdn.microsoft.com/library/de.../D6/S5B2D8.asp
oder
http://msdn.microsoft.com