20-03-2015, 06:38 PM
[INDENT]
السلام عليكم
لاحظ معي أخي الحبيب :
هذا الكود خاص بك ،
ما هي قيمة Edit2 ، البرنامج يجد Edit2 فارغة فلا يعرف قيمتها ، إما أن تعيد قراءتها ، أو أنك تقصد Edit1
[/INDENT]
السلام عليكم
لاحظ معي أخي الحبيب :
كود :
procedure TForm1.Button3Click(Sender: TObject);
var h,c,a :real;
begin
h:=strtofloat([color=Red]edit2.text[/color]);
c:=a*h;
Label7.Caption:=floatToStr(c);
end;هذا الكود خاص بك ،
ما هي قيمة Edit2 ، البرنامج يجد Edit2 فارغة فلا يعرف قيمتها ، إما أن تعيد قراءتها ، أو أنك تقصد Edit1
[/INDENT]
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.