Formatage d'un stringRésolu

Question

bonjours
en fait jai un chaine de 10 espace et je veut rentre dedant toto sans augenter la taille de ma chaine resulta qui a comme longeur 10:
chaine1 := '---------';
chaine2 := 'toto';
resultat
chaine1 := 'toto-----';

ps:le '-' etant la symbolisation des espace

japee · Accepted Answer

Ou alors, une variante plus polyvalente puisque tu peux choisir le caractère de remplissage (espace par défaut) :

function MyFormatString2(const S: string; const FinalLength: Integer; 
  const Ch: Char = ' '): string;
var
  i: Integer;
  Tmp: string;
begin
  Tmp := '';
  for i := 1 to (FinalLength - Length(S)) do
    Tmp := Tmp + Ch;
  Result := S + Tmp;
end;

Bonne prog'

japee · Answer

Salut,

Tu peux faire quelque chose dans le genre :

function MyFormatString(const S: string; const FinalLength: Integer): string;
var
  i: Integer;
  Tmp: string;
begin
  Tmp := '';
  for i := 1 to (FinalLength - Length(S)) do
    Tmp := Tmp + ' ';
  Result := S + Tmp;
end;

que tu appelles par exemple ainsi :

Edit2.Text := MyFormatString(Edit1.Text, 10);

Bonne prog'

Formatage d'un string

2 réponses

Votre réponse

Discussions similaires