|
#1
|
||||
|
||||
Запись в массив
Здравствуйте !
Вот код Код:
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; Задача: найти все папки перврго уровня в заданой дериктории и записать их в массив Не пойму где ошибка . Выдает... Цитата:
|