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

[[Delphius]]

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

Saludos,

[Casimiro Notevi]

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;

[jhonny]

Otra forma de hacerlo, puede ser...

Código Delphi [-]
ShowMessage(StringOfChar('.', 14000));

[roman]

Y, ¿cómo hacen para cortar línea cada cien puntos?

// Saludos

[camariere]

Empezado por roman

Y, ¿cómo hacen para cortar línea cada cien puntos?

// Saludos

Código Delphi [-]
for i := 1 to 140 do
    Memo1.lines.add(StringOfChar('.', 100));
Memo1.lines.add('Felicidades!!!!');

[delphi.com.ar]

Felicitaciones por compartir tus conocimientos 28000 veces!!.... hasta recuerdo haber soñado alguna vez que te conocía!. jajajaj

Un Abrazo!

[[RONPABLO]]

felicitaciones.... tremenda dedicación...