netFrame-Syntax:
function ExtractFileExt(aFileName: string) : string
Beschreibung:
Die ExtractFileExt Funktion extrahiert aus dem aFileName die Dateinamen Erweiterung.
Die Erweiterung wird einschliesslich des Punktes zurück gegeben (.txt, .doc usw.)
Beispiel:
procedure sample;
var
fullFileName : string;
begin
// Set up a full file name with drive and path
fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
// Show the component parts of this full name
ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
ShowMessage('Dir = '+ExtractFileDir (fullFileName));
ShowMessage('Path = '+ExtractFilePath (fullFileName));
ShowMessage('Name = '+ExtractFileName (fullFileName));
ShowMessage('Ext = '+ExtractFileExt (fullFileName));
end;
Ergebnis:
Drive = C:
Dir = C:\Program Files\Borland\Delphi7\Projects
Path = C:\Program Files\Borland\Delphi7\Projects\
Name = Unit1.dcu
Ext = .dcu