Скачать: CL | DM;

Как сделеть перемещение символа в строке 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]

Пасибо!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.984 c