| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделеть перемещение символа в строке Label1 по кругу [D6, Win2k, WinXP]
anatoli © (2002-08-30 12:04:00)Мастера помогите!!!
Как сделеть перемещение символа в строке Label1 по кругу.
Примерно так:"00000"
"10000"
"01000"
"00100"
"00010"
"00001"
"00000"
Poirot (2002-08-31 19:20:00) [1]Пасибо!!!
anatoli (2002-08-30 21:12:00) [2]Всем Спасибо все работает
Delphi 5.01 (2002-08-30 14:41:00) [3]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).
Anatoly Podgoretsky (2002-08-30 14:24:00) [4]MBo © (30.08.02 13:20)
У Поирот, вариант грамотный, очень
Delphi 5.01 (2002-08-30 14:17:00) [5]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
MBo (2002-08-30 13:20:00) [6]procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=IntToHex(1 shl (4*i),5);
inc(i);
if i>4 then i:=0;
end;
Poirot (2002-08-30 12:52:00) [7]
var s:String;
Tmp:Char;
begin
S:=Label1.Caption;
Tmp:=S[1];
Delete(S,1,1);
S:=S+Tmp;
Label1.Caption:=S;
end;
Ну что-то вроде этого
| |
