Просмотр поста

.
muhago97
где тут ошибка ?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
var
       i:integer;
       begin
       for i:=0 to listbox1.items.count-1 do // Перебор строк списка
       if pos(listbox1.items[i], log.lines.text)<>0 then //если совпал текст в логе, и в списке то...
       wsocket1.sendstr('ACTION 3 '+listbox1.items[i]); //запрос на посадку+ ID из списка
end;
Прикрепленные файлы: