Zitat von
thkerkmann:
Hallo,
Zitat von
ghost1601:
Hallo!
Ich arbeite derzeit an einer Datenbank, diese funktioniert soweit auch.
Sie besteht aus einem eigenem Datentyp (dort sind strings enthalten, der Datentyp ist ein record), der in einem Array beim schließen der Form in eine Datei geschrieben wird.
Nun möchte ich jedoch noch eine Suchfunktion zu dem Programm hinzufügen, die das array an allen Stellen auf einen Suchbegriff überprüft.
Bisher bin ich soweit gekommen:
Delphi-Quellcode:
function TForm1.Suche(const sucheNach : String): LongInt;
var i : Integer;
begin
for i:= 1 to max do
if datenfeld[i].clanname = SucheNach then
result := i;
end;
Sprich dies stellt meine Suchfunktion dar. Das Problem ist jedoch, dass bei der Suche immer die aktuelle Stelle des angezeigten arrays überschrieben wird. Nun ich denke jedem ist klar, dass das nicht passieren soll. Hat jemand eine Idee oder vielleicht Verbesserungen um dieses Problem zu lösen?
Vielen Dank und frohe Weihnachten
Wie wärs denn beim Finden auch die Suche zu verlassen ?
Delphi-Quellcode:
function TForm1.Suche(const sucheNach : String): LongInt;
var i : Integer;
begin
for i:= 1 to max do
if datenfeld[i].clanname = SucheNach then
begin
result := i;
exit;
end;
end;
Gruss
ja das hatte ich auch schonmal so, nur ,dass das auch nichts an dem Fakt ändert, dass die aktuelle Position in der Maske mit dem Suchergebnis überschrieben wird
