VB6 prog nach delphi

[th_bone]

Hi,

ich versuche ein Visual Basic 6 Bsp (das auf eine typelibrary zugreift) nach delphi
zu portieren habe aber leider noch ein vb6 verständnissproblem..

wäre nett wenn mir hier jemand eine kleine hilfestellung zum weiteren vorgehen geben könnte
die unklaren stellen habe ich am anfang im code mit ? markiert - was passiert hier ?

- wie ist den für "dim dataobj as object" das equivalent in delphi ?
wird hier ein zeiger gespeichert ?
- bzw. was bewirkt das "set dataobj"

hier mal der gesamte VB6 code abschnitt:

Delphi-Quellcode:

Public Function RequestTransaction() As Boolean

    Dim bResult     As Boolean
?    Dim dataobj     As Object
    
   
?    Set dataobj = SyncObj.Request('REQUEST 31,62 FROM SYMBOL_LIST')
    
    bResult = ProcessTransaction(dataobj)
     
    RequestTransaction = bResult

End Function

Danke

Ralf

[shmia]

Zitat von th_bone:

- wie ist den für "dim dataobj as object" das equivalent in delphi ?
wird hier ein zeiger gespeichert ?
- bzw. was bewirkt das "set dataobj"

In Delphi:

Delphi-Quellcode:

var
   dataobj : OleVariant; // Speicherplatz für einen Interfacezeiger 
   bResult : Boolean;
begin
   // set dataobj = wird in Delphi zu einer ganz normalen Zuweisung
   dataobj := SyncObj.Request('REQUEST 31,62 FROM SYMBOL_LIST');
   bResult := ProcessTransaction(dataobj);

[Binärbaum]

Genau genommen ist das eine Funktion, die in Delphi so aussehen würde:

Delphi-Quellcode:

function RequestTransaction: Boolean;
var dataobj: OleVariant;
begin
 dataobj:= SyncObj.Request('REQUEST 31,62 FROM SYMBOL_LIST');
 Result:= ProcessTransaction(dataobj);     
end;

Ich bin mir aber nicht ganz sicher, was den Typ von dataobj angeht. Meines Erachtens nach ein OleVariant, kann aber auch was anderes sein (kenne mich mit VB nicht so sehr aus).

MfG
Binärbaum