Discussion :

[smail21]

bonsoir
mon programme consiste à créer une chaines de caractères ayanat une longueur fixe, et de l'affcher dans un Tmemo, ensuite je dois modifier cette même chaine et l'afficher dans un autre mémo.

voici le code de la procedure :

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
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure TFentree.dxButton3Click(Sender: TObject);
Var lettres : array[0..3]of string;
    i,j,let,cota: integer;
    s1:string;
begin
// edit3 est la longueur de la chaine à créer
 
memoi.clear;
lettres[0]:= 'A';
lettres[1]:='B';
lettres[2]:='C';
lettres[3]:='D';
 
for j:=1 to  edit3.value do
begin
i := random(4); // entre 0 et 3 donc
memoi.text:=memoi.text+lettres[i];
end;
 
s1:=copy(memoi.text,0,edit3.value);
 
memoj.clear;
 
//modifier 5 position de la chaine I
for j:=1 to  5 do
begin
i := random(edit3.value); // générer une position aléatoire à modifier
let:=random(4); // générer une lettre aléatoire (A,B, C ou D)
s1[i]:=lettres[let];// remplacer une lettre de S1 par la lettre générée
end;
 
end

l'erreur est dans l'affectation (entre string et char) dans :

Code :

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

s1[i]:=lettres[let];

que dois-je faire ?

merci

[sjrd]

Ce que tu dois faire ? Déclarer lettres comme array of Char, et pas array of string

[smail21]

mercii

et dire que je pensais à changer la déclaration du type de S1 et que c'était pas possible par rapport au contenu de memoj!

merci