Discussion :

[LeMontois]

Bonjour à tous,

Je cale depuis un petit moment sur un problème avec FPC et sollicite votre aide.

J'ai besoin de pouvoir tester si un fichier (avec son chemin complet) est présent ou pas sur un système Linux mais ceci avec la condition que le test doit être case-insensitive, y compris au niveau du path. Dit autrement , je voudrais que si je cherche à tester l'existence de "/root/test/toto.txt" , les chemins suivants soient considérés comme valides:

• /root/Test/toto.txt
• /root/TEST/toto.txt
• /root/test/Toto.txt

Merci d'avance pour l'aide ou les pistes que vous pourrez m'apporter.

[Roland Chastain]

Bonjour !

J'ai lu une discussion dans laquelle quelqu'un suggérait de changer la valeur de la constante typée FileNameCaseSensitive. Il faut voir si cela résout votre problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program SetFileNameCaseSensitive;
 
{ Free Pascal 2.6.4
  Testé sous Windows
}
 
begin
  WriteLn(FileNameCaseSensitive); // TRUE
  FileNameCaseSensitive := FALSE;
  WriteLn(FileNameCaseSensitive); // FALSE
  ReadLn;
end.

[LeMontois]

Bonjour !

J'ai lu une discussion dans laquelle quelqu'un suggérait de changer la valeur de la constante typée FileNameCaseSensitive. Il faut voir si cela résout votre problème.

Merci pour votre réponse.
J'ai fait le test et fondais beaucoup d'espoir sur cette piste, mais malheureusement FileNameCaseSensitive ne me permet pas de régler le problème. Même en positionnant cette constante à FALSE, j'obtiens le même résultat (les paths avec casse différente ne sont pas trouvés sous Linux).
Encore merci.

[Roland Chastain]

Pas de quoi ! Apparemment, c'était trop beau pour être vrai. Il doit bien y avoir une façon de faire ce que vous voulez mais, ne connaissant pas Linux, je préfère ne pas trop m'avancer. J'espère que quelqu'un d'autre vous proposera une solution.

[NOVICE76]

tu test le premier chemin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
{$I-}
ASSIGN ( FICHIER_TRUC, CHEMIN_UN}
RESET   (FICHIER_TRUC)
{$I+}
IF IORESULT <> 0 THEN
    BEGIN
   Tu test le chemin 2 (idem ci-dessus)
    IF IORESULT <> 0 THEN
          BEGIN
          TU test le chemin 3 (idem dessus}
          END;
    END;

quand IORESULT = 0 c'est que ca marche

[Roland Chastain]

@NOVICE76

Effectivement on peut vérifier l'existence d'un fichier de cette façon mais cela ne résout pas le problème principal, car il faudrait tester toutes les variantes possibles de la chaîne, qui sont innombrables. Les trois exemples donnés par LeMontois n'épuisent pas toutes les possibilités.