[DELPHI] Uso dell'evento OnFilterRecord

[JuanJuan]

Salve Nettuno,
Grazie del tuo posto, davvero chiaro e didatticamente efficiente.
Ora devo solo mettere in ordine gli insegnamenti, non sarà facile considerato le mie modeste conoscenze del Dephi.
Spero di cavarmela e in caso di difficoltà oserò ancora chiederti lumi.
Ancora grazie e cordiali saluti.

[Nettuno95]

Salve Nettuno,
Grazie del tuo posto, davvero chiaro e didatticamente efficiente.
Ora devo solo mettere in ordine gli insegnamenti, non sarà facile considerato le mie modeste conoscenze del Dephi.
Spero di cavarmela e in caso di difficoltà oserò ancora chiederti lumi.
Ancora grazie e cordiali saluti.

1) Delphi non Dephi .
2) Grazie x i complimenti, ma non credo di essere un buon "maestro", mi arrangio a scrivere qualche riga di codice.
3) Chiedi pure, se sono in grado di darti una risposta lo farò molto volentieri.
Saluti

[JuanJuan]

Salve Nettuno,
Con non poco imbarazzo torno ancora a bussare alla tua porta.
Ho letto con attenzione le tue indicazioni, ho fatto varie prove, ho girato gran parte del web, ma non so riuscito nell'intento.
Ho capito il meccanismo teorico del filtraggio con OnFilerTrcord, ma non riesco a metterlo in pratica.
Uso solo un TTable e un TDataSource, occorreno altri componenti ? UpperCase(DataSet.FieldByName('AUTORE').AsString)) > 0; mi segnala errore,
mi dice di che DataSet non è definito.
Allora per cortesia, mi puoi dire step by step come costruire il filtro ?
e dove mettere le procedure ?
Con grande riconoscenza ti saluto cordialmente

[JuanJuan]

“Scopiazzando” qua e là ho fattoquesta


procedureTForm1.LibriFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
Cerca: string;
begin
Cerca:=UpperCase(DataSet.FieldByName('Autore').AsS tring +
DataSet.FieldByName('SubTitle').AsString +
DataSet.FieldByName('Autore').AsString);


Accept := Pos(UpperCase(Edit1.Text),UpperCase(DataSet.FieldB yName('AUTORE').AsString)) = 1;

end;


Non da errori
può funzionare ?
e se funziona come farla farla partire?

[JuanJuan]

Dopo un po di studio ho capito bene il meccanismo OnFilterRecord, ampliando le mie conoscenze delphi.
Dopo prove e riprove ho preferito questa procedura avviabile con un button
procedure TForm1.eceautoreClick(Sender: TObject);
begin
Table1.Close;
Table1.Open;
Table1.Filtered :=false;
Table1.Filter:='Autore = '+QuotedStr(Edit1.Text+'*');
Table1.FilterOptions:=[foCaseInsensitive];
Table1.Filtered :=True;
end;
filtra bene maiuscole e minuscole.
Ancora grazie e coriali saluti.