Real type=) десятые и сотые

← →
Officeman (2003-03-26 19:49) [0]

Выполняю некоторое выражение путем пересчета значений нескольких столбцов. кусок программы:

var
Form1: TForm1;
F:text;
i,regim:integer;
p,s1:string;
x,y,z,c_predo1,p_baz,p_kol1,p_kol2,p_kol3:string;
r_kol1,r_kol2,r_kol3,r_baz,x1,x2,x0:real;

p_baz:=(form1.table1.FieldByName("C_baz").AsString); //Базовую цену берем из таблицы.
//----------------------------------------------------------------------------------
p_kol1:=(form1.table1.FieldByName("C_predo1").AsString); // 1 цену берем из таблицы.
p_kol2:=(form1.table1.FieldByName("C_kolon2").AsString); // 2 цену берем из таблицы.
p_kol3:=(form1.table1.FieldByName("C_kolon3").AsString); // 3 цену берем из таблицы.
//----Теперь с полученными значениями делаем необходимые расчеты, согласно градации
//----цен на ИМПОРТ. и заносим получившиеся цены в l_kol1, l_kol2, l_kol3 интерфейс
x0:=0;x0:=(strtofloat(p_baz)); //---расчёт колонки2
x1:=0;x1:=(strtofloat(p_baz))/(10/100+1); //---расчёт колонки2
x2:=0;x2:=(strtofloat(p_baz))/(18/100+1); //---расчёт колонки2
//---
em1.Text:=floattostr(x0); //>>>расчетные число<<<
em2.Text:=floattostr(x1); //>>>расчетные число<<<
em3.Text:=floattostr(x2); //>>>расчетные число<<<
//----программы, затем записывем эти значения обратно в ПРАЙС-ТАБЛИЦУ.
//---Запись в Таблицу НОВЫХ данных.
DataSource1.DataSet.Edit;
//---Вывод расчёта в Базовую Колонку
form1.table1.FieldByName("C_baz").AsString:=l_baz.text; //Колонка ОДИН(голубая) РАВНА базовой!
//---Вывод расчёта в Колонку-1
form1.table1.FieldByName("C_predo1").AsString:=em1.Text; //Колонка ОДИН(голубая) РАВНА базовой!
//---Вывод расчёта в Колонку-2
form1.table1.FieldByName("C_Kolon2").AsString:=em2.Text; //Колонка ОДИН(голубая) РАВНА базовой!
//---Вывод расчёта в Колонку-3
form1.table1.FieldByName("C_Kolon3").AsString:=em3.Text; //Колонка ОДИН(голубая) РАВНА базовой!
DataSource1.DataSet.Post;

Как вывести расчетные числа, а именно x0,x1,x2:real
например в label0.caption,label1.caption,label2.caption
показывая значения с двумя знакоми после запятой, пример: 122,54
=)) а то я чето натворил сам незнаю чё! почему так много переменных? потомучто по праву пользователя он может рвсчитать цены по курсу. оно работает но выводятся циферки тира 122,5400456
а мне надо 2 знако после запятой =)

с Уважением и неисчерпаемой благодарностью, Officeman

← →
Anatoly Podgoretsky (2003-03-26 19:53) [1]

DisplayFormat

← →
Officeman (2003-03-26 19:59) [2]

=/ Анатолий, покажите пожалуйста пример его использования

← →
Anatoly Podgoretsky (2003-03-26 20:01) [3]

DisplayFormat := "0.00"

← →
Officeman (2003-03-26 20:04) [4]

Спасибо. я только непонял куда это вписать. и к чему эта функция относится ?

← →
Anatoly Podgoretsky (2003-03-26 20:07) [5]

Как куда, к нужному полю, для которого ты хочешь иметь такой формат. Ты хелп то посмотрел или как?

← →
Officeman (2003-03-26 20:30) [6]

