06-03-2009, 12:33 AM
06-03-2009, 12:55 AM
06-03-2009, 05:06 AM
06-03-2009, 09:01 AM
06-03-2009, 07:12 PM
شكرا . بارك الله فيك اخى DeltaAziz .
استخدمت Str للتحويل + دالة للقضاء على الاصفار الزائدة :
احسن من استدعاء وحدة باكملها من اجل داله واحدة فقط .
استخدمت 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;
احسن من استدعاء وحدة باكملها من اجل داله واحدة فقط .