Ja, ich denke der Titel sagt schon alles.
Ich habe in einer Item Box Dateien und Ordner gelistet. jetzt soll Delphi Prüfen ob es ein eine dateiendung vorhanden ist.

wie mach ich das?
if variable='.irgentwas' then ... kanns ja nicht sein.

Gehe in einer Schleife Zeile für Zeile durch, und schaue mit der ExtractFileExt()-Funktion, ob die Dateiendung mit der gesuchten übereinstimmt. Sobald Du fündig geworden bist, brichst Du die Schleife ab und gibst die Zeilennummer zurück.

Mit ExtractFileExt() komst du an die Endung der Datei.

Hi,

meist ist es sinnvoll, ExtractFileExt im Zusammenhang mit Upper/Lowercase zu nehmen, z. B.

markieren

Delphi-Quellcode:

Ext := LowerCase(ExtractFileExt(FileName));

if Ext = '.txt' then
  ...
else
if Ext = '.mp3' then
else
  ...

Mfg
FAlter

Zitat von Fussball-Robby:

Mit ExtractFileExt() komst du an die Endung der Datei.

Nein es wird keine spetzielle gesucht sondern nur ob es eine Datei oder Ordner ist.

auch ohne Punkt kann es ein Dateiname sein

somit ist die Überschirft wohl mehr falsch
> "Prüfen ob string einen '.' enthält und somit Dateiname ist."


Dateiname auf Gültigkeit prüfen
> z.B. http://www.delphipraxis.net/internal...ct.php?t=17470


[edit] ja stimmt ... siehe Alfi001

Zitat von Deltachaos:

Nein es wird keine spetzielle gesucht sondern nur ob es eine Datei oder Ordner ist.

...was man aber nicht daran erkennen kann, dass der Name eine/keine Extension hat:

MeinOrdner.txt - gültiger Ordnername mit Extension
MeineDatei - gültiger Dateiname ohne Extension

Eventuell könntest du noch mit "FileExists()" bzw. mit "DirectoryExists()" prüfen ob der ermittelte Name wirklich ein Ordner oder eine Datei ist.

[edit: oops, da war himitsu schneller (gibts den roten Kasten nicht mehr??)]

Man könnte auch noch prüfen, ob die Datei/der Ordner existiert und wenn ja, ob faDirectory in den Attributen enthalten ist.

Zitat von Deltachaos:

Ich habe in einer Item Box Dateien und Ordner gelistet.

Wenn du die Dateien selbst über FindFirst/-Next einfügst, dann kannst du an der Stelle schon parallel eine Liste mit den Zuordnungen Datei/Verzeichnis führen. Das wäre vermutlich das schnellste und auch das einfachste und obendrein noch zuverlässig.

Fügst du sie allerdings nicht selbst hinzu und hast somit keine Möglichkeit, sie vorher schon zu überprüfen, könntest du folgenden Code benutzen:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyResult = (mrFile, mrFolder, mrNone);
//...

function FileOrFolder(Path: String): TMyResult;
begin
  if FileExists(Path) then
    Result := mrFile
  else
  if DirectoryExists(Path) then
    Result := mrFolder
  else
    Result := mrNone;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case FileOrFolder('D:\') of
    mrFolder: ShowMessage('Dies ist ein Ordner!');
    mrFile: ShowMessage('Dies ist eine Datei!');
    mrNone: ShowMessage('Weder Datei noch Ordner ;-)');
  end;
end;

Hab dafür jetzt 5 Minuten geopfert und wollte nicht, dass diese Arbeit umsonst gewesen ist

Mfg