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

[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; 


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