таблица (Paradox)

← →
DIS © (2004-03-20 22:09) [0]

Привет всем, подскажите у меня есть таблица (Paradox) с графами 1, 2, 3, мне нужно сделать так чтобы когда пишешь в TEdit автоматически выполнялся поиск по колонке 1. и еще, а как можно переключить поск с колонки 1 на другие. Благодарю за ответ.

← →
Anatoly Podgoretsky © (2004-03-21 13:29) [1]

Locate

← →
Dis © (2004-03-21 22:46) [2]

А для особо "одаренных" можно поподробнее?

← →
sniknik © (2004-03-21 22:51) [3]

на onChange в TEdit делай Locate по нужной колонке в таблице, переключение каким нибудь условием регулируй.

← →
Dis © (2004-03-21 23:15) [4]

Скажите что я неправильно делаю?
procedure TForm2.Edit1Change(Sender: TObject); begin OnChange: locate; end;

← →
Anatoly Podgoretsky © (2004-03-21 23:16) [5]

Главное, забыл посмотреть справку. Только после этого приходи.

← →
Dis © (2004-03-21 23:18) [6]

Я справку смотрел, но так и ничего не понял.
Там для onChange столько параметров.

← →
Anatoly Podgoretsky © (2004-03-21 23:19) [7]

Неужели нечего, совсем ничего? Ни как не поверю.

← →
Anatoly Podgoretsky © (2004-03-21 23:21) [8]

Там даже примерв вызова есть, навсякий случай привожу здесь

with CustTable do
Locate("Company;Contact;Phone", VarArrayOf(["Sight Diver", "P", "408-431-1000"]), [loPartialKey]);

← →
Плохиш (2004-03-21 23:26) [9]

Да ладно вам :-) У него самый главный прикол в анкете в графе "Образование" написан 8-O))))

← →
Dis © (2004-03-21 23:38) [10]

Ладно соглашусь что неуч, а поиск то хотелось все таки сделать

По поводу (8) такое мне встречалось в справке.

2 Dis © : Ну и сделай. Всю необходимую информацию тебе уже дали. Или ты хочешь что-то сделать, не зная основ Object Pascal и не желая (не умея ?) читать учебники ? Тогда называй цену, если устроит - сделаем.

Я CustTable заменил на Table1, теперь компилятор встает на VarArrayOf и говорит, что это неописанный индефикатор (Undeclared identifier), как правильно его написать?
Заранее благодарен.

procedure TForm2.Edit1Change(Sender: TObject); begin with Table1 do Locate("Company;Contact;Phone", VarArrayOf(["Sight Diver", "P", "408-431-1000"]), [loPartialKey]); end;
в справке я нашел пример для VarArrayOf скажите этот пример в тему?

var A: Variant; begin A := VarArrayCreate([0, 4], varVariant); A[0] := 1; A[1] := 1234.5678; A[2] := "Hello world"; A[3] := True; A[4] := VarArrayOf([1, 10, 100, 1000]); WriteLn(A[2]); { Hello world } WriteLn(A[4][2]); { 100 } end;

Для поиска по одной колонке попробуй так:
procedure TForm2.Edit1Change(Sender: TObject); begin Table1.Locate("MyField1","MyFindString",loPartialKey); end;

> Dis © (22.03.04 23:16) [13]
> на VarArrayOf и говорит, что это неописанный индефикатор
> (Undeclared identifier

Небольшой совет на будущее:
1. Обычно в хелпе указывается модуль, в к-ром описан индетификатор.
2. Всегда можно поискать в $(DELPHI)\Source и найти этот модуль. Например, прямо из Дельфи - Search -> Find in files..
В случае с VarArrayOf получаем (у меня, у тебя может быть и другое) C:\Program Files\Borland\Delphi6\Source\Rtl\Sys\Variants.pas(71): function VarArrayOf(const Values: array of Variant): Variant;
Сразу видно, что эта ф-ция описана в модуле Variants.
3. Естественно, надо добавить имя модуля в uses.

P.S. И все-таки прочитай хоть какой-нибудь учебник. Таких вопросов после этого просто не возникнет. Например, советую "Delphi 5. Руководство разработчика баз данных." Шумаков, Фаронов.
И еще желательно что-нибуть по основам Object Pascal.

таблица (Paradox) Найти похожие ветки