czy wie ktoś jak w ComboBox1 wyświetlić zawartość jakigoś folderu. Czy to się w ogóle da?
Za odpowedzi z gory dziekuje!!
czy wie ktoś jak w ComboBox1 wyświetlić zawartość jakigoś folderu. Czy to się w ogóle da?
Za odpowedzi z gory dziekuje!!
var
sr: TSearchRec;
begin
if FindFirst('c:\.', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
var
sr: TSearchRec;
begin
if FindFirst('c:*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) 0;
FindClose(sr);
end;
end;
A jak zrobić żeby nie było wyświetlane rozszeżenie pliku?
ComboBox1.Items.Add(copy(extractfilename(sr.Name), 1, length(extractfilename(sr.Name))-length(extractfileext(sr.Name))))
Powinno to być coś takiego :)