procedure TForm1.Open1(Sender: TObject);
var Path : string;
var searchResult : TSearchRec;
begin
if Radiobutton1.Checked then if OpenDialog1.Execute then
begin
Filelist := OpenDialog1.Files;
Memo1.Clear;
Memo1.Lines.AddStrings(Filelist);
Button1.Enabled := true;
Button2.Enabled := false;
end;
if Radiobutton2.Checked then if SelectDirectory('Select a directory','',Path) then
begin
Memo1.Clear;
if FindFirst(Path +'\'+ '*.ddj', faAnyFile-faDirectory, searchResult)= 0 then begin
Memo1.lines.append(Path +'\'+ searchResult.name);
While FindNext(searchResult)=0 do
begin
Memo1.lines.append(Path +'\'+ searchResult.name);
end;
end;
Button1.Enabled := true;
Button2.Enabled := false;
FindClose(searchResult);
end;
end;