Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > StrToReal :)

Автор: W_A_K_E 2.2.2005, 23:02

Люди добрые подскажите плиз как можно перевести текст типа Real введенный в строку Edit1 переделать в число

основа integer

Код


procedure TForm1.Button1Click(Sender: TObject);
var
i, d: integer;
begin
i:=StrToInt(Edit1.text);
d: StrToInt(Edit2.text);
Edit3.Text:=IntToStr(i+d);
end;

Как преобразовать Строку в Real и Real в строку?

Автор: Guest 2.2.2005, 23:08

floattostr-перевод вещестного числа в строку

Автор: Satana 2.2.2005, 23:14

strtofloat() преобразование текста в число с плавающей точкой

Автор: Guest 2.2.2005, 23:16

Автор: EKoshelev 3.2.2005, 08:05

W_A_K_E
Правда StrToFloat может глюкануть, если у тебя в строке фигня какая-нибудь. Если ты не уверен в корректном содержании используй
Val(S: string; v: real; err: integer); S - строка с числом, v - куда поместить результат, если err = 0 после выполнения, то всё номрально.
Валом так же можно целые типы преобразовывать.

Автор: SoWa 3.2.2005, 16:35

Не глюканет, если формат разделителя дробной части правильный: иногда путают точку и запятую.
А обратное преобразование- "floattostr()"

Автор: maxim1000 3.2.2005, 17:15

Цитата

Правда StrToFloat может глюкануть, если у тебя в строке фигня какая-нибудь.

ну, скорее, не глюкануть, а выкинуть исключение, которое потом можно поймать
это все - дело вкуса...

Автор: EKoshelev 4.2.2005, 08:12

maxim1000
Ну вообще-то да... Просто я в своих прогах никогда исключения не ловлю. Надо тему создать.

Автор: Akella 4.2.2005, 09:55

Код


try
  myRealValue := StrToFloat(myStringValue);
except
  ShowMessage('Значение "'+myStringValue+'" не является числом с плавающей точкой');
end;

Автор: W_A_K_E 7.2.2005, 01:00

а что спасибо!!! теперь все ясно