Discussion :

[Pedro]

Quel talent

[e-ric]

Salut

Vous avez l'art de vous faire mal!

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function DeleteLastChars(const Value: String; NChars: Integer): String;
begin
  if length(Value) >= Value then
    Result := ''
  else
    Result := Copy(Value, 1, Length(Value)-NChars);
End; // 
...
  DeleteLastChars(TaChaine,1);

C'est pas plus simple comme cela et c'est du Delphi standard (en 5 min qui plus est).

cdlt

e-ric

[Pedro]

Euh il y a une erreur non?

Code :

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

1
2
3
4
 
...
if length(Value) >= NChars then 
...

Ne t'inquiète pas je ne me suis pas fait si mal
Note: Copy vérifie si le résultat est vide, donc le test est inutile. On en revient donc à ce que diasait Lung

[e-ric]

Salut

Bien vu mais il y adeux hypothèses:
1 - j'ai pas testé (c'est pas beau)
2 - je voulais savor si vous suiviez

T'as corrigé de toi-même, c'est très bien ;-)
En outre, j'avais pas lu la 2ème page de messages (oups j'aggrave mon cas)


cdlt

e-ric

[sjrd]

Pourquoi faire simple quand on peut faire compliqué ?!
Suffit d'insérer cette unique ligne dans ton code !

Code :

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

Delete(MaChaine, Length(MaChaine), 1);

[Pedro]

Mais Delete ne marche qu'avec des constantes non?

[sjrd]

Mais Delete ne marche qu'avec des constantes non?

Tu te fiches de moi ? Bien sûr que non Delete ne fonctionne pas qu'avec des constantes ! Ca se saurait sinon !

[Pedro]

Tu te fiches de moi ?

Pas du tout... Ne le prend pas mal
Mais essaie:

Code :

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

1
2
3
 
  s:='Test';
  Delete(s,1,Length(s)-1);

Et regarde le résultat