Witam
Znalalzem taki kodzik w necie
function TGlowna.SeparateInt(Value: Int64; Separator: Char): String;
var Negative: Boolean;
begin
Negative := Value < 0;
Value := Abs(Value);
Result := IntToStr(Value mod 1000);
Value := Value div 1000;
while Value mod 1000 <> 0 do begin
Result := IntToStr(Value mod 1000) + Separator + Result;
Value := Value div 1000;
end;
if Negative then
Result := '-' + Result;
end;
wszytko ladnie pieknie tylko w wywapdku kiedy mam ciag 111.004.111
to wyswietla mi zamiast 111.004.111 to 111.4.111
Jak to naprawić???