[Kirhanter]

Ошибочка во время

Код:

 if s <> Login then b:=False
        Else b:=true;

Вот весть код:

Код:

procedure Send(Login:string; Info:string; Socket: TCustomWinSocket);
var Friend, sms, s, l:string;
b:boolean;
messages:array of string;
Begin
  l:=login;
  SetLength(messages, 0);
  b:=false;
  Friend:=Copy(Info, 1, pos('@', Info)-1);
  sms:=Copy(Info, pos('@', Info)+1, length(Info));
  Socket.SendText('h' + Friend + '!' + Login + '@' + sms + #4);
  if not DirectoryExists('Users\' + Login + '\sms\' + Friend) then
  MkDir('Users\' + Login + '\sms\' + Friend);
  if not DirectoryExists('Users\' + Friend + '\sms\' + Login) then
  MkDir('Users\' + Friend + '\sms\' + Login);
  AssignFile(f,'Users\' + Friend + '\MessageList.tbb');
  Reset(f);
  while not EOF(f) do
    Begin
    Readln(s);
      if s <> Login then b:=False
        Else b:=true;
    End;
  if b=false then Append(f);
  CloseFile(f);
  AssignFile(f,'Users\' + Login + '\sms\' + Friend + '\s.tbb');
  Append(f);
  Writeln('<' + sms);
  CloseFile(f);
  AssignFile(f,'Users\' + Friend + '\sms\' + Login + '\s.tbb');
  Append(f);
  Writeln('>' + sms);
  CloseFile(f);
End;