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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Формирование строки результата 
:(
    Опции темы
apostolnikolai
Дата 24.8.2009, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Как сформировать результат 

есть строка String след. формата ( 102,12343442443E-1) руб. как этот результат округлить в меньшую сторону и привести результат к этому формату ( 102,10 ) руб. ( должно быть в STRING ) 
PM MAIL   Вверх
Keeper89
Дата 25.8.2009, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 9
Всего: 58



Код

var
  myStringPrice: AnsiString;
  myPrice: Real;
begin
  myPrice := 102.12343442443E-1 
  myStringPrice := Format('%7.2f', [myPrice])
end;


Это сообщение отредактировал(а) Keeper89 - 25.8.2009, 11:41


--------------------
PM MAIL WWW   Вверх
Staruha
Дата 26.8.2009, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



В Uses добавить math и
 S:=RoundTo(S,-2);


--------------------
Возмездие настигнет
PM MAIL   Вверх
apostolnikolai
Дата 26.8.2009, 15:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



спасибо буду пробывать

Добавлено @ 15:09
Выдает ошибку

Код

var
  myStringPrice: AnsiString;
  myPrice: Real;
begin
  myPrice := 102.12343442443E-1 ( ЭТО ТОЖЕ STRING ТЕКСТОВАЯ СТРАКА ДОЛЖНА БЫТЬ )
  myStringPrice := Format('%7.2f', [myPrice])
end;



M
THandle
Модератор: используйте подсветку кода!

PM MAIL   Вверх
niteo
Дата 26.8.2009, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Да нет, все работает... 

Код

var
  myStringPrice: AnsiString;
  myPrice: Real;
begin
  myPrice := 102.12343442443E-1 ( ЭТО ТОЖЕ STRING ТЕКСТОВАЯ СТРАКА ДОЛЖНА БЫТЬ )
  myStringPrice := Format('%7.2f', [myPrice])
end; 


Что именно говорит в ошибке?

Может свои скобки не закоментировал???
Код

 //( ЭТО ТОЖЕ STRING ТЕКСТОВАЯ СТРАКА ДОЛЖНА БЫТЬ )

--------------------
Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...
PM MAIL   Вверх
apostolnikolai
Дата 26.8.2009, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Сори я лохонулся не тап присвоение зделал ! Все робит огромное спасибо !!!!!!!!!!!!!!!!
PM MAIL   Вверх
Akella
Дата 27.8.2009, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329



apostolnikolai, оформляй свой код в сообщении соответствующими тегами и всегда приводи текст ошибки и в какой строке, здесь телепатов нет

Добавлено через 1 минуту и 20 секунд
И вот ещё будет тебе полезно
http://forum.vingrad.ru/forum/topic-126445.html
http://forum.vingrad.ru/forum/topic-237714.html
http://forum.vingrad.ru/forum/topic-142403.html
http://forum.vingrad.ru/forum/topic-96391.html
PM MAIL   Вверх
apostolnikolai
Дата 29.8.2009, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Код

var
  myStringPrice: AnsiString;
  myPrice: Real;
begin
  myPrice := 102.12343442443E-1 
  myStringPrice := Format('%7.2f', [myPrice])
end;


ЭТО ВСЕ ОКЕЙ РОБИТ НА УРА 

а КАК ОКРУГЛИТЬ РЕЗУЛЬТАТ С 102.12 до РОВНОГО ЗНАЧЕНИЯ 102 или 102.10

Это сообщение отредактировал(а) THandle - 29.8.2009, 16:55
PM MAIL   Вверх
NewDima
Дата 29.8.2009, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 922
Регистрация: 20.2.2006
Где: <?here?>

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



Цитата(Staruha @ 26.8.2009,  16:58)
В Uses добавить math и
 S:=RoundTo(S,-2);

Тебе же дали функцию, смотри параметры
PM ICQ   Вверх
THandle
Дата 29.8.2009, 16:57 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

Репутация: 50
Всего: 372




 ! 
THandle
apostolnikolai, еще раз повторяю - используйте подсветку кода в своих сообщениях!!!


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

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




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


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

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