Thema: Delphi Problem bei schleife

Einzelnen Beitrag anzeigen

RedShakal
(Gast)

n/a Beiträge
 
#1

Problem bei schleife

  Alt 29. Jul 2009, 00:02
Hallo zusammen, ich habe in meinen Programm eine ListBox mit 2 Spalten. Die erste Spalte gibt den Namen an und die zweite Spalte den Authoren.

Die Strings werten von einem MasterServer direkt zum Client übertragen.

Masterserver:

Delphi-Quellcode:
[Maplist]
Anzahl=8
1=CYT_vs_unfair|D-FENS
2=area_Fayt_51|D-FENS
3=Die_Sanduhr|D-FENS
4=Krossfire|D-FENS
5=newm_01|-
6=newm_02|-
7=newm_03|-
8=newm_04|-
Dieser schickt es in einem String in folgendem Schema zum Client:

CYT_vs_unfair|D-FENS|area_Fayt_51|D-FENS|Die_Sanduhr|D-FENS usw.

Der Client zerteilt das | wieder in Einzeleile und wertet diese aus.

Das Problem liegt jetzt in einer Schleife bei der übernahme in die Listbox

Delphi-Quellcode:
  if (StrArr[0] = 'Maplist') and (AUser.Nick = 'KKND|Masterserver') then
    begin
      Form6.Maplist.Clear;
      Anzahl := StrtoInt(StrArr[1]);

      for i := 2 to Anzahl do
        begin
          LI := Form6.Maplist.Items.Insert(i);
          LI.Caption := StrArr[i];
          LI.SubItems.Add(StrArr[i+1]);
        end;
    end;
I fängt aus dem Grund bei 2 an, weil die 0 den Befehl "Maplist" enthält, an dem sich die Clients orientieren und wissen, welcher Befehl gerade kommt. Die 1 ist vergeben, weil sie die Anzahl der verschickten Maps mitsich bringt.

Wenn ich das so Starte, ist immer nur jeder Zweite Eintrag in der Listview korrekt.

Die Listview sieht dann so aus:
CYT_vs_unfair D-FENS
D-FEN area_Fayt_51
area_Fayt_51|D-FENS

usw.

Kann mir jemand helfen?
  Mit Zitat antworten Zitat