Código Delphi [-]var sr: TSearchRec; begin ComboBox1.Items.Clear; if FindFirst('c:\*.txt', faArchive, sr) = 0 then begin repeat ComboBox1.Items.Add(sr.Name); until FindNext(sr) <> 0; FindClose(sr); end;
var sr: TSearchRec; begin ComboBox1.Items.Clear; if FindFirst('c:\*.txt', faArchive, sr) = 0 then begin repeat ComboBox1.Items.Add(sr.Name); until FindNext(sr) <> 0; FindClose(sr); end;