Стр. 197 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
197
Button1: TButton;
Button2: TButton;
//объявление процедур
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure GetPicturePath(Path:string);
var
Form1: TForm1;
ms:array of string;
ms_count:word;
curr:integer;
implementation
uses jpeg;
{$R *.dfm}
procedure GetPicturePath(Path:string);
var
searhrec:TSearchRec;
amask:string[5];
r:integer;
begin
ms_count:=0;
SetLength(ms,ms_count);
if Form1.RadioGroup1.ItemIndex=0 then
amask:='*.bmp'
else
amask:='*.jpg';
if DirectoryExists(Path) then
begin
r:=FindFirst(path+amask,faAnyFile,searhrec);
while r=0 do
begin
inc(ms_count);
SetLength(ms,ms_count);