IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - soldan sağa kayan yazı (https://www.ircforumlari.net/delphi/688276-soldan-saga-kayan-yazi.html)

Kaf_Dağı

11 Mart 2015 13:31

soldan sağa kayan yazı

soldan sağa kayan yazı

Kod:

var

 metin:string=('1234567890...');

 str  :string=('1234567890...');

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

 i:integer;

begin

 metin:=str;

 for i:=1  to length(metin)+1 do

   begin

     str[i+1]:=metin[i];

     str[1]:=metin[i-1];

  end;

 caption:=str;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:15.