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