Discussion :

[mohamedredha]

Bonjour tous le monde !!!

je début et j'ai chercher sur tout le net et je n'est pas trouvé, voilà mon problem!!!

Comment compléter une chaine de caractère par x fois "espace (_)"

[Andnotor]

Avec la commande Format:

Code :

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

1
2
3
4
//Longeur totale 20 caractères avec un alignement du texte à droite
s := format('%20s', ['Texte']);
//Longeur totale 30 caractères avec un alignement du texte à gauche
s := format('%-30s', ['Texte']);

[Kaféine]

Salut

Autre solution avec la fonction DupeString dans l'unité StrUtils.

Code :

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

1
2
 
Txt := 'MonTexte'+DupeString('_', 10);

[anapurna]

salut

voila une fonction

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
 
Function RightPaddingStr( astr,pad : String;Lg : integer) : String;
begin
  Result  := LeftStr(astr,Lg);// si la chaine est trop long
  if  Lg > length(astr) Then
    Result  := astr+DupeString(pad,Lg -length(astr));
end;
 
Function LeftPaddingStr( astr,pad : String;Lg : integer) : String;
begin
  Result  := LeftStr(astr,Lg);
  if  Lg > length(astr) Then
    Result  := DupeString(pad,Lg -length(astr))+astr;
end 
 
// utilisation 
 TexteFinale :=  RightPaddingStr('Montexte','_',20);

@+ Phil