Цитата:
Сообщение от siryus
Может еще искусственный интеллект туда впеременить? Шобы он по таймеру самообучалсо? Извиняюсь за пафос, но это как спросить сколько будет 2+2 и получить ответ "а ты реши алгебрическую формулу в 2ГБ и узнаешь"
|
Добавлено через 5 часов 6 минут
ладно, тогда внатуре создаешь массив пакетов, и в таймере делать надо так:
delphi Код:
var
packets:array [0..размер] of string;
pckIndex:cardinal; //при запуске равняешь нулю
procedure OnTimer(Sender: TObject);
begin
buf:=packets[pckIndex];
SendToServerEx(Name);
inc(pckIndex);
if pckIndex>length(packets) then pckIndex:=0;
end;