Hallo!
Ich eine Datei in ein TImage einladen. ich kenne den Dateinamen, allerdings ohne endung. es könnte ein bmp, jpg, gif o.ä. sein.
ich muss also diesen ordner nach dieser datei suchen um die endung heraus zu bekommen und die datei dann zu öffnen.
Wie stelle ich das an?
als ansatz könnte man diese prozedur nutzen. sie durchsucht ein verzeichnis (incl Unterverzeichnisse -> bei mir aber nicht nötig) nach dateien eines bestimmten dateityps und fügt sie in eine ListBox ein. (z.b. alle mp3-dateien aus den eigenen Dateien)
Delphi-Quellcode:
procedure ScanDirectory(mask : String);
var
search : TSearchRec;
verz, such: String;
begin
such := ExtractFileName(mask);
verz := ExtractFilePath(mask);
if verz[length(verz)] <> '\' then
verz := verz + '\';
if (FindFirst(mask, faAnyFile, search) = 0) then
repeat
Form1.ListBox1.Items.Add(verz + search.Name);
until (FindNext(search) <> 0);
if (FindFirst(verz + '*.*',faAnyfile,search) = 0) then
begin
repeat
if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') and (search.name <> '..') then
ScanDirectory(verz + search.Name + '\' + such);
until (FindNext(search) <> 0);
FindClose(search);
end;
end;
Hat jemand einen Vorschlag?
Gruß, dopeline