Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TSearchRec;
pic : TJPEGImage;
x:string;
begin
x:= Edit1.Text+'\*.jpg' ;
if FindFirst(x, faAnyFile, fs)=0 then
repeat
Label1.Caption :=(fs.Name);
until FindNext(fs)<>0;
FindClose(fs);
end;
end.
|
Еще такой вопрос: В данном случай он выдает имя только последнего измененного файла. Я бы хотел сделать что он выводил их по очереди при нажатии