que en lblmarquee se pueda copiar un renglon

[[Caral]]

Hola
Interesante concepto amigo.
Pregunto: Para que sirve

Código Delphi [-]
var
  Form1: TForm1;
  FCaption: string;
  FLinea: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile('C:\Prueba.TXT'); // cargar cualquier archivo .txt
   FCaption:= Memo1.Lines[FLinea];
   Caption:= FCaption;
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:= Copy(Caption, Length(Caption), 1) + Copy(Caption, 1, Length(Caption) -1);
  if FCaption = Caption then
  begin
  Inc(FLinea);
  Caption:= Memo1.Lines[FLinea];
  FCaption:= Caption;
  end;
end;

Por cierto me sobran variables.....
Saludos

[ecfisa]

Empezado por Caral

Hola
Interesante concepto amigo.
Pregunto: Para que sirve
[Por cierto me sobran variables.....
Saludos

A la primera pregunta te tengo que dar una respuesta cargada de matices filosóficos: No lo sé...

Y en cuanto a la observación: Tenés razón. Con el apuro trabajé sobre el código anterior, txt es innecesaria...

Un abrazo.

[[Caral]]

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

[ecfisa]

Empezado por Caral

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

Mi estimado amigo, lo de 'No lo sé' fué sólo una broma. Por supuesto que sé lo que hace, jamás pongo código a un compañero sin probarlo primero... Te aseguro que lo revisé a conciencia, hasta señalé aquí , un error que de orígen traía el mismo.

Y como ya te he comentado en anteriores oportunidades, el que no deja de aprender leyendote soy yo...

Saludos.