Operacja na łańcuchu Delphi

0

Dawno dawno temu ...
Wyczytałem tu pewien przykład operowania na łańcuchu pisany przez Adama Boducha
Był to Labelek z tekstem jakimś Przykładowo 'Adam'
Klikając w butona dokonywała się rotacja znaków stringu 'Adam':

Adam
damA
amAd
mAda

nie pamiętam kodu może ktoś wrzuci ?
pętla downto z copy ? nie chce zgadywać ...

2

nie jest to to samo pewnie co wrzucał Adam Boduch:
na formę wrzucasz button, timer, label
opcje timera: interval=np. 100, enabled=false

kod przycisku:

Timer1.Enabled:=not Timer1.Enabled;

kod timera:

Label1.Caption:=Copy(Label1.Caption,2,Length(Label1.Caption)-1)+Copy(Label1.Caption,1,1);
0

Dziękować ...
Czasami rzecz prosta ucieka mi łatwiej jak te, które trzeba było latami doskonalić :)
Z życzeniami spokojności Henryk

1 użytkowników online, w tym zalogowanych: 0, gości: 1