Fonction pour insérer un nombre n d'espaces dans une chaine

Bonjour,
je cherche une fonction qui renvoie n espaces.

Du genre : Space( 89203 ) ;

Merci à tous pour vos aides.

Voir les fonctions  :
function StringOfChar(Ch:Char;Count:Integer):string;
function DupeString(constAText:string;ACount:Integer):string;

NB : cette dernière fonction est définie dans StrUtils.pas

A partir de là, tu te fabriques ta fonction Space facilement :
function Space(Count: integer):string;
begin
  Result := StringOfChar(#32, Count);
end;

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Je n'ai pas bien compris ce que tu veux faire mais si tu veux inserer des espaces entre tes caracteres :

 function AjouterEspace(Chaine:string):string;
var
 i : integer;
begin
for i:=1 to (Length(Chaine)-1) do
  chaine:=copy(chaine,1,(2*i)-1)+' '+copy(chaine,2*i,length(chaine));
result:=Chaine;
end;

Cette fonction t'ajoute un espace entre chacune de tes lettres

Oh merci à vous tous mais j'ai opté pour une solution plus simple :


function Space( n : integer) : string ;
var
i : integer ;
begin
result := '' ;
for i := 1 to n do result := result + ' ' ;
end ;


Voilà, dans le genre, je crois qu'il n'y a pas plus court, la prochaine fois, je réfléchirai à deux fois avant de poser une question sur le forum.

merci !

Salut,
regarde bien la proposition de Delphiprog elle bien plus simple que la tienne .

Elle se résume à :

function Space(Count: integer):string;
begin
  Result := StringOfChar(#32, Count);
end;

et c'est tout.
Bonne nuit

@+
Cirec