[Debutant] 2 Questions sous Delphi5
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
[Debutant] 2 Questions sous Delphi5
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:
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:
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:
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.
