aşağıdaki vb6 kodunun karşılığı delphide nasıl olabilir

[kazimates]

aşağıda verilen visual basic 6 daki kodun karşılığını delphide nasıl yazabiliriz?
saygılarımla...

Kod: Tümünü seç

Private Sub Command1_Click()
Dim Gel As String

Label1 = ""

Gel = Pmr232.KartSor


If Mid$(Gel, 3, 2) = "06" Then
    Label1 = Mid$(Gel, 7, 8)
    Label2 = Gel
    
End If

End Sub

Private Sub Form_Load()
Dim a

a = Pmr232.ComPortAyar(2, "", True)


End Sub


Private Sub Timer1_Timer()

Command1.Value = Check1.Value

End Sub

[Lost Soul]

aşağıda verilen visual basic 6 daki kodun karşılığını delphide nasıl yazabiliriz?
saygılarımla...

Kod: Tümünü seç

PRocdeure TForm1.Button1Click( Sender : TFalanFilan)
Var Gel :String;
begin;
Label1.Caption := '';

Gel := Pmr232.KartSor


If Copy(Gel, 3, 2) := '06' Then
begin
    Label1.Caption := Copy(Gel, 7, 8)
    Label2.Caption := Gel
    
End;
End;

Procedure  TForm1.FormOnCreate
Var  a : integer // Bu kısmı anlamadım :)

a := Pmr232.ComPortAyar(2, "", True) 


End;


Procedure TForm1.Timer1OnTimer
begin
CheckBox1.Caption = CheckBox2.Caption;
End;

Pmr232 muhtemelen RS232 den değer okuyan bir bileşen.
Delphi için TComPort bileşeninin kullanabilirsin. Sanırım bende msnen vardı. Gece 12 den sonra online olma ihtimalim yüksek. olmazsa o zaman beraber bakarız. Sana o bileşeni veririm. Kolay gelsin.