Double2str rabotaet nekorektno. Ja vot nashel ekvivalent s kotorim problem net.
function MyDouble2Str(D: Double; Width, Precision: Integer; CutEndZeroes: Boolean): String;
var
Temp: String;
begin
if not CutEndZeroes then
begin
Str(D: 0: Width, Temp);
if Precision < Width*2 - Length(Temp) then ...
Найден 1 результат
- 23.12.2008 02:10:16
- Форум: WinCE
- Тема: KOL-CE - разработка компактных приложений для Windows Mobile
- Ответы: 31
- Просмотры: 139904