sobre letras... alfabeto

[Neftali [Germán.Estévez]]

Puedes poner un botón al lado del Edit con esto en el OnClick:

Código Delphi [-]
var
  ch:Char;
begin
  Ch := Edit1.Text[1];
  Edit1.TExt := Succ(ch);

Se omiten comprobaciones...

[dec]

Hola,

Probablemente con lo que aporta el compañero Neftalí baste, pero, en fin, ya lo había hecho...

Código Delphi [-]
unit UAbecedario;

interface

type
  TAbecedario = class(TObject)
  private
    FLetras: string;
    FPosicion: byte;
  public
    constructor Create();
    function Actual(): char;
    function Anterior(): char;
    function Siguiente(): char;
  end;

implementation

resourcestring
  rsLetras = 'abcdefghijklmnñopqrstuvwxyz';

{ TAbecedario }

constructor TAbecedario.Create();
begin
  inherited Create();
  FPosicion := 1;
  FLetras := rsLetras;
end;

function TAbecedario.Actual(): char;
begin
  result := FLetras[FPosicion];
end;

function TAbecedario.Anterior(): char;
begin
  Dec(FPosicion);
  if (FPosicion = 0) then
    FPosicion := Length(rsLetras);
  result := FLetras[FPosicion];
end;

function TAbecedario.Siguiente(): char;
begin
  Inc(FPosicion);
  if (FPosicion > Length(rsLetras)) then
    FPosicion := 1;
  result := FLetras[FPosicion];
end;

end.

Supongo que puede mejorarse... o en todo caso hacerse de otro modo más elegante. Aporto, en todo caso, un ejemplo de uso de la clase que he copiado arriba.

[[seoane]]

Empezado por dec

Supongo que puede mejorarse... o en todo caso hacerse de otro modo más elegante.

Puedes hacerlo threadsafe ... solo lo digo por fastidiar

[dec]

Hola,

No fastidies Seoane.

Yo lo decía porque a lo mejor era matar moscas a cañonazos... además uno ve la clase "TAbecedario" y enseguida le asalta la posibilidad de añadir métodos útiles... propiedades tal vez... alguna mejora... pero, esto se lo dejo al compañero mjjj, por el momento.