при добавлении пакета
delphi Код:
if Dump.Count >= MaxLinesInPktLog then
SavePacketLog;
......
пр-а SavePacketLog
delphi Код:
procedure TfVisual.SavePacketLog;
var
SaveThis: TStringList;
begin
if not assigned(dump) then exit;
if ToolButton7.Down then
begin
AddToLog(rsSavingPacketLog);
SaveThis := TStringList.Create;
SaveThis.Assign(dump);
end;
Dump.Clear;
ListView5.Items.BeginUpdate;
ListView5.Items.Clear;
ListView5.Items.EndUpdate;
if ToolButton7.Down then
begin
if CharName <> '' then
if SaveThis.Count > 0 then
SaveThis.SaveToFile(PChar(ExtractFilePath(ParamStr(0)))+'logs\'+CharName+' '+AddDateTime+'.txt');
SaveThis.Destroy;
end;
end;
ToolButton7 -
элемент №10
MaxLinesInPktLog задаеться в ини.
SaveThis создаеться для того чтобы в момент сохранения лога дамп уже был чистым. т.е. избегаю ошибок в предыдущих версиях пх связаных с сохранением пакетов.
есть ошибки ?