* Platzhalter

[logo123]

Hi ich versuche gerade abzufragen of die ausgewählte Datei eine .txt oder .rtf datei ist.

Delphi-Quellcode:

 If Filename = *.rtf then
 begin
  ...
 end

Kann mir jemand helfen?

[Tormentor32]

Schau dir einfach mit
MyString := copy(Filename,length(Filename)-3,4) die letzten vier Zeichen des Filenames an

edit: ups tippfehler
edit2: na gut, so isses einfacher s.u.

[Klaus01]

Aus der Hilfe:

Zitat:

function ExtractFileExt(const FileName: string): string;
Description

Use ExtractFileExt to obtain the extension from a file name. For example, the following code returns the extension of the file name specified by a variable named MyFileName:

MyFilesExtension := ExtractFileExt(MyFileName);

The resulting string includes the period character that separates the name and extension parts. This string is empty if the given file name has no extension.

[Popov]

Delphi-Quellcode:

  if FileExist(FileName) then
    if ExtractFileExt(LowerCase(FileName)) =  '.rtf' then
      ...

[marabu]

Noch eine Alternative:

Delphi-Quellcode:

if FileExist(FileName) then
  if SameText(ExtractFileExt(FileName), '.rtf') then
      ...

Freundliche Grüße vom marabu

[shmia]

Delphi-Quellcode:

  if FileExist(FileName) then
    // zuerst ExtractFileExt, dann LowerCase ist schneller
    if LowerCase(ExtractFileExt(FileName)) =  '.rtf' then
      ...