Esa del perrito está comenzándome a gustar
Código Delphi
[-]Procedure GuaGua();
var
MiClaveSemanal:String:
begin
MiClaveSemanal:='Perrito';
For i:=1 to 52 do
begin
MiClaveSemanal:=Perrito + IntToStr(i);
ShowMessage('Clave para la semana: '+IntToStr(i)' = '+Perrito + IntToStr(i));
end;
end;
Un Saludo canino.