sobre letras... alfabeto
 

hola amigos.... quiero hacer lo siguiente....

En un TEdit tengo la letra A, luego de cierto evento, necesito que aparezca la letra B, luego de otro evento la letra C, y asi sucesivamente por todo el alfabeto

Existe un codigo onda de poner next y me tire la la siguiente letra del alfabeto??


espero me puedan ayudar

gracias

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...

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.

Puedes hacerlo threadsafe ... solo lo digo por fastidiar :p

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. :)