Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Real <-> Str, Переход с real на Str 
:(
    Опции темы
XoopeR
Дата 23.11.2007, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.11.2007

Репутация: нет
Всего: нет
Подстажите, уже замаялся =)

Как реализовать???
Кусок кода
Код

var
a, b, c, e, f: real;

begin
a:=1;
b:=2.5;
c:=3.5;

e:=StrToInt(Edit1.Text); // Вот здесь сомнения =) Но другого кода не знаю
f:=StrToInt(Edit2.Text);  // ??

q:=a+b+c/(e+f);

Memo1.lines:=IntToStr(q); //??

end;



Как реализовать переход строки(Str)  в Real?
PM MAIL   Вверх
Alexeis
Дата 23.11.2007, 09:53 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(XoopeR @  23.11.2007,  09:15 Найти цитируемый пост)
строки(Str)  в Real?

  StrToFloat


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
EvilsInterrupt
Дата 23.11.2007, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Executables research
***


Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9
Alexeis, 
Может это лучше будет? :

Цитата

SysUtils.TryStrToFloat Function

Description
Use TryStrToFloat to convert a astring, S, to a floating-point value. S must consist of an optional sign (+ or -), a string of digits with an optional decimal point, and an optional mantissa. The mantissa consists of 'E' or 'e' followed by an optional sign (+ or -) and a whole number. Leading and trailing blanks are ignored. 




--------------------
про реверсинг, вроде чтото даже интересно
PM MAIL WWW ICQ Jabber   Вверх
Alexeis
Дата 23.11.2007, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(EvilsInterrupt @  23.11.2007,  12:59 Найти цитируемый пост)
Может это лучше будет? :

  Если бы это лучше, то никто бы не делал 2е функции. Все зависит от ситуации. 



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
XoopeR
Дата 23.11.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.11.2007

Репутация: нет
Всего: нет
Ругается ((

На эту строчку

 Memo1.Lines:=FloatToStr(g);

[Error] Unit1.pas(43): Incompatible types: 'TStrings' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Что ему надо ещё?  smile 

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, d, e, f, g:Real;


begin
 a:=1;
 b:=1.5;
 c:=2.5;

 e:=StrToFloat(Edit1.Text);
 f:=StrToFloat(Edit2.Text);

 g:=a+b+c+e+f;

 Memo1.Lines:=FloatToStr(g);

end;

end.
PM MAIL   Вверх
THandle
Дата 23.11.2007, 13:23 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
Цитата(XoopeR @  23.11.2007,  13:16 Найти цитируемый пост)
Memo1.Lines:=FloatToStr(g);

Номер то строки укажи. 
Или в Memo1.Text засунь.


Это сообщение отредактировал(а) THandle - 23.11.2007, 13:24
PM   Вверх
XoopeR
Дата 23.11.2007, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.11.2007

Репутация: нет
Всего: нет
Урааа!!! Спасибо  smile  Я программист  smile 
PM MAIL   Вверх
ivan219
Дата 23.11.2007, 20:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
Код

Memo1.Lines.Add(FloatToStr(g));



--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0756 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.