Suchfunktion verbessern

[marabu]

Hi,

ich habe den von Christian verlinkten thread nicht gelesen, aber zu deiner Suchfunktion: Ich würde die zu einer eigenständigen Funktion machen und nicht zu einer Methode:

Delphi-Quellcode:

type
  KontaktRec = record
    Nachname: String;
    Vorname: String;
  end;

var
  Kontakte: array of KontaktRec;

uses
  StrUtils;

function Suche(const Kontakte: array of KontaktRec; const Feld, Zeichenkette: String): Integer;
var
  found: Boolean;
begin
  Result := High(Kontakte);
  while Result >= 0 do
  begin
    case AnsiIndexText(Feld, ['NachName', 'Vorname']) of
      0: found := AnsiContainsText(Kontakte[Result].Nachname, ZeichenKette);
      1: found := AnsiContainsText(Kontakte[Result].Vorname, ZeichenKette);
    else
      found := False;
    end;
    if found
      then Exit
      else Dec(Result);
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu