Fórum um busca complicada com combo box #275896

Você verificou com o debug se os valores são iguais ?

sim, meu problema e como retornar o valor co combo pra o edit

DPinho,

Não entendi uma coisa. :oops:
Se o texto do edit é igual ao do combobox, por que você coloca o [b:77071082d4]if[/b:77071082d4]?


Não seria somente:

:D

mas eu preciso checar se realmente o testo e igual, preciso escolher o cadastro certo

Não aparece nada no Edit quando vc pressiona Enter ?

Não retorna nada, fica somente o que ja foi digitado. estava querendo fazer esta busca tipo do internet explore ate que ficou legal, mas não retorna pro edit

A ideia era colocar um aba embaixo do Edit para ficar parecendo com a busca do Internet Explore. Então vamos la

Primeiro coloque o Edit no Form e um ComboBox
Coloque o comboBox embaixo do registro
No evento Create do Form abra a Tabela e incialize o Combo

[color=red:7e55ef00f2]procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
comboBox1.Items.clear;
table1.First;
While not table1.Eof do begin
ComboBox1.Items.add(Table1.Fieldbyname(´Company´).asstring);
Table1.Next;
End;
end;[/color:7e55ef00f2]

em Implemetion coloque a função

[color=red:7e55ef00f2]function TForm1.Procura(Txt: string): String;
var
iA: INTEGER;
begin
WITH ComboBox1.ITEMS DO
if TXT <>´´ THEN
FOR iA:=0 to PRED(COUNT) do
IF (LSTRCMP(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0) OR
(LSTRCMPI(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0) THEN
BEGIN
RESULT:=STRINGS[iA];
BREAK;
END;
end;[/color:7e55ef00f2]

No Change do Edit coloque o codigo
[color=red:7e55ef00f2]procedure TForm1.Edit1Change(Sender: TObject);
var
iA,iB: INTEGER;
begin
IF NOT bPAUSA AND ACTIVE THEN BEGIN
IF PROCURA(Edit1.TEXT) <> ´´ THEN
BEGIN
iB:=LENGTH(Edit1.TEXT);
Edit1.TEXT:=PROCURA(Edit1.TEXT);
Edit1.SELSTART:=iB;
Edit1.SELLENGTH:=LENGTH(PROCURA(Edit1.TEXT))-iB;
end;
END;
bPAUSA:=FALSE;
//
FOR iA := 0 TO ComboBox1.ITEMS.COUNT-1 DO
IF comboBox1.ITEMS.STRINGS[iA] = Edit1.TEXT THEN BEGIN
ComboBox1.ITEMINDEX := iA;
BREAK;
END ELSE
ComboBox1.ITEMINDEX := -1;
ComboBox1.DroppedDown:=true;
end;[/color:7e55ef00f2]

no Evento KeyDow do Edit coloque o codigo
[color=red:7e55ef00f2]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF (KEY = VK_BACK) OR (KEY = VK_DELETE) THEN bPAUSA:=TRUE;
IF KEY = 13 THEN Edit1.SELSTART := LENGTH(Edit1.Text);
IF KEY = 27 THEN Edit1.CLEAR;
ComboBox1.DroppedDown:=False;
end;[/color:7e55ef00f2]

Beleza o macete da aba e mudar a propriedade [color=red:7e55ef00f2]DroppedDown[/color:7e55ef00f2] do combo em tempo de execursão