Ik heb de volgende functie:
function RPad(const s:string ; n:Integer ; kar:char):string;
var
str:=s;
i:Integer;
begin
i := Length(str);
while i <= n
Insert(kar,str,i);
Result:=str;
end;
Het is de bedoeling dat een woord(s) wordt aangevuld met karakters(kar) tot een bepaald getal is bereikt (n).
function RPad(const s:string ; n:Integer ; kar:char):string;
var
str:=s;
i:Integer;
begin
i := Length(str);
while i <= n
Insert(kar,str,i);
Result:=str;
end;
Het is de bedoeling dat een woord(s) wordt aangevuld met karakters(kar) tot een bepaald getal is bereikt (n).