Как сделеть перемещение символа в строке Label1 по кругу

← →
anatoli (2002-08-30 12:04) [0]

Мастера помогите!!!
Как сделеть перемещение символа в строке Label1 по кругу.
Примерно так:"00000"
"10000"
"01000"
"00100"
"00010"
"00001"
"00000"

← →
Poirot (2002-08-30 12:52) [1]

var s:String; Tmp:Char; begin S:=Label1.Caption; Tmp:=S[1]; Delete(S,1,1); S:=S+Tmp; Label1.Caption:=S; end;
Ну что-то вроде этого

← →
MBo (2002-08-30 13:20) [2]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToHex(1 shl (4*i),5);
inc(i);
if i>4 then i:=0;
end;

← →
Delphi 5.01 (2002-08-30 14:17) [3]

Minus 1 peremennaia
Minus 1 operacia

var st : string;
begin
St:=Label1.Caption;
St:=St+St[1];
Delete(St,1,1);
Label1.Caption:=St;
end;

:-))))))))))))
Davaite sorevnovatsa! kto koroche napishet etot kod.
P.S. Srazu vspominau starie vremena kogda sorevnovalis v proge kotoraia vinosit "Helow World!" na ekran v Paskale

← →
Anatoly Podgoretsky (2002-08-30 14:24) [4]

MBo © (30.08.02 13:20)
У Поирот, вариант грамотный, очень

← →
Delphi 5.01 (2002-08-30 14:41) [5]

Soglasen ne sporu!
No zachem lushniu peremennuiu dobavlat, plus lishnaia operacia!
vse primeri podoidut! No vsoze ia storonnik starix principv

Ne sushestvuet koda v kotorom nelza udalit xot odnu operaciu

A raz sushestvuet to nado udalat, da vspomnite Paskal, tam kazdaia peremennaia pamat zanimala, 64 kb vsego na progu, a zadahchi kakie bili, prixodilos ukazateli ispolzovat!

A sha narod poshol, ni kto za razmerom ne sledit!

Da ia toje soznaus redko staraus ubit lishnuiu operaciu! (no vsoje 80% koda moego optimizirovan).

← →
anatoli (2002-08-30 21:12) [6]

Всем Спасибо все работает

← →
Poirot (2002-08-31 19:20) [7]

Пасибо!!!

Как сделеть перемещение символа в строке Label1 по кругу Найти похожие ветки