StringToReal

← →
c0pYc@t (2002-07-26 08:57) [0]

Подскажите как real"у присвоить стринг

← →
MBo © (2002-07-26 09:01) [1]

ты когда-нибудь в хелп смотришь?

← →
Lord Warlock © (2002-07-26 09:02) [2]

StrToFloat или Format

← →
c0pYc@t (2002-07-26 09:04) [3]

Спасибо

← →
Седой © (2002-07-26 10:19) [4]

Не занаю как Format а StrToFloat работает.Проверено

← →
Седой © (2002-07-26 10:21) [5]

Не занаю как Format а FloatToStr работает.Проверено

← →
Robin (2002-07-26 12:41) [6]

Может этот пример тебе поможет.
Function RealToStr(Value:real;n:integer):string; var str1,str2:shortstring; k,i,m:byte; begin str1:=FloatToStr(Value); str2:=" "; k:=1; while (str1[k]<>",") and (k<length(str1)) do inc(k); m:=n+k; if m>length(str1) then m:=length(str1); for i:=1 to m do str2[i]:=str1[i]; RealToStr:=Str2; end;

>Robin (26.07.02 12:41)
Смайлик забыл, или это серьезно?

← →
Stranger71 (2002-07-26 14:50) [8]

А еще есть пережитки старого доброго Паскаля - процедура Val.

Кусок их делфишного хэлпа:
procedure Val(S; var V; var Code: Integer);

Description

Val converts the string value S to its numeric representation, as if it were read from a text file with Read.

S is a string-type expression; it must be a sequence of characters that form a signed real number.

V is an integer-type or real-type variable. If V is an integer-type variable, S must form a whole number.

Code is a variable of type Integer.

If the string is invalid, the index of the offending character is stored in Code; otherwise, Code is set to zero. For a null-terminated string, the error position returned in Code is one larger than the actual zero-based index of the character in error.

И ещё для Delphi6:
r1:=StrToFloatDef(s,r2);

(если s невозможно преобразовать в real, то r1 станет равным r2)

StringToReal Найти похожие ветки