+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هل توجد دالة تعمل نفس عمل الدالة FloatTostr (/showthread.php?tid=671)
هل توجد دالة تعمل نفس عمل الدالة FloatTostr - hanipino - 06-03-2009
السلام عليكم
هل توجد دالة تعمل نفس عمل الدالة FloatTostr موجودة فى احد مكتبات الويندوز . او اى دالة تحويل اخرى .
السلام عليكم
هل توجد دالة تعمل نفس عمل الدالة FloatTostr - me_delphi - 06-03-2009
لمادا أخي الكريم
الأفضل التقليل من استعمال الدوال التابعة لويندوز ليبقى تطبيقك سريعا
هل توجد دالة تعمل نفس عمل الدالة FloatTostr - hanipino - 06-03-2009
لا اشاء استعمال وحدة باكملها من اجل داله واحدة فقط + لم استطع استخراجها من الوحدة .
هل توجد دالة تعمل نفس عمل الدالة FloatTostr - محمد عبد العزيز - 06-03-2009
استخدم Format لتحصل على دالة مثل
PHP كود :
function Float2Str(f:Double):String;
begin
Result:=Format('%f', [f]);
end;
PHP كود :
function Float2Str(f:Double):String;
begin
str(f,Result);
end;
والسلام عليكم
هل توجد دالة تعمل نفس عمل الدالة FloatTostr - hanipino - 06-03-2009
شكرا . بارك الله فيك اخى DeltaAziz .
استخدمت Str للتحويل + دالة للقضاء على الاصفار الزائدة :
PHP كود :
function Delete_Zero(S:string):string;
var
i : Byte;
begin
for i := Length(S)downto 1 do
begin
if (S[i] = '0')or(S[i] = '.') then Delete(S,i,1)
else
begin
Result := S;
Exit;
end;
end;
end;
PHP كود :
function Float2Str(f:Double):String;
var
S : string;
begin
str(f:0:11,S);
Result := Delete_Zero(S);
end;
احسن من استدعاء وحدة باكملها من اجل داله واحدة فقط .
