حل معادلة من الدرجة الثانية

[محمد عبد العزيز]

التحويل من Visual Basic الى Delphi بسيط وسهل

في دلفي كل امر ينتهي بفاصلة منقوطة ";"
= تكتب := (نقطتين قبلها)
بدل المكون TextBox استخدم Edit
بدلا من ReadOnly استخدم Enabled
بدلا من dim اكتب Var ويجب ان تكون في البداية اي خارج Begin
بدلا من MsgBox يمكن استخدام ShowMessage
هذا delta=b^2-4*a*c يكتب

PHP كود :

delta:=b*b-4*a*c; 


هذا TextBox4.ReadOnly = True

PHP كود :

Edit4.Enabled := True; 


هذا Dim a, b, c, x1, x2, delta As Double يمكن كتابته بشيئ مثل

PHP كود :

Var a, b, c, x1, x2, delta : Real; 


هذا a = Val(TextBox1.Text) يمكن كتابته

PHP كود :

a := StrToFloat(Edit1.Text); 


البقية عليك
انصحك بمتابعة دورة دروس دلفي إن لم تفعل بعد
والسلام عليكم