Hi Leute
Erst einmal Hallo.
Mein name ist Wootend und ich komme aus Wolfsburg.
Nun zu meinem Problem.
Ich arbeite an einem proof of concept...und zwar versuche ich einen kleine chat zu programmieren...
das ist auch erst mal nicht das problem...jedoch macht mir die userverwaltung zu schaffen!
ich habe eine ini-datei mit den belegten usernummern...um eine liste zu haben wurden ca. 5000 nummern erzeugt! (alle einzigartig)
wenn ich die inidatei jedoch lade und die registrierten user versuche in eine listview zu schreiben werden nur knapp 2081 user ausgelesen. ich habe den mechanismus schon mehrfach umgeschrieben und immer das gleiche ergebnis!
hier etwas quellcode
Code:
procedure userladen;
var inhalt:tstringlist;
var zahl:integer;
begin
iserv.regd.Clear;
if FileExists(extractfilepath(paramstr(0))+'server\used.ini') then
begin
inhalt:=tstringlist.Create;
userIni := TInifile.Create(extractfilepath(paramstr(0))+'server\used.ini');
userini.ReadSections(inhalt);
userini.Free;
userIni := TInifile.Create(extractfilepath(paramstr(0))+'user\accounts.ini');
for zahl:=0 to inhalt.Count-1 do
begin
iserv.regd.Items.Add.Caption:=userini.ReadString(inhalt[zahl],'nickname','empty');
iserv.regd.Items.Item[iserv.regd.Items.Count-1].SubItems.add(inhalt[zahl]);
iserv.regd.Items.Item[iserv.regd.Items.Count-1].SubItems.add(userini.ReadString(inhalt[zahl],'banned','yes'));
end;
inhalt.Free;
end;
end;
kann mir wer sagen wo nun der fehler liegt? an der stringlist oder an den inifiles?
da ich lauter einzelne sektionen erzeuge sollte es daran ja nicht liegen oder?
hoffe ihr könnt mir helfen!!
-verzweifelter coder-