Cher ami,
Quand tu utlises une structure For..do et que que tu n'utilises pas de délimiteur de bloc (Begin..end), seule l'instruction suivante est éxécutée dans la boucle (ici : y := Copy(Edit1.Text,i,1)).
La réponse est donc :
for i := 1 to x do
begin y := Copy(Edit1.Text,i,1);
if y = 'a' then
Edit2.Text := Edit2.Text + '@';
end;end;
Vu ?
Astuce : indentes tes blocs de code et tu verras que ça saute aux yeux !
Pour le reste :
Chr renvoie le caractère correspondant à une valeur ASCII.
Ord renvoie le rang d'une expression
ordinale.
Pour affecter une valeur hexdécimale à un nombre, il suffit d'écrire, avec X : integer :
X:=$11111111 ou tout nombre compris entre $00000000 et $FFFFFFFF (nombre 32 bits).
Ok ?
Alors, pourquoi chercher des équivalences à VB
-------------------------------
Réponse au message :
-------------------------------
qqn pourrais me dire ou est l'erreur ds ce morceau de code :
var
Form1: TForm1;
i: Integer;
x: Integer;
y: String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x := Length(Edit1.Text);
for i := 1 to x do
y := Copy(Edit1.Text,i,1);
if y := 'a' then Edit2.Text := Edit2.Text + '@';
end;
end.
je sais que c lourd comme question mais est ce que qqn pourrait me dire l'equivalent en delphi des fonctions Asc et Hex$ (vb)... Merci d'avance
