Recherche:

Très bon, je le note.:king:

passe par une variable temporaire que tu affecteras en fin de procédure



procedure TForm1.Button1Click(Sender: TObject);
const
CaractereDejaReplace = '*';
var
i, j : integer;
a, b :...

+1
:oops: Mais oui bien sûr

Oui c'est aussi une solution mais il faudra faire quand même attention aux bornes



j := randomRange(1, length(a) -1 );

Ouh là, attention à bien utiliser tous le clavier et en particulier

:f1:

[Delphi] function Random(const ARange: Integer): Integer; overload;

D'ailleurs, je pense qu'il vaut mieux faire...

procedure TForm1.Button1Click(Sender: TObject);
const
CaractereDejaReplace = '*';
var
i : integer;
a : string;
begin
Randomize();
a := edit1.Text;
edit2.text := a;