![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DBLookupComboBox1 [D7, dBase, FoxPro]
Fr1K © (2008-03-20 09:48:00)
Страницы: < 1 2 ... 10 11 12 13 14 15 16 17 18 19 >
Я получаю значения полей '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 там нет больше других
Милое дитя, какой тип данных возвращает функция?