Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как вывести результат поиска по базе в Edit [D6, XP]

Neo © (2007-10-19 15:34:00)
Доброго времени суток. Подскажите пожалуйста - я сделал подсчет повторений по огроменной базе (благо теперь это занимает около секунды), результат (т.е. число повторов) выводится в тот же DBGrid... а хотелось бы вывести его, скажем в Edit - как это организовать?

(база в парадоксе)
привожу код -

ZZ:=LabeledEdit1.Text;

with Query1 do
begin
Close;
SQL.Text:='SELECT COUNT(запрос) AS êîë FROM '+TabName+' WHERE запрос = "'+ZZ+'"';
Open;
end;

megabyte (2007-10-19 17:48:00) [1]

> Jeer © (19.10.07 15:44) [3]

это каким образом ко мне относится? :)

Jeer (2007-10-19 15:44:00) [2]
megabyte © (19.10.07 15:38) [2]

А ты уже все знаешь ?

Тогда объясни:

Jeer © (04.10.07 18:01) [34]

function CountOne_4(x: byte): byte;
var y: LongWord;
begin
y := x;
y := y * $08040201;
y := y shr 3;
y := y and $11111111;
y := y * $11111111;
Result := y shr 28;
end;

из http://delphimaster.ru/cgi-bin/forum.pl?id=1191498439&n=0

megabyte (2007-10-19 15:38:00) [3]
Не знаем, как в компонент edit вывести значение? Мде...

Jeer (2007-10-19 15:36:00) [4]
ed.Text := qu.Fields[0].AsString;

Наверх

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