Cita:
Empezado por Ñuño Martínez
Código Delphi [-]PROCEDURE Felicitaciones (Foreros: TStringList); VAR Cnt: INTEGER; BEGIN FOR Cnt := 0 TO Foreros.Count - 1 DO WriteLn (Foreros[Cnt] + ' te dice: ¡Felicidades, Kipow!'); END;
Creo que así terminamos antes, ¿no?
|
Se podría poner para que le enviara el mensaje al cumpleañeros automáticamente... y así nos ahorramos de estar pendiente