Discussion :

[Jcpan]

Bonjour

Je cherche à supprimer le dernier caractère d'une chaine

exemple

test = 'toto,titi,tata,';

je cherche à récupérer

'toto,titi,tata'

merci

[Andnotor]

Code :

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

Delete(Test, Length(Test), 1);

[cincap]

@ Andnotor, je n'ai pas compris ta façon de faire.

Si tu pouvais m'expliquer.

Merci,

@+,

Cincap

[Andnotor]

Le premier caractère à effacer est le dernier de la chaîne, Son index est donc égal à la longeur de la chaîne, soit Length(Test).

[cincap]

@ Andnotor, "test" doit être integer alors j'essaye de le faire avec un Tedit et cela ne fonctionne pas.

Je continue....

@+,

Cincap

[Andnotor]

Cela ne marche pas avec les propriétés d'un objet. Dans ce cas il faut faire une copie:

Code :

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

Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text) -1);

[Aos]

avec Delete, ça marche tres bien.
On ne peut pas passé un edit en parametre mais bon.

Tu fais

Code :

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

1
2
3
4
5
6
7
var
  s : string;
begin
  s :=edit1.text;
  delete(s,length(s),1);
  edit1.text:=s;
end;

ça marche tres bien.

Et merci adnotor, je ne connaissais pas
je faisais la methode du copy.

[peter27x]

Bonjour

Je cherche à supprimer le dernier caractère d'une chaine

exemple

test = 'toto,titi,tata,';

je cherche à récupérer

'toto,titi,tata'

merci

test:=copy(test,1,length(test)-1);

[peter27x]

Un truc m'échappe, Jcpan = Cincap ?

[cincap]

@ Peter27x, jcpan = tout le monde pour moi mais bien entendu c'est lui qui marquera le "Résolu".

@+,

Cincap

[peter27x]

@ Peter27x, jcpan = tout le monde pour moi mais bien entendu c'est lui qui marquera le "Résolu".

@+,

Cincap

Rien compris !

Mais alors...... RIEN !!

[cincap]

@ Peter27x, ton message trouve une réponse à deux directions, en effet :

1, Cincap se cache derrière Jcpan = faux

2, Cincap répond à la place de Jcpan = vrai car ce genre d'astuce l'intéresse ce qui permet l'évolution de l'humain.

Voila voilou.

@+,

Cincap

[Aos]

Moi j'ai compris maintenant, meme si ça reste tres suspect
lol