как вывести результат поиска по базе в Edit

← →
Neo © (2007-10-19 15:34) [0]

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

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

ZZ:=LabeledEdit1.Text;

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

← →
Jeer © (2007-10-19 15:36) [1]

ed.Text := qu.Fields[0].AsString;

← →
megabyte © (2007-10-19 15:38) [2]

Не знаем, как в компонент edit вывести значение? Мде...

← →
Jeer © (2007-10-19 15:44) [3]

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.net/view/1-1191498439/

как вывести результат поиска по базе в Edit Найти похожие ветки