Discussion :

[Jipété]

ou je n'ai pas les yeux en face des trous ?


Bonsoir, et regardez :



C'est ex-ac-te-ment comme si la ligne ChangeFileExt(… n'existait pas.

Alors bon, j'ai réécrit la fonction et là, c'est bon :



Le temps que j'ai encore perdu avec cette c0nn3r13, même pas je vous raconte,

Pensez-y, quand vous coderez vos machins…

EDIT : je ne voulais pas mourir idiot alors j'ai démarré une machine virtuelle XP SP2 avec un Laz 1.8 et le problème est identique, ouf !




EDIT2 : pour faciliter la vie de ceux qui voudraient tester, copiez/collez ce qui suit dans la proc d'un bouton, ou du FormCreate, puis F9 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
var   
  tmpfile: string;
begin
  tmpfile := GetTempFileName(GetTempDir, 'abc');
 
  ChangeFileExt(tmpfile, '.jpg');
  // décommenter, au choix, dessus ou dessous (et commenter l'autre), pour voir ce qui se passe ou pas.
  //tmpfile := copy(tmpfile, 1, length(tmpfile)-length(ExtractFileExt(tmpfile))) + '.jpg';
 
  ShowMessage(tmpfile);