3 godziny .. hmm
if Socket.RecvText = 'haslo' then begin
Socket.SendStr('kewl, haslo pasuje i w ogole');
SetLength(AuthorizedClients, Length(AuthorizedClients) + 1); {Array of T...Socket}
AuthorizedClients[High(AuthorizedClients)] := Socket;
//zalogowany
end else begin
Socket.SendStr('Sry, ale zle haslo!'); //Opcjonalnie
Socket.Close;
//zle haslo
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.