Prüfen ob string einen '.' enthält und somit Dateiname ist.

[himitsu]

Delphi-Quellcode:

function FileOrFolder(Const Path: String): TMyResult;
var
  w: LongWord;
begin
  w := GetFileAttributes(PChar(Path));
  if w = $FFFFFFFF then
    Result := mrNone
  else
    if w and FILE_ATTRIBUTE_DIRECTORY = 0 then
      Result := mrFile
    else
      Result := mrFolder;
end;

// $FFFFFFFF = INVALID_FILE_ATTRIBUTES

:mrgreen: nein, ich bin jetzt nicht böse und schreib "nichma 'ne Minute"

[s-off]

Zitat:

Zitat von s-off

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.

Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte. Ich muss erst lesen, was der Threadautor wirklich möchte.