Хм авто сохранение эт нада в TstringList исходную инфу переписывать и там есть встроенное сохранение...
Вот в
этой теме есть примеры(с сохранением)...
Как это понять "не повторялись"? Ты про сохранение? Тогда нужно добавлять TStringList массив
delphi Код:
A:array[1..10] of TstringList;
туды все вводить (По счету 1й, 2й, 3й) Добавлять функцию проверки (Когда новый покакет делается проверка в цикле всего массива на переменную Name и при повторении прост выходит и не записывает...)
delphi Код:
function NameRepeat(NameX:string) : boolean;
var
i : integer;
begin
for i:=1 to max do
if A[i].Name=NameX then begin
result:=True;
exit;
end;
result:=false;
end;
delphi Код:
Procedure Init;
begin
f:=0;
end;
delphi Код:
if FromServer and (pck[1]=#$03) and (not NameRepeat(Read( )) then
begin
inc(f);
A[f].Name:=...
Как-то так исправьте если дурак))
А переписывать скрипт этот мне лично влом))