Acaba VB kodlarının Delphi karşılığını bulabileceğim bir yer var mıdır? (yada söylediğim çok mu saçmadır?)
Ve çok acil olarak aşağıda yer alan type şemasını Delphi'de nasıl dizerim beynim iyice sulandı (salakça bişey sorduğumun farkındayım, herkesten özür dilerim ama inanın sıkıntı bastı)
Kod: Tümünü seç
Public Type keytype
KEY As String * 16
End Type
Public Type TypeLista
Lista As String * 20000
End Type
Public Lista As TypeLista
Type Fans
Tipo As String * 18
wrn As String * 12
nrec As Long
Eta As Single
Pvol As Single
Ptot As Single
Pstat As Single
Pdin As Single
Ngiri As Single
w As Single
Wel As Single
vper As Single
Vel As Single
Lwam As Single
Lwaa As Single
Ro As Single
NB As Single
Ns As Single
Nmax As Single
Wmax As Single
diam As Single
miner As Single
fl1 As Single
fl2 As Single
fl3 As Single
fl4 As Single
fl5 As Single
NG As Single
Cw As Single
CN As Single
cps As Single
SPLm As Single
fr1m As Single
fr2m As Single
fr3m As Single
fr4m As Single
fr5m As Single
fr6m As Single
fr7m As Single
fr8m As Single
SPLa As Single
fr1a As Single
fr2a As Single
fr3a As Single
fr4a As Single
fr5a As Single
fr6a As Single
fr7a As Single
fr8a As Single
esp As Single
Q As Single
End Type
Type ArrayofFans
fan(0 To 30) As Fans
End Type
Type trasmiss
Pm As Long
Ngmot As Long
Ngole As Long
dmot As Long
dven As Long
NgventN As Long
Ngvent As Single
Wa As Single
Wr As Single
Wass As Single
Wmot As Single
heff As Single
Qn As Single
Ieff As Long
l As Long
Gamma As Long
Cl As Single
Cg As Single
u As Single
cbven As Long
cbmot As Long
damot As Long
daven As Long
heffm As Single
Ts As Single
depth As Single
fn As Single
Qst As Single
CradMot As Single
HMot As Single
EspMot As Single
End Type
Pag. 11/13
Type arrayoftrasm
tras(1 To 30) As trasmiss
End Type
Type BELT_type
belt As String * 30
End Type
Type ERRORMESSAGE_type
errormessage As String * 80
End Type