смотрел. там неподробно! =((

← →
MsGuns (2003-03-26 20:37) [7]

НА ФИГ ЛЕНТЯЯ, Анатолий ! Он, негодяй, использует нас как онлайновый переводчик,- лень ему, видите ли, Ф1 нажать и почитать.

← →
Officeman (2003-03-26 20:40) [8]

неправда.
мне не лень просто время поджимает. а у меня в английским тяжеловато. я прошу вашей помощи.
Использвал в ттаблице Picture=##,00 непомогает. незнаю я как сделать..помогите пожалуйста. с уважением, ОфисМен

← →
MsGuns (2003-03-26 20:49) [9]

На компоненте НД (TTable/TQuery/что-том еще) дважды кликни - выскочит окно редактора филдов НД. Клацая мышью на списке, в окне OI видишь их св-ва. Среди них есть DisplayFormat и EditFormat. Вот там и набери для соотв.суммовых полей

- #.00#, если не надо показывать нуль рублей, а десятые копеек только если они есть (Результат: ".50", "3.62", "10.00", 2.125"
или
- 0.00, если показывать рубли в стандартном виде

ЗЫ. Занятый ты наш ;))))

← →
Anatoly Podgoretsky (2003-03-26 20:56) [10]

Похоже частично исправился, наверно твой и мой постинг прочитал :-)

← →
Officeman (2003-03-26 21:05) [11]

Спасибо! да я всё прочитал. надеюсь вы на меня несильно злитесь. надеюсь мы останемся друзьями. я настроен только положительно.

← →
Officeman (2003-03-26 21:10) [12]

=)) Чтото я совсем в глазки балуюсь. наверно переработал сегодня. что за компонента НД ? =)) уже пол часа ковыряюсь найти немогу. тем более немогу найти свойста этого компонента =))
вот умора. я уже смеюсь над собой последние 10 минут =))

← →
MsGuns (2003-03-26 21:19) [13]

>Officeman (26.03.03 21:10)

))))))))))))))

Чуть со стула не упал !!!!

НД - это НАБОР ДАННЫХ - обобщенное понятие курсора, предоставляемого программеру некими средствами (например, компонентами TTable или TQuery или TIBQuery...) доступа к Базам данных. Базовый класс TClientDataSet - абстрактный.
Тебе действительно не мешает перед работой бензопилой немного ознакомиться с инструкцией по ее эксплуатации ;))))

ЗЫ. Или прикалываешься ?

← →
zacho (2003-03-26 21:19) [14]

> Officeman (26.03.03 21:10)

Судя по твоему коду - Table1
:-)
P.S. НД - набор данных

← →
Officeman (2003-03-26 21:26) [15]

Ясно. запутали совсем старого человека =)

УРА !!! нашел родименький DisplayFormat !

← →
aaa3aaa (2003-03-27 07:06) [16]

... Говорят, Ученые двигали идею, что если посадить за печатные машинки всех обезьян, то по теории вероятности есть шанс, что они навояют "войну и мир".... Создание сети "Интернет" доказало что это не так....
Зато теперь любая обезьяна может программировать, просто напросто спрашивая у "Мастеров" какие буквы ей вбивать и куда...
Обсалютно не прибегая к остальным способам поиска информации, таким как: книги, хелпы, FAQ"s, те же ИНТЕРНЕТ-ПОИСКОВИКИ... обучение в институтах и на курсах...
Как то раз я смахнул даже слезу, когда один сердобольный малый на мое предложение одному чуваку "купить и Почитать книгу" сказал типа "... а вдруг у него книг НЕТУ или денег...". Странно все это... и смешно! ЧТО И БИБЛИОТЕК НЕТУ? И ДЕНЕГ НЕТУ САААВСЕМ ?(хотя на интернет то есть)
Да все гораздо прощще - ЖЕЛАНИЯ ИХ ЧИТАТЬ НЕТ. вот и все.....

Больно смотреть на то как форум постепенно превращяется в мусорку.
Нафига разводить на нем диспуты типа "HELLO WORLD" ...
Нет... конечно все относительно... и ответить можно на вопрос любой сложности, НО всему есть предел... по крайней мере по степени размусоливания и так уже РАЗМУСОЛЕННОГО ДОНЕЛЬЗЯ!!!
МАСТЕРА ОСТЕРЕГАЙТЕСЬ... иначе скоро здесь будет форум "обезьян", а все ветки сведутся к банальному пережовыванию одного и тово же примера "HELLO WORLD"... с пошаговым описанием действий типа "...а теперь нажмите вот эту кнопочку... кнопочучечку... сю.. сю.. сю.." :/
...надеюсь не стану объектом метания камней... просто очень форум хороший - ЖАЛКО ЕГО.
очень скоро на нем уже ничего нельзя будет спросить серьёзного, потому что ВСЕ, кто сможет ответить перестанут сюда заходить, пото му что им надоест видеть только типовые вопросы - не имеющие ничего общего с РЕАЛЬНОЙ проблемой...
А юзеров их задающих станет все больше... потому что такая будет реклама... А так как таких вопросов станет БОЛЬШИНСТВО, то "Мастера" уйдут отсюда (или тронутся умом)... в общем круг замкнулся.

← →
Anatoly Podgoretsky (2003-03-27 10:00) [17]

aaa3aaa (27.03.03 07:06)
Не мешай нам жить весело.

← →
Officeman (2003-03-28 19:13) [18]

После трудового дня. хочется посмеятся. просто взять и посмеятся.. я сегодня писал прогу с самого утра. приехал домой. щас опять сяду писать. я бы несказал что я ламо. хотя некоторые вопросы меня самого убивают.
На паскале я когдато писал БД и работал с графикой. хоть и примитивной. но тогда и это было круто. А всё началось. когда родители меня отправили в г.Белорецк на всё лето. в школу с математическим уклоном. там я и познакомился с паскалем(прикладное программирование). Только 3 года назад пересел на Дельфи, и сейчас пишу на дельфи. Занимался web-дизайном. пишу на php, немного perl, css(dhtml). графика: 3dsmax, coreldraw, photoshop, MFlash. Бывает так. вылетит чтонибудь из головы.
как наднях писал одну процедурку. и вылетело из головы слово(тип)
real. а у меня на рабочей машине, в дельфях help неустановлен.
2 часа вспоминал. пошёл машину помыл... и осенило. вспомнил =)
я так смеялся. главное обзвонил всех друзей. но никого незастал дома. сам вспомнил. всётаки есть предел у человеческого мозга.
нельзя всё помнить. я практически никогда недержал записных книжек. все телефоны, адреса, системные пароли всё в голове недоверяю я бумаге, а вдруг не в те руки попадёт. что тогда? сикир башка =/. Вот пришло наверно то время. пора завести блокнотик. Надеюсь цитата про обезьян, всётаки ко мне не относится.

с Уважением, Officeman (aka ZERAM)

← →
Anatoly Podgoretsky (2003-03-28 19:25) [19]

Но человек то ты веселый

← →
MsGuns (2003-03-28 19:42) [20]

>Officeman (28.03.03 19:13)
>я практически никогда недержал записных книжек. все телефоны, адреса, системные пароли всё в голове недоверяю я бумаге, а вдруг не в те руки попадёт. что тогда?

Еще в бурсе (а я закончил ХАИ) меня научил один совсем нетупой доцент (которого я поначалу да по молодой зелености считал тупейшим) раз и на всю жизнь. Он, зная, что я не пишу конспектов (это было уже на 4-м курсе), наотрез отказался принимать у меня экзамен пока я не тритащу ему СОБСТВЕННЫЙ конспект (образец моего почерка у него был). Я, как долбонавт, три дня и три ночи его переписывал. Экзамен сдал. Но !!! Предмет, который не знал практически вовсе, освоил ! За три дня !

Добавлю, что когда пишешь, работает не только "слуховая" и "глазная" память, но и "телесная", которая существенно круче первых друг, просто мы ею не владеем в полной мере.
С тех пор, изучая что-то (например, Дельфи),- пишу конспекты !
Было куча примеров, когда молодые, увидя, ржали. Но через непродолжительное время выяснялось, что некоторые вопросы, по которым я у них консультировался, я ПОНИМАЮ гораздо глубже, чем они. Теперь уже не смеются ;))

PS. Кстати, постоянно пользуюсь этими самыми конспектами, которые "не слезают" с моего рабочего стола. Выигрыш во времени (по сравнению с хелпами) офигенный. Часто просто откроешь страницу, увидишь первые строки - и все ! вспомнил ! С хэлпами совсем не так (может, потому что англ. мне не так родной как русский).

Real type=) десятые и сотые Найти похожие ветки