Из float в Integer число с плавающей точкой

[Foreseen]

А как быть "через строку" с подобным числом -123,0010305? Слишком много If, код явно не будет изящным, как хотел топикстартер.

[Аватар]

Для изящества не проблем, проблема в смысле

var i: int64;
    s: String;
..
  s:='-123,0010305';
  i:=StrToIntDef(Copy(s,Pos(',',s)+1,Length(s)),0);

[Winexcel]

Ого как разошлась тема, написал уже сам, но думаю может кому пригодится:

function RealToInt(Num: Real): String;
var
	i:integer;
	source:string;
begin
	source := StringReplace(FloatToStrF(Num, ffFixed, 12, 8), ',', '', [rfReplaceAll]);
	for I:= 1 to length(source) do
		if source[i] = '0' then
			delete(source,i,1)
		else begin
			result := source;
			break;
		end;
end;

[Serge_Bliznykov]

Winexcel, про потерю точности Вам уже говорили в теме..

проверьте:

var r : real;
begin
  r := 990000000.001456;
  Edit1.Text := FloatToStr(r);
  Edit2.Text := RealToInt(r);
end;

p.s. как говорил один мой приятель: - "программа работает в целом, прокалываясь в мелочах"

[northener]

Сообщение от Winexcel

Ого как разошлась тема, написал уже сам, но думаю может кому пригодится:

function RealToInt(Num: Real): String;
var
	i:integer;
	source:string;
begin
	source := StringReplace(FloatToStrF(Num, ffFixed, 12, 8), ',', '', [rfReplaceAll]);
	for I:= 1 to length(source) do
		if source[i] = '0' then
			delete(source,i,1)
		else begin
			result := source;
			break;
		end;
end;

И неужто работает? Не верю!

[eval]

function RealToInt(Num: Real): String;

вопрос темы, имя функции, результат ... кто на ком стоял?