Suchfunktion für ein Array

[thkerkmann]

Hi,

ja, du täuscht dich - genau das Fehlen dieser Vorgehensweise ist der Grund für das Überschreiben deiner Daten.

Probiers doch mal aus...

Gruss

[ghost1601]

alles klar...ich hatte es mitlerweile schon anderweitig geregelt...
[delphi]
function TForm1.Suche(const sucheNach : String): LongInt;
var i:integer;
begin
for i:= 1 to max do
begin
if datenfeld[i].clanname = SucheNach
then
begin
result := i;
exit;
end
else
if datenfeld[i].clankuerzel = SucheNach
then
begin
result:=i;
exit;
end
else
if datenfeld[i].kontaktname = SucheNach
then
begin
result:=i;
exit;
end;
end;
end;

procedure TForm1.abc;
var such : String;
i:integer;
begin
such := InputBox('suchen nach', 'Suche', '');
i:= Suche(such);
daten:=datenfeld[i];
form2.edit1.text:=daten.clanname;
form2.edit2.text:=daten.clankuerzel;
form2.edit3.text:=daten.homepage;
form2.edit4.Text:=daten.nation;
form2.edit5.text:=daten.spiel;
form2.edit6.text:=daten.kontaktname;
form2.edit7.Text:=daten.icq;
form2.edit8.Text:=daten.msn;
form2.memo1.Text:=daten.kommentar;
daten:=datenfeld[i];
form2.StatusBar1.Panels[0].Text:='Position: ' + inttostr(i) + '/' + inttostr(max);
form2.showModal;

daten.clanname:=edit1.text;
daten.clankuerzel:=edit2.text;
daten.homepage:=edit6.text;
daten.spiel:=combobox1.Text;
daten.nation:=combobox2.Text;
daten.kontaktname:=edit3.text;
daten.icq:=edit4.text;
daten.msn:=edit5.Text;
daten.kommentar:=memo2.text;
datenfeld[p]:=daten;
end;