3 godziny .. hmm
Kopiuj
if Socket.RecvText = 'haslo' then begin
Socket.SendStr('kewl, haslo pasuje i w ogole');
SetLength(AuthorizedClients, Length(AuthorizedClients) + 1);
AuthorizedClients[High(AuthorizedClients)] := Socket;
end else begin
Socket.SendStr('Sry, ale zle haslo!');
Socket.Close;
end;
Pisane na miejscu, wiec nie sprawdzalem, ale masz zaczepienie. Po tej operacji, w tablicy AuthorizedClients masz liste 'zalogowanych' userow. Takie trudne?
Oczywiscie lepiej to zrobic na rekordach (bo niektorzy zaczna sie czepiac zaraz) ale chcialem pokazac, ze nie jest to temat, nad ktorym nalezy sie kilka tygodni zastanawiac.
tam w kwadratowych nawiasach podaje sie numer klienta(w kolejnosci podlaczania sie ich) wiec do tej listy podlaczonych userow powinny byc przypisywane kolejne liczby(od 0 w górę).
Nie wiem o co ci biega, tzn wiem, ale nie wiem jaki to ma zwiazek z tym przykladem.