Delphi

348
.
где тут ошибка ?
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;
Прикрепленные файлы:
.
Переместил
.
попробуй так:
procedure TForm1.Timer1Timer(Sender: TObject);
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;
.
Добавлено: 22.08.2017 / 15:57
# UJIN (16.08.2017 / 11:10)
попробуй так:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox1.items.count-1 do // Перебор строк списка
if pos(listbox1.items, log.lines.te
воооооооооооооо

Добавлено: 25.11.2017 / 19:04
помогите переделать этот код на дельфи
function aaHash($aa)
{
    $aa = md5($aa);
    $aa = str_split($aa);
    $aa = array_reverse($aa);
    $aa = implode('0', $aa);
    $aa = substr($aa, 5, 10);
    return $aa;
}
Всего: 4