|
|||||||
| Пакеты Форум о форматах отдельных пакетов или групп пакетов |
|
|
Опции темы | Опции просмотра |
07.03.2011, 19:41
|
#4 |
|
Местный
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
 |
Код:
begin
if (FromServer) and (pck[1]=#$00) then
begin
list.Add(pck);
pck:='';
list.SeveToFile('c:\asd.txt');
end;
end.
ps: list: TStringList
__________________
 В любом из нас спит гений. И с каждым днем все крепче.  Переходим на протокол нового поколения jabber |
|
|
|
Древовидный вид
|
|
Часовой пояс GMT +4, время: 08:40.