هل توجد دالة تعمل نفس عمل الدالة FloatTostr

[hanipino]

السلام عليكم

هل توجد دالة تعمل نفس عمل الدالة FloatTostr موجودة فى احد مكتبات الويندوز . او اى دالة تحويل اخرى .

السلام عليكم

[me_delphi]

لمادا أخي الكريم
الأفضل التقليل من استعمال الدوال التابعة لويندوز ليبقى تطبيقك سريعا

[hanipino]

لا اشاء استعمال وحدة باكملها من اجل داله واحدة فقط + لم استطع استخراجها من الوحدة .

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

استخدم Format لتحصل على دالة مثل

PHP كود :

function Float2Str(f:Double):String;
begin
  Result:=Format('%f', [f]);
end; 


او استخدم Str للتحويل

PHP كود :

function Float2Str(f:Double):String;
begin
  str(f,Result);
end; 


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

[hanipino]

شكرا . بارك الله فيك اخى 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; 


احسن من استدعاء وحدة باكملها من اجل داله واحدة فقط .