|
Ciao a tutti,
sto creando una rubrica telefonica e su un tasto "ricerca" abbinato ad un tedit vorrei con AnsiPos creare una ricerca.
ecco il codice ancora in fase di creazione.
procedure TFCerCell.CercaBtnClick(Sender: TObject);
var
s0,s1,s2,s3,s4,s5,s6,s7,s8 : string;
begin
table1.First;
Screen.Cursor := crHourGlass;
While not
table1.Eof do
begin
Application.ProcessMessages;
s0:=table1Cognome.Value;
s1:=table1Nome.Value;
s2:=table1Via.Value;
s3:=table1Citta.Value;
s4:=table1Provincia.Value;
s5:=table1CAP.Value;
s6:=table1TelPrivato.Value;
s7:=table1TelUfficio.Value;
s8:=table1Telcellulare.Value;
if AnsiPos(ricerca.Text, s8)>0 then
begin
table2.Append;
table2Cognome.Value:=s0;
table2Nome.Value:=s1;
table2Via.Value:=s2;
table2Citta.Value:=s3;
ecc...
praticamente fa la ricerca di quello che scrivo nel ricerca.Text e me lo scrive in una tabella temporanea che all'uscita io svuoto.
Però così la ricerca la effettua solo su s8
La mia domanda è
posso fare in modo che AnsiPos cerchi in tutte le colonne di table 1 e non solo su "s8"?
Non sono ancora tanto pratico di delphi lo uso da poco.
Grazie
| 
