Cita:
|
Empezado por emilioeduardob
y depende man...
Si es solo hasta la Z o sino seria un poquitin mas complejo.
Yo haria algo asi. Claro esto solo funcionaria hasta la Z.
Código Delphi
Código Delphi [-]
function AnoToLetra(Anho: integer): string;
begin
result := Char(Anho - 1925);
end;
|
Pense en lo que decis, pero las letras no van de la A..Z, es decir, hay letras que no se usan en el ciclo, la "U" por ejemplo.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;