Hi,
das Problem ist etwas schwierig zu erklären, aber ich versuche es mal.
Ich möchte einen Chat programmieren. Jeder Benutzer hat eine ID von
Null bis zur maximalen Benutzer Zahl. Ich habe folgenden record für
die Benutzer erstellt:
Delphi-Quellcode:
type
PUserList = ^TUserList;
TUserList = record
[...]
szName: String[255];
dwID: Integer;
[...]
end;
Die Benutzer selbst werden dann in einem dynamischen Array von TUserList gespeichert.
Jetzt kommt die Frage, wie ich am besten einen Benutzer entferne. Wenn wir z.B. vier
Benutzer haben und der zweite Benutzer mit der ID geht, dann könnte ich doch von oben,
also von High(arrUserList) downto BenutzerID loopen und ihn dann entfernen? Das habe
ich schon probiert, aber es will nicht so recht klappen:
Delphi-Quellcode:
var
TempList: array of TUserList;
begin
try
for g := High(arrNickList) downto lpUserID+1 do
begin
//arrNickList ist das dynamische Array, wo die Benutzerdaten gespeichert werden.
SetLength(TempList, High(arrNickList));
CopyMemory(@TempList, @arrNickList, sizeof(arrNickList));
ShowMessage(arrNickList[g-1].szName + ' (' +inttostr(arrNickList[g-1].lpID)+ ') becomes ' + TempList[g].szName + ' (' +inttostr(TempList[g].lpID)+ ')');
arrNickList[g-1] := TempList[g];
arrNickList[g-1].lpID := g-1;
end;
SetLength(arrNickList, UserCount-1);
except
on E: EAccessViolation do
Log_Console('ERROR: Can not refresh the user list of server (' + E.Message + ')', false);
end;
end;
Leider funktioniert es nicht. :/
Gibt es noch andere Methoden, wie man einen Benutzer entfernen könnte, ohne
dabei die anderen gespeicherten Daten zu verlieren?
MfG: sk0r