Бегущая строка

Previous  Top  Next

    
 

 

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

const

LengthGoString = 10;

Gostring = 'Этот код был взят с проекта Delphi World'+

' Выпуск 2002 - 2003! Этот код б';

// Повторить столько символов - сколько в LengthGoString

const

i: Integer = 1;

begin

Label1.Caption := Copy(GoString, i, LengthGoString);

Inc(i);

if Length(GoString) - LengthGostring < i then

   i:=1;

end;

 

 

©Drkb::03664

http://delphiworld.narod.ru/

DelphiWorld 6.0