Thema: Delphi Suchfunktion verbessern

Einzelnen Beitrag anzeigen

ghost1601

Registriert seit: 26. Aug 2006
64 Beiträge
 
Delphi 2005 Personal
 
#1

Suchfunktion verbessern

  Alt 11. Jan 2007, 10:02
hi,
ich habe mir eine suchfunktion zusammengebastelt mit der ich ein array durchsuchen kann. nun habe ich jeodch das problem, wenn man nicht einen exakten suchbegriff eingibt wird das gesamte array zerhaun und auch kein richtiges suchergebnis ausgegeben.
es wäre von daher ganz praktisch wenn man die suchfunktion so gestallten könnte, dass sie auch bei einer eingabe von nur einen buchstaben ein ergebnis zu tage fördert.
hier mal die jetzige funktion:

Delphi-Quellcode:
function TForm1.Suche(const sucheNach : string): LongInt;
var i:integer;
begin
for i:= 1 to max do
begin
    if datenfeld[i].kontaktname = SucheNach
        then
          begin
            result:=i;
            exit;
          end;
end;
end;
wenn jemand ne idee hat wie ich das bewältigen könnte wäre ich sehr dankbar
  Mit Zitat antworten Zitat