{ voir la fonction DupeString dans l'unité StrUtils ou bien : } function DupeChar(const C : Char; const count : cardinal) : string; var X : integer; begin SetLength(Result, Count); for X := 1 to Count do result[X] := C; end;