Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: MySQL Datenbank Filter- bzw. Suchfunktion
27. Apr 2005, 14:25
Zitat von sniffy:
Ich würde es gerne so haben das man Zahlen und Buchstaben als Suchkriterium eingeben kann!
Wie würde es dann aussehen?
Büddeschön...
Delphi-Quellcode:
function Locate(DataSet: TDataSet; Text: string; out FieldName: string): Boolean;
var
i: Integer;
begin
i := 0;
while i < DataSet.FieldCount do
try
Result := DataSet.Locate(DataSet.Fields[i].FieldName, Text, [loCaseInsensitive]);
if Result then
begin
FieldName := DataSet.Fields[i].FieldName;
Break;
end;
Inc(i);
except
Inc(i);
end;
end;
|