как найти файл с расширением *.txt в папке с с:/profile и записать путь файла в переменную path. Всё это в delphi

Question

Ryst Знаток (385), на голосовании 13 лет назад

txt в папке с с:/profile и записать путь файла в переменную path. Всё это в delphi

Answer 1

найти так:
const
p='с: \profile\*.txt'
var
s:tsearcrec;
begin
if findfirsr(p,faanyfile,s)=0 then
Устал писать а дальше сам