Скачать: CL | DM;

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;


---

← →
Alx2 ©   (2002-07-26 12:57) [7]

>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.

---

← →
Vlad1 ©   (2002-07-28 15:18) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c