Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.03.2018, 10:02
Vidoc3000 Vidoc3000 вне форума
Прохожий
 
Регистрация: 27.03.2018
Адрес: AD
Сообщения: 3
Версия Delphi: Delphi XE8
Репутация: 10
Восклицание Подскажите где ошибка

Помогите разобраться где я ошибся. Пытаюсь сделать бан лист для чата. Делал через процедуру работал через раз, а перешел на функцию вообще не работает. Если по имени то находит, а по Host`у уже не ищет. Или может какой пример есть по интересней чем моё "творчество"...
Код:
Function CheckBan (Status: Integer; Host, Name: String):boolean;
  var
    i, j: integer;
begin
  if Status = 2 then
    begin
      if Name<>'' then
        begin
          for I := 0 to Form4.ListBox2.Count-1 do
            begin
              j:= AnsiPos(Name, Form4.ListBox2.Items[i]);
              if j>0 then
                begin
                  //отладка
                  Form1.ChatMemo.Lines.Add(Form4.ListBox2.Items[i]+ ' : ' +Name);
                  UserMas[i].ban:=True;
                  //Form1.ServerSocket.Socket.Connections[i].Close;
                  //Form1.ServerSocket.Socket.Connections[i].SendText('7');
                  //UpdDo:=True;
                  Result:=True;
                end;
            end;
        end
      else
        begin
          if Host<>'' then
            begin
              for I := 0 to Form4.ListBox1.Count-1 do
                begin
                  j:= AnsiPos(Name, Form4.ListBox1.Items[i]);
                  if j>0 then
                    begin
                      //отладка
                      Form1.ChatMemo.Lines.Add(Form4.ListBox1.Items[i]+ ' : ' +Host);
                      UserMas[i].ban:=True;
                      //Form1.ServerSocket.Socket.Connections[i].Close;
                      //Form1.ServerSocket.Socket.Connections[i].SendText('7');
                      //UpdDo:=True;
                      Result:=True;
                    end;
                end;
            end
          Else
            Result:=False;
            Form1.ChatMemo.Lines.Add('WTF?!');
        end;
    end;
end;
__________________
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025