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

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

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

таблица (Paradox)

DIS © (2004-03-20 22:09:00)
Привет всем, подскажите у меня есть таблица (Paradox) с графами 1, 2, 3, мне нужно сделать так чтобы когда пишешь в TEdit автоматически выполнялся поиск по колонке 1. и еще, а как можно переключить поск с колонки 1 на другие. Благодарю за ответ.

Zacho (2004-03-23 09:02:00) [1]

> 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.

Наталия (2004-03-23 08:38:00) [2]
Для поиска по одной колонке попробуй так:
procedure TForm2.Edit1Change(Sender: TObject); begin Table1.Locate('MyField1','MyFindString',loPartialKey); end;

Dis (2004-03-22 23:16:00) [3]
Я 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;

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

Dis (2004-03-21 23:41:00) [5]
По поводу (8) такое мне встречалось в справке.

Dis (2004-03-21 23:38:00) [6]
Ладно соглашусь что неуч, а поиск то хотелось все таки сделать

Плохиш (2004-03-21 23:26:00) [7]
Да ладно вам :-) У него самый главный прикол в анкете в графе "Образование" написан 8-O))))

Anatoly Podgoretsky (2004-03-21 23:21:00) [8]
Там даже примерв вызова есть, навсякий случай привожу здесь

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

Anatoly Podgoretsky (2004-03-21 23:19:00) [9]
Неужели нечего, совсем ничего? Ни как не поверю.

Dis (2004-03-21 23:18:00) [10]
Я справку смотрел, но так и ничего не понял.
Там для onChange столько параметров.

Anatoly Podgoretsky (2004-03-21 23:16:00) [11]
Главное, забыл посмотреть справку. Только после этого приходи.

Dis (2004-03-21 23:15:00) [12]
Скажите что я неправильно делаю?
procedure TForm2.Edit1Change(Sender: TObject); begin OnChange: locate; end;

sniknik (2004-03-21 22:51:00) [13]
на onChange в TEdit делай Locate по нужной колонке в таблице, переключение каким нибудь условием регулируй.

Dis (2004-03-21 22:46:00) [14]
А для особо "одаренных" можно поподробнее?

Anatoly Podgoretsky (2004-03-21 13:29:00) [15]
Locate

Наверх

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