Hola ecfisa , tengo este codigo y estoy usando un memo en vez de un Label
unit Unit1;
interface
uses
Windows, SysUtils, Forms, ExtCtrls, Classes;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
FCaption: string;
public
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.FormCreate(Sender: TObject);
begin Caption:= 'prueba1234';
FCaption:= Caption;
Timer1.Interval := 1000 div 5;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var txt: string;begin txt:= Self.Caption;
Caption:= Copy(txt, length(txt), 1) + Copy(txt, 1, length(txt) -1);
// ó, Caption:= Copy(txt, 2, length(txt)-1) + Copy(txt,1,1);
// si
FCaption = Caption , implica que el último o primer caracter llegaron a su lugar
if FCaption = Caption
then
Windows.MessageBeep(MB_ICONEXCLAMATION);end;end.
pero lo que necesito es poder copiar renglon por renglon para que un programa externo lo pueda leer pero tiene que ser solo renglon por renglon ; Amigo estoy usando el mismo codigo de acá
http://www.clubdelphi.com/foros/showthread.php?t=69548
y el codigo completo que encontre es este
http://delphi.about.com/library/weekly/aa071100a.htm
saludos !