besondere datei in einem ordner finden ?

[agm65]

ich schon wieder .... wie kann ich in einem ordner eine besondere datei finden ..
zB habe 100 bmps und 1 jpg -> finde jpg ? von dieser besonderen file ist immer nur 1ne da ! danke euch !

[p0w3r5tr34m3r]

schau dir doch mal TSearchRec an.. TSearchRec

Mit freundlichen Grüßen
p0w3r5tr34m3r

[agm65]

ich brauch aber keine auflistung sondern ich dachte eher an eine funktion wie diese:
also mal einfach so drauf los...

Delphi-Quellcode:

function findfile(path:String) string;
begin
result = searchfile(path)
end;

ergebnis meine file

[himitsu]

FindFirst mit Pfad+'\*.jpg' nach deiner Datei suchen lassen?

[add]
Ach ja, eine eigenständige Funktion dafür gibt es nicht.

[agm65]

kannst du mir den ganzen aufruf von findfirst nennen, damit ich meinen datei name zurück bekomme ? danke dir vielmals!

[himitsu]

hab ich nicht im Kopf (die WinAPI dazu gefällt mir besser)

Aber schau doch mal in die OH ... dort gibt es ein Beispiel

[agm65]

okay, ich habs hinbekommen, funktioniert auch...

Delphi-Quellcode:

var
search : TSearchRec;

if findfirst(Path +'\*.jpg',faArchive,search) = 0 then showmessage(search.Name );

so jetzt bekomme ich aber eine meldung, das dieses faArchive plattform speziefisch ist...wie kann ich das ändern ?

[himitsu]

Das ist nur wegen der Linuxkampatibilität (Kylix), denn da gibt's dieses Atribut nicht.

Ich glaub da konnte man was mit {$warn ... off} machen

Unter [oh]$warn[/oh] sollte der genaue Parameter zu erfahren sein.
(nicht über "Suche" gehn ... die hat probleme mit dem $ ... im "Index" steht es recht weit oben)

[agm65]

alles klar ! danke dir !