"Jean-Luc M." <alphomega@free.fr> a écrit dans le message de
news:mn.22467d7a0d7f1050.28556@free.fr...
> >
> > dans les dernières versions de la VCL, la propriété FilterIndex semble
mise à
> > jour après l'exécution de la boite de dialogue; idem dans l'évênement
> > OnTypeChange
> > (pas testé)
>
> Bien vu , j'avais pas pensé à vérifier ça, me disant que ce n'était
> qu'une initialisation du choix du type avant execution de la boite de
> dial.
> Merci
>
> --
> Jean-Luc M.
>
>

Function GetCurrentExtension(s:string;t:integer):string;
var i,j:integer;
begin
result:='';j:=0;
i:=0;
t:=(t-1)*2+1;
while (j<Length(s)) and (i<>t) do
begin
inc(j);
if s[j]='|' then inc(i);
end;
inc(j);
while (j<=Length(s)) and (s[j]<>'|') do
begin
result:=result+s[j];
inc(j);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;

//On affiche l'extension choisie

Label1.Caption:=GetCurrentExtension(OpenPictureDia log1.Filter,OpenPictureDia
log1.Filterindex);
end;