Discussion :

[hoRus`]

Bonjour,

Je suis sous delphi 5, j'ai 2 questions.

1// Je voudrais savoir comment ouvrir un fichier texte se trouvant dans le meme dossier que l'executable.

2// Je voudrais savoir comment faire un mélange de lettres choisies, par exemple pour sortir une chaine de caractères de a à z au hasard je fais : melange := 97+random(26); et j'aimerais par exemple faire une mélange des lettres "a" "p" "r"
est-ce possible ?

Merci d'avance, bonne journée

[ShaiLeTroll]

Tu peux utiliser

Code :

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

TStringList.LoadFromFile('.\MonFichier.txt');

si il n'y a pas eu de changement du répertoire encours ou sinon

Code :

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

TStringList.LoadFromFile(ExctractFilePath(Application.ExeName)+'MonFichier.txt');

sinon tu as au aussi AssignFile, ReadLn, ...

pour ton mélange

Code :

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

1
2
3
melange := ''; // string;
melange := melange +  Chr(Ord('A') + random(26)); 
...

[zinaif]

Bonjour ,
pour ta premiere question
1. comment ouvrir un fichier qui se trouve dans le meme dossier que ton application.
tu as le code suivant qui te donne le chemin de ton application .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 Var 
   F: Text;
   Chemin :string;
 begin
   Try
    Chemin := ExtractFilePath(Application.ExeName);
    AssignFile(F , Chemin+'NomFichierAvecExtension');
    Reset(F);
    (* Faire le traitement sur le fichier *)
   Finally
     CloseFile(F);
   End;
 end;

2.Pour ta deuxieme question.
Elle se divise en 2 partie
Premiere partie :
Pour faire un mélange avec des lettre aléatoirement de 'a' à 'z'
Voici la fonction tu lui donne la taille de ta chaine et elle te rend en sortie une chaine aléatoire constituée de 'a' à 'z' (aléatoirement)

Code :

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

1
2
3
4
5
6
7
8
9
 
    function ChaineAleatoire(Taille : integer) : string;
      var i : integer;
           chaine : string; 
     begin
          chaine := '';
          for i:= 1 to Taille do chaine := chaine + chr(97 + Random(26)) ;
          Result := chaine  
      end;

Pour la deuxieme partie :
tu auras besoin d'un tableau dans lequel tu stock les caracteres voulus dans la chaine .

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
 
   function ChaineAleatoireCarVoulu (Taille : integer) : string;
    var
      TAB : Array[0..2] of  char;
      I : integer;
      Chaine : string;
    Begin
     TAB[0] := 'a';
     TAB[1] := 'p';
     TAB[2] := 'r';
     Chaine := '';
     For i:= 1 to Taille do 
       Chaine := Chaine + Tab[Random(2)];
 
    Result := Chaine; 
 
    End;

J'espere que ca te conviendra .
Cordialement.

[hoRus`]

Merci de vos réponses !

J'ai testé pour ouvrir le fichier texte mais ca ne marche pas, les 2 techniques ne fonctionnent pas, j'ai fais deux screenshots :

http://img338.imageshack.us/img338/5279/erreur1xm8.jpg
http://img404.imageshack.us/img404/1259/erreur2dv6.jpg

Pour le mélange, je testerais plus tard, ca ma l'air bien compliqué ^^'

[petitprince]

Houla!! Y a du boulot....
Déjà, un coup de F1, ça peut aider...
Bref, TStringList est un Objet, il faut le creer:

Code :

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

1
2
3
4
5
6
7
var
 MaListe:TStringList;
begin
 MaListe:=TStringList.Create;   // on crée l'objet
 MaListe.LoadFromFile('MonText.txt');
 MaListe.Free;   // on oublie pas de le libérer !!!
end;

Ne Surtout pas oublier de libérer ton objet en fin de procédure !!

Mais avec ca, tu ne vois rien !! Un simple mémo ca suffit pas ?

Code :

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

Memo1.LoadFromFile('MonText.txt');

Pour le deuxième bug:

Code :

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

F:File;

Voilà....
Je te laisse le soin de paufiner le reste...
A plus!

[ShaiLeTroll]

Merci, petitprince, ... d'avoir compléter ma réponse, mais oui, F1, c'est indispensable, on ne peut toujours donner un code complet à toutes les questions mais un piste ..., faudrait que je précise quand je met du vrai code ou une pseudo proposition

Pour ton problème sur Text il faut utiliser TextFile, c'est la même chose, mais l'un est "deprecated" (obselète) et je ne sais plus dans quel uses il est dispo ...