Román llega a los 14.000 mensajes (antes Feliz cumpleaños Román) XD

[Casimiro Noteví]

Empezado por Delphius

¡Roman, cuentalos... quien sabe si este Casimiro se hizo la vista gorda y no envió todos!
Saludos,

¿Acaso dudas de mi profesionalidad?, ¿acaso ves algún error en el código?

ShowMessage( SacarPuntos(14000) );

function SacarPuntos( iCantidad:integer ):string;
var
  iX:integer;
begin
  result:='';
  for iX:=1 to iCantidad do
    result := result + '.';
end;

Versión más optimizada:

function SacarPuntos( iCantidad:integer ):string;
begin
  result:='';
  while iCantidad>0 do
  begin
    result:=result+'.';
    dec(iCantidad);
  end;
end;