J'ai fait une petite fonction pour extraire l'extension d'un fichier, mais mon pb est pour les extension ayant un nom du type toto.txt.html. Je veux extraire juste le html, et j'ai écrit ça :
Function TForm1.TestExtension(var name : string) : string;
var position : integer;
extension : string;
begin
position:=pos('.',name);
if position > 0 then
begin
extension:=copy(name, position+1, length(name));
TestExtension(extension);
end
else
begin
extension:=extension;
end;
TestExtension:=extension;
end;
Mais il me renvoie le bloc txt.html.
Help me please ....