Бегущая строка |
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
DelphiWorld 6.0