Registriert seit: 12. Aug 2003
Ort: Soest
4.035 Beiträge
Delphi 10.1 Berlin Enterprise
|
Re: MySQL Datenbank Filter- bzw. Suchfunktion
27. Apr 2005, 14:25
![](styles/elise/misc/quote_24x24.png)
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;
|