PDA

View Full Version : مبتدی: چطوری در edit که عدد سه رقم رقم جدا شده بشه باهاش ضرب و تفریق کرد؟



mahmood2074
جمعه 14 مهر 1391, 16:09 عصر
با سلام خدمت دوستان عزیز
یه مشکلی دارم .با کامپوننت falad یا کد نوشتن در onchange می تونم که اعداد را سه رقم جدا کنم اما اگه بخوام این edit رو در یه عدد یا edit دیگه ضرب کنم erorr کامپایلر E convert می گیره البته از توابع str to float و بر عکس هم استفاده کردم. تا رقم سوم خوبه اما به رقم جهارم که شامل ویرگول میشه میرسه حالش بد مبشه!
و مثلا" میگه " 222.663 عدد float نیست.چون که ویرگول جز اعداد نیست از val هم که کاری بر نیومد اگه دوستان عزیز بگند باید چه کار کرد لطف بزرگی در حق من کردند.

Felony
جمعه 14 مهر 1391, 16:54 عصر
با تابع StringReplace کاراکترهای , رو حذف کنید ، مثلا :

var
A, B: Integer;
begin
A:= StrToInt(StringReplace(Edit1.Text, ',', '', [rfReplaceAll]));
B:= StrToInt(StringReplace(Edit2.Text, ',', '', [rfReplaceAll]));
end;