25.03.2011, 18:50
|
|
Новичок
|
|
Регистрация: 25.12.2008
Сообщения: 71
Репутация: 114
|
|
Запись в массив
Здравствуйте !
Вот код
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
SR : TSearchRec;
Filename : TStrings;
papka : array of String;
Path : string;
i : Integer;
begin
Path:= 'C:\Program Files (x86)';
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
Filename.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
SetLength(papka, Filename.Count-1);
for i := 0 to High(papka) do begin
papka[i] := Filename.Strings[i] ;
end;
Label2.Caption:= papka[1];
end;
Задача: найти все папки перврго уровня в заданой дериктории и записать их в массив
Не пойму где ошибка .
Выдает...
Цитата:
Access violation at address 677B48B9 in module 'PSFolder.exe'. Read of address 00000038.
|
|