Fonction longpathparamstr

Description

Hello,

Suite à un problème rencontré avec paramstr(), j'ai réalisé une fonction permettant de regler ce dernier.

Le problème etant que paramstr() provoque quelques soucis en envoyant comme paramètre un chemin de fichier long.

J'ai trouvé une parade un peu "barbare" mais fonctionelle via une fonction nommé elle aussi d'un nom à la "walaigaine chewing gum".

je vous laisse la découvrir grâce au source fournis ci-dessous et à l'essayer via l'exemple fournis en zip.

J'attends vos commentaires.

@pluche

Source / Exemple :


Function LongPathParamStr:string;

Var
count,i:integer;
Path:string;

begin
i:=0;

Count:=Paramcount;

if count > 0 then
        begin
                repeat
                inc(i);
                if i=count then
                Path:=Path+ParamStr(i) else
                Path:=Path+ParamStr(i)+' ';
                until i=count;
        end;
  Result:=Path;
end;

Conclusion :


Un fichier .bat est inclus afin de vous eviter la saisie d'arguments. (Cela dit via l'environnement delphi cela se fait tout aussi bien... Mais bon on n'est pas à ça pres non plus).

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.