Еще проблемка появилась 
| Код |
type
TFileArray = array of string;
var
LogFiles: TFileArray; //массив с именами файлов
function GetLogFile (Mask, Path: string; FileArray: TFileArray): integer;
var
LogFile: TSearchRec;
FullPath: string;
i: integer;
begin
i := 1;
FullPath := Path + '\' + Mask; //формируем полную маску поиска
if DirectoryExists(Path) then //если путь существует
if FindFirst(FullPath,faAnyFile,LogFile)=0 then //каждый подходящий файл
begin
SetLength(FileArray,i+1); //заносим в массив, соответственно
FileArray[i] := LogFile.Name; //увеличивая размер массива
while FindNext(LogFile) = 0 do
begin
inc(i);
SetLength(FileArray,i+1); //заносим в массив
FileArray[i] := LogFile.Name;
end;
end;
Result := i; //возвращаем кол-во файлов
end;
function ExtractFile(Name: string): boolean;
var
IP_ADR: string;
buf: string[255];
Log_File: TextFile;
data: string;
url: string;
size: integer;
begin
Assign(Log_File,Name);
try
Reset(Log_File); //открываем файл, если не открывается - выдаем ошибку
except
MessageDlg('Ошибка открытия файла '+Name,mtError,[mbOk],0);
Result := false;
Exit;
end;
while not EOF(Log_File) do
begin
Readln(Log_File,buf);
IP_ADR := CopyColumn(buf,' ',1);
data := CopyColumn(buf,' ',4);
url := CopyColumn(buf,' ',7);
size := StrToInt(CopyColumn(buf,' ',10));
FMain.Memo1.Lines.Add(IP_ADR+' '+data+' '+url+' '+IntToStr(size));
end;
Result := true;
end;
procedure TFMain.BitBtn1Click(Sender: TObject);
var
i: integer;
begin
i := 1;
LogFileCount := GetLogFile(edMask.Text,edPath.Text,LogFiles);
if LogFileCount = 0 then //если файлов не найдено - выдаем ошибку, выходим из процедуры
begin
MessageDlg('Лог-файлов не найдено!',mtError,[mbOk],0);
Exit;
end;
while i < LogFileCount do
ExtractFile(LogFiles[i]); //ошибка
end;
|
Вызывается ф-ция GetLogFile которая заполняет массив LogFiles именами файлов и возвращает кол-во файлов. Далее, для каждого файла из массива вызывается ф-ция ExtractFile, но там вываливается ошибка AccessViolation. Подскажите пожалуйста в чем проблема может быть? |
. В общем, RTFM!
