Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#12

Re: MySQL Datenbank Filter- bzw. Suchfunktion

  Alt 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;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat