Formatage d'entiers avec un signe

**chtom** · 21/09/2005, 14h51

Bonjour,

Je cherche à formater des nombres entiers avec signes (+ et -) ainsi que rajouter les 0 avant.

Exemple :

-5 => '-005'
10 => '+010'

J'utilise actuellement Format('%:0.3', nombre) mais il me retourne pas le '+'...

Merci.

**Manopower** · 21/09/2005, 15h03

Si Format('%:0.3', nombre) fonctionne comme tu veux tu peux ensuite rajouter le symbole :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function monformat(nombre : Integer) : String;
var
  i : Integer;
begin
  i := Format('%:0.3', nombre);
  if nombre>=0 then
    result := '+'+inttoStr(Nombre)
  else
    result := '-'+inttoStr(Nombre);
end;

**chtom** · 21/09/2005, 15h15

Merci.

Finalement j'utilise ceci :

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
 
  function monformat(nombre: Integer): string;
  var
    i: String;
  begin
    if nombre >= 0 then
    begin
      result := '+';
      i := IntToStr(Nombre);
    end
    else
    begin
      result := '-';
      i := IntToStr(-Nombre);
    end;
    While (length(Result) - Length(i) < 5) do
      Result := Result + '0';
    Result := Result + i
  end;

**e-ric** · 21/09/2005, 15h20

Envoyé par -Sylvain Leray-

Si Format('%:0.3', nombre) fonctionne comme tu veux tu peux ensuite rajouter le symbole :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function monformat(nombre : Integer) : String;
var
  i : Integer;
begin
  i := Format('%:0.3', nombre);
  if nombre>=0 then
    result := '+'+inttoStr(Nombre)
  else
    result := '-'+inttoStr(Nombre);
end;

Code :

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

1
2
3
4
5
6
7
8
 
Function monformat(nombre : Integer) : String;
begin
  if nombre>=0 then
    result := Format('+%0.3d', [nombre])
  else
    result := Format('-%0.3d', [nombre]);
end;