Ok i wrote this function to print as many characters as needed but it doesnt work can anyone help me? It only fails in loops where after every cycle the number of times gets multiplied.
Function TfrmDeliveries.WriteChar (letter : char; times : Integer): String;
var
i_count : Integer;
s_temp : string;
begin
s_temp := '';
for i_count := 0 to times - 1 do
begin
s_temp := s_temp + letter ; //Function used to write a char many times
end; //it takes in 2 parameters it adds the letter
result := s_temp; //to the string as many times as needed
end;