[Kirhanter]

Создаю вообщем мессенджер. И сервер отправляет всех пользователей. Но while пропускает. Я ХЗ почему

Код:

procedure SendAllUsers(Login:string; Socket: TCustomWinSocket);
var s:string;
Begin
  AssignFile(f, 'Users\All.tbb');
  Reset(f);
  while eof(f) do
    Begin
      ReadLn(f, s);
      Socket.SendText('g' + Login + '!' + s + #4);
    End;
  CLoseFile(f);
End;

Админ: Использование ОГРОМНЫХ шрифтов в постах запрещено! При рецедиве последуют санкции.

[nixon232]

Лучше бы почитал свой же код еще раз, чем писать бред, что до него.
У тебя в коде написано:

Код:

Пока конец файла , отправить что-то

Но если уже конец, то что ты хочешь отправить?