Discussion :

[Droïde Système7]

Bonsoir,

Question toute bête de débutant :

Code :

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

SetLength(S,Length(S)-1);

Peut-on inverser cette ordre de "coupe" ?

Autrement dit, de supprimer le premier caractère plutôt que le dernier.

Dans F1 j'ai vu que je pouvais utiliser AnsiReverseString, je peux donc en principe réaliser cette manipulation en inversant/coupant et ensuite en inversant une seconde fois, mais certainement pas très élégant.

Merci d'avance de vos suggestions et idées.

[smyley]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var
 S : string;
begin
 S := 'Une chaine toute bête :)';
 Delete(S,1,1);
 //Le premier caractère est a l'index 1 et pas 0
 
 ShowMessage(S); 
 //Affiche 'ne chaine toute bête :)'
end;

[Droïde Système7]

Bonjour,

Merci Audrey ; c'est super !

J'en conclue donc qu'il ne faut pas tout demander à ce pauvre SetLength ;o)