Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBLookupComboBox1 [D7, dBase, FoxPro]


Страницы:   1 2 ... 10 11 12 13 14 15 16 17 18 19

Fr1K ©   (2008-03-20 09:48:00) 

Я получаю значения полей 'SUMMA' в DBLookupComboBox1 как мне подсчитать все значения в DBLookupComboBox1


Ega23   (2008-03-20 14:55:00) [321]


> Чесно слово ну никак не могу понять! запутался!


Да забей, оно тебе не нужно.


Fr1K   (2008-03-20 14:52:00) [322]

Чесно слово ну никак не могу понять! запутался!


Сергей М.   (2008-03-20 14:49:00) [323]


> Fr1K ©   (20.03.08 14:47) [40]


"Прописать правильно", естественно, следует extended-значение !
А у тебя что прописано вместо этого ?

Ну ?! Рожай уже быстрее сам)... Образование-то у тебя "вроде какбы" высшее)


Fr1K   (2008-03-20 14:47:00) [324]

ну а как правильно прописать тогда?


Сергей М.   (2008-03-20 14:46:00) [325]


> Value:Extanded вроде какбы


Ну и?!

А тычто ей тычешь вместо Extended ?


Fr1K   (2008-03-20 14:45:00) [326]

Ну Value:Extanded вроде какбы


Сергей М.   (2008-03-20 14:42:00) [327]

Хорошо, зайдем на цель с другой стороны луны)

Функция FloatToStr ( тобой, кстати, впервые упомянутая в теме) какой тип данных требует в кач-ве параметра ?


Fr1K   (2008-03-20 14:41:00) [328]

Ответьте на вопрос. как мне сделать подсчёт чисел с запятой! причём тут офтоп


Fr1K   (2008-03-20 14:40:00) [329]

я не пойму в чём я издеваюсь! я спрашую конкретный вопрос на который не могу найти ответ!!! <Johnmen/B> а ты я смотрю только коментируешь здеь и всё ни одного ответа от тебя по делу нет


Сергей М.   (2008-03-20 14:39:00) [330]

Прямо таки напрашивается оффтоп:

"- Мы поднимаем алое знамя,
Просто другого цвета не знаем !
- Если не знаешь чего поднимать,
Что же ты лезешь, ... мать ?!
"
(с) "Оба-на !", Гимн пионерии, Угольников и Ко


Fr1K   (2008-03-20 14:38:00) [331]

ну вот функция что дал Ega23
function GetColumnSumValue(ds : TDataSet;const FieldName : string) : Integer;
var
bm : TBookmark;
begin
Result := 0;
with ds do
begin
  if not Active then Exit;
  if IsEmpty then Exit;
  bm := GetBookmark;
  DisableControls;
  try
    First;
    Result := FieldByName(FieldName).AsInteger;
    Next;
    While not (Eof) do
    begin
      Result := Result +  FieldByName(FieldName).AsInteger;
      Next;
    end;
  finally
    GotoBookmark(bm);
    FreeBookmark(bm);
    EnableControls;
  end;
end;


Ну что мне надо сделать чтоб читал числа с запятой... я не могу ваще понять


Johnmen   (2008-03-20 14:37:00) [332]


> Сергей М. ©

Ну хватит уж вестись :)
Дитя откровенно издевается...


Сергей М.   (2008-03-20 14:36:00) [333]


> Float не тот тип


Как это не тот ? Самый что ни на есть тот)
Но складывать нужно однотипныеданные !
А ты что с чем складываешь ? Ты складываешь float-значение с integer-значением !

Опять никаких мыслей ?)


Ega23   (2008-03-20 14:35:00) [334]


> Наводит на то только что Float не тот тип. А решение ему
> найти не могу


Не ребята, я пас.


Fr1K   (2008-03-20 14:33:00) [335]

Наводит на то только что Float не тот тип. А решение ему найти не могу


Сергей М.   (2008-03-20 14:32:00) [336]


> Fr1K ©   (20.03.08 14:31) [27]


И что ? Ни на какие мысли это не наводит разве ?


Fr1K   (2008-03-20 14:31:00) [337]

Да писал уже я... начинает ругатса... Incompatible types: 'Integer' and 'Extended'


Сергей М.   (2008-03-20 14:27:00) [338]


> в переменной AsInteger


Какой такой "переменной" ? Это свойство объекта, а не переменная !


> кроме AsInteger и AsVariant там нет больше других


Ты суслика видишь ? И я не вижу. А он есть !)

Напиши AsFloat вместо AsInteger ручкамии убедись в наличии суслика)


Fr1K   (2008-03-20 14:26:00) [339]

Ega23Еслиб я знал ответ на эттот вопрос яб не спрашивал! Так есть ли этому какоето решение?


Ega23   (2008-03-20 14:24:00) [340]


> но кроме AsInteger и AsVariant там нет больше других


Милое дитя, какой тип данных возвращает функция?


Страницы:   1 2 ... 10 11 12 13 14 15 16 17 18 19

Наверх

Титульная страница Поиск, карта сайта Написать письмо