Discussion :

[naute]

Bonjour .

Actuellement, je change manuellement, dans mon code, les / en \ selon que je compile pour GNU-Linux ou Windows. C'est simple, bien sûr, mais pas satisfaisant, dans la mesure où, entre autre, il n'est pas rare que j'oublie de faire la modification avant la compilation.
J'ai essayé un truc du genre:

Code Pascal :

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

1
2
3
4
5
6
 
{$ifdef Win32}
  separateur:='\'
{else}
  separateur:='/';
{$endif}

mais ça ne fonctionne pas. Voilà comment ça se présente dans mon code (capture):



J'ai bien sûr déclaré la variable en amont.

Code Pascal :

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

1
2
3
 
var
  separateur: char;

Je suppose que ça va en faire rire plus d'un mais faut être indulgent .

Quelle est la procédure correcte à suivre (si elle existe, mais je pense que oui)? Merci d'avance pour vos réponses.

Amicalement,

naute.

[DomDA91]

Utilise la constante caractère DirectorySeparator de l'unité System qui correspond au caractère '/' ou '\' selon l'OS ciblé :

Code :

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

mavar := 'un dossier' + DirectorySeparator + 'un fichier';

[naute]

Utilise la constante caractère DirectorySeparator de l'unité System qui correspond au caractère '/' ou '\' selon l'OS ciblé

Merci beaucoup pour ta réponse rapide et pour ne pas avoir rigolé.

Amicalement,

naute.

[BeanzMaster]

Salut

Juste au cas ou voici un petite fonction bien utile de ma bibliothèque, qui change le séparateur en fonction de l'OS :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Uses SysUtils, LazUTF8;
 
function FixPathDelimiter(S: string):String;
var
  I: Integer;
begin
  Result := S;
  for I := UTF8Length(Result) downto 1 do
  begin
    if (Result[I] = '/') or (Result[I] = '\') then
      Result[I] := PathDelim;
  End;
end;

A+

[naute]

Bonjour BeanzMaster .

Et merci! Je prend aussi . Les deux solutions ont chacune leurs avantages.

Donc, si je comprend bien,

Code :

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

PathDelim = DirectorySeparator

C'est quand même bizarre d'avoir deux constantes représentant la même valeur. Une seule aurait suffit, non?

Amicalement,
naute.

[DomDA91]

C'est quand même bizarre d'avoir deux constantes représentant la même valeur. Une seule aurait suffit, non?

DirectorySeparator est défini de base dans l'unité System.

PathDelim est un alias redéfini dans l'unité SysUtils, laquelle est principalement prévue pour la compatibilité Delphi.

Idem pour System.DriveSeparator et SysUtils.DriveDelim, System.PathSeparator et SysUtils.PathSep.

[alanglet]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Uses SysUtils, LazUTF8;
 
function FixPathDelimiter(S: string):String;
var
  I: Integer;
begin
  Result := S;
  for I := UTF8Length(Result) downto 1 do
  begin
    if (Result[I] = '/') or (Result[I] = '\') then
      Result[I] := PathDelim;
  End;
end;

Cette fonction peut ne pas fonctionner correctement car UTF8Length retourne le nombre de caractères. Return[I] sélectionne le Iième "octet" de Result et non le Iième "caractère". Par exemple "C:/André/" retournera "C:\André/" au lieu de "C:\André\".
Il doit être possible d'utiliser la fonction StringReplace, mais je la trouve trop sophistiquée pour remplacer seulement un caractère.
Je préfère:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function FixPathDelimiter(S:string;ToWin:Boolean=False):String;
var
 I:Integer;
 Old:Char;
begin
  {$ifdef windows}
  Old:='/';
  if ToWin then
    Result:=UTF8ToWinCP(S)
  else
    Result:=S;
  {$else}
  Old:='\';
  Result:=S;
  {$endif}
  for I:=1 to Length(Result) do
  begin
    if Result[I]=Old then
      Result[I]:=DirectorySeparator;
  end;
end;

où j'ai ajouté le paramètre ToWin pour effectuer si nécessaire la conversion en Ansi sous Windows. Certains composants de connexion à des bases de données par exemple, ne fonctionnent pas avec une adresse en UTF8.

André

[BeanzMaster]

Bonjour,



Cette fonction peut ne pas fonctionner correctement car UTF8Length retourne le nombre de caractères. Return[I] sélectionne le Iième "octet" de Result et non le Iième "caractère". Par exemple "C:/André/" retournera "C:\André/" au lieu de "C:\André\".

...

André

Salut bien vu André Grosse erreur de ma part ou j'ai changé Length par UTF8LengthLe code suivant lui fonctionne sans problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function FixPathDelimiter(S: string):String;
var
  I: Integer;
begin
  Result := S;
  for I := Length(Result) downto 1 do
  begin
    if (Result[I] = '/') or (Result[I] = '\') then
      Result[I] := PathDelim;
  End;
end;