Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Pregunta muy de principiante. (https://www.clubdelphi.com/foros/showthread.php?t=88542)

pokexperto1 19-06-2015 23:20:28

Pregunta muy de principiante.
 
Hola a todos.

Tengo un código que hace lo siguiente:
Código Delphi [-]
procedure TimerHola(Sender: Tobject); 
var 
  letra : integer;
  textomemo : string;
begin 
  textoememo := 'hola'; 
  letra := letra+1; 
  memo.Lines.Add(Copy(textomemo, letra, 1)); 
  showmessage(inttostr(letra));
end;
Lo que hace el memo es tipo:
h
o
l
a

y lo que quiero que haga es : hola

Como lo hago? Gracias.

ecfisa 19-06-2015 23:35:08

Hola pokoexperto1.

El método Add agrega cadenas al final de la lista. Para lo que buscas hacer, tenes que usar la propiedad Text, ej.:
Código Delphi [-]
...
var
  textomemo : string = 'hola';
  letra: Integer = 0;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  letra := letra + 1;
  Memo1.Text := Memo1.Text + Copy(textomemo, letra, 1);
  Timer1.Enabled := letra <= Length(textomemo);
end;

Saludos :)


La franja horaria es GMT +2. Ahora son las 01:27:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi