Discussion :

[cre3000]

Bonjour,

J'ai une chaîne de caractère exemple '08' ou j'aimerais le convertir

en enlevant le zéro pour faire '8'. Je pourrais toujours le convertir en

integer et le reconvertir en string avec inttostr mais y a t'il une solution

plus professionnel.

merci d'avance pour votre réponse.

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function UnleadZero(const S: String): String;
var L, N : integer;
const
  C = #48;
begin
  L := Length(S);
  N := 1;
  while (S[N] = C) and (N < L) do
    inc(N);
  result := Copy(S, N, L-(N-1));
end;
 
function UnleadSpace(const S: String): String;
var L, N : integer;
const
  C = #32;
begin
  L := Length(S);
  N := 1;
  while (S[N] = C) and (N < L) do
    inc(N);
  result := Copy(S, N, L-(N-1));
end;

[Invité1]

bjr

tu peux utiliser la fonction StringReplace

Code :

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

chr1:=StringReplace(chr,'0','',[]);

chr: est ta chaîne

'0' c’est la sous chaîne que tu veux remplacer

'' La sous chaîne qui va remplacer ton '0' dans ton cas c'est le ''

[] C’est pour lui indiquer de convertir la première occurrence

si tu mets [rfReplaceAll] il va remplacer tous les '0' par ''

bonne chance

[guillemouze]

tu peux utiliser la fonction StringReplace

Code :

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

chr1:=StringReplace(chr,'0','',[]);

le probleme c'est que ca va te convertir '010' en '1'

[Invité1]

bjr

non ça va donner 10 mais dans le cas ou on va mettre [rfReplaceAll] ça donnera 1

Code :

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

1
2
 
chr1:=StringReplace(chr,'0','',[rfReplaceAll]);

si on laisse [] ça donnera 10

bonne chance

[Droïde Système7]

salut,

Oui mais avant de sortir l'artillerie lourde, vérifions s'il ne s'agit pas seulement d'une fourmi.

Autrement dit :

J'ai une chaîne de caractère exemple '08' ou j'aimerais le convertir

S'agit-il toujours du premier caractère ?

Si oui alors un simple Copy() ou Delete() peut faire l'affaire

[Andnotor]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TrimZero(const aData :string) :string;
var
  P :PChar;
begin
  P := PChar(aData);
 
  while P^ = '0' do
    inc(P);
 
  Result := P;
end;

[Rayek]

Je ne vois pas pourquoi StrToInt ne serait pas plus professionnel que les autres méthodes

Pour être tranquille je te dirais même d'utiliser StrToIntDef(String,ValeurDefaut), qui te permet de convertir une valeur et de ne pas générer d'erreur si elle n'est pas numérique ( pour plus de détails)

[Gilbert Geyer]

Bonjour,


Vous pourrez trouver ici :http://www.developpez.net/forums/d78...text-richedit/
toutes une collection de routines qui effectuent de la suppression de caractères dans une string dont certaines sont même en Asm, avec en prime les résultats de tests comparatifs de vitesses d'éxécution.
Voir les functions préfixées SupprChar()

A+.