Discussion :

[gadalla]

slt
je vient de testé la pos de virgule s'il est au debut(pos 0) je vait merrtre un zero dans la pos 0 et le virgule dans la pos1
voisi mon code

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button12Click(Sender: TObject);
begin
 
edit1.Text := edit1.Text + ',' ;
if   pos( ',',edit1.Text) = 0 then
insert ('0',edit1.text,1)
 
end;

voisi l'erreur
[Error] Unit1.pas(140): Constant object cannot be passed as var parameter
merci d'avance

[anapurna]

salut

essai plutot un truc comme cela
la propriete dans objet est rarement considerer comme une variable

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  s : string;
begin
 s := edit1.Text + ',' ;
if   pos( ',',s) = 0 then
insert ('0',s,1)
edit1.Text := s;
end;

@+ Phil