Mega Code Archive
Another ExtractFileName( ); function
<![CDATA[
Title: Another ExtractFileName( ); function.
Question: Is there another type of function of Delphi's ExtractFileName( )?
Answer:
function ExtractFileNames(FileNames:string):string;
var
S:string;
begin
S:='';
while Pos('.', FileNames) 0 do
begin
S:=S+Copy(FileNames,1,Pos('.',FileNames)-1);
Delete(FileNames,1,Pos('.',FileNames));
end;
result:=S;
end;
var
sFileName,sFileExt,sFileFullName:string;
begin
sFileFullName:='C:\1\1.mp3';
sFileName:=ExtractFileName(sFileFullName); //sFileName:='1.mp3';
sFileExt:=ExtractFileExt(sFileName); //sFileExt:='.mp3';
sFileName:=ExtractFileNames(sFileName); //sFilename:='1';
ShowMessage(sFileFullName+#13+sFilename+#13+sFileExt);
end;
]]>