Dynamische Arrays

[bl4ckb1rd]

Folgendes Problem:
Ich möchte Überprüfen ob schon ein vorhandener 'Nickname' existiert, alle Nicknames sind in einem dynamischen Array gespeichert. Gibts den Namen schon, so soll dem dazugehörigen Objekte neue Werte zugewiesen werden, wenn es den Namen nicht mehr gibt, so soll ein neues Object erstellt werden. Mein Code erkennt nicht vorhandene Spieler und erstellt diese auch erfolgreich, doch irgendwie passiert nix, wenn es den spieler schon gibt. Ich vermute das es an den dynamischen Arrays liegt :S

Hier der Code des Abschnittes:

Delphi-Quellcode:

for I := 0 to length(nicks) - 1 do begin               // in nicks sind alle bisher aufgetauchten nicknames gespeichert
    if nicks[I]=player_1_nick then begin                       //Kontrolle ob spieler 1 existriert
      n1 := 1;
    end;
    if nicks[I]=player_2_nick then begin                       //Kontrolle ob spieler 2 existriert
      n2 := 1;
    end;
  end;
  if n1 = 0 then begin                                          // wenn spieler 1 nicht existriert, so soll dieser erstellt werden
    SetLength(nicks, Length(nicks) + 1);    //vergrößerung des dyn arrays
    nicks[length(nicks)-1] := player_1_nick;  // an den letzten platz wird der neue nickname eingefügt
    //create player_1
    spieler := Tplayer.create(player_1_nick);  // object wird erstellt
    spieler.inc_deaths;
    if dmg_art = 'MOD_MELEE' then
      spieler.inc_knivedeaths;
    if dmg_art = 'MOD_EXPLOSIVE' then
      spieler.inc_exp_deaths;
    Listbox1.items.AddObject(player_1_nick,spieler);
  end
  else                                              // falls dieser spieler doch existiert, also im array Nicks gefunden wurde, sollte eig. dieser Abschnitt aufgerufen werden
  begin                                             // passiert aber leider nicht  = (
    showmessage('b');
    I := 0;
    repeat                                               // Suche des richtigen Objects
      spieler := listbox1.Items.Objects[I]as Tplayer;
      inc(I);
    until spieler.get_nicks = player_1_nick;
    if dmg_art = 'MOD_MELEE' then                      // Aktualisierung des Objects
      spieler.inc_knivedeaths;
    if dmg_art = 'MOD_EXPLOSIVE' then
      spieler.inc_exp_deaths;
  end;

Wenn also n1<>0 ist, also der spieler schon in Nicks vorhanden ist, so soll zuerst showmessage('b') auftauchen, doch dies passiert nicht.