mit der suche lag an der groß- und kleinschreibung...hab jetzt ansiuppercase eingefügt
hab jetzt aber ein problem mit nem suchalgorhytmus ... buublesort
und zwar wollt ich die arrays alphabetisch nach dem vornamen ordnen lassen, aber irgendwie funzt das net
Delphi-Quellcode:
for i:=1 to anzahl-1 do begin
for j:=2 to anzahl do begin
if AnsiCompareText(myadr[j-1].vorname, myadr[j].vorname)>0 then begin
s:=myadr[j-1].vorname;
myadr[j-1].vorname:=myadr[j].vorname;
myadr[j].vorname:=s;
s:=myadr[j-1].nachname;
myadr[j-1].nachname:=myadr[j].nachname;
myadr[j].nachname:=s;
s:=myadr[j-1].alter;
myadr[j-1].alter:=myadr[j].alter;
myadr[j].alter:=s;
end;
end;
end;