циклы

← →
Софейков Костя © (2003-11-10 19:23) [0]

Canvas.Brush.Color:=clblack;
for ss3:=0 to 4 do begin
Str(ss3,s3);
sleep(300);
MainForm.Canvas.TextOut(332,460, s3);
end;

← →
Плохиш_ (2003-11-10 19:32) [1]

А оно нам надо?

← →
Narayan © (2003-11-10 20:11) [2]

хм.. интересная ветка

← →
HolACost! © (2003-11-10 20:12) [3]

Внимание вопрос:
что это означает и сколько человек выпил фанты, чтобы остановить свой мозг :))))

← →
TUser © (2003-11-10 20:43) [4]

Готовые тексты можно и компилятору скормить. Даже если они не опубликованы в сети - все равно будет работать.

← →
Fay (2003-11-10 21:27) [5]

Костя, ты - прелесть! 8)
for i := 0 to 999 do begin Caption := Format("i = %d", [i]); Sleep(300); end;
Это для тебя!

← →
Chlavik © (2003-11-11 02:18) [6]

var F:TForm;
for ss3:=0 to $FFFFFFFF do
begin
F:=TForm(Pointer(i));
try
F.SHowMOdal;
except
ShowMessage("Не то окно...." );
end;
sleep(300); // ну и задеражка конечно...
end;

← →
KSergey © (2003-11-11 08:27) [7]

А где же автор? Или он все же перепутал дельфи с форумом? Так отдыхать иногда надо все же, ага?

← →
Думкин © (2003-11-11 08:46) [8]

Вот елки-палки, а я пропустил как всегда... Хоть узнать что он имел в виду... ;)

На сайте обявлен новый конкурс "А вам слабо?" :)

Прикольно , умеют тут иногда развеселить :))

циклы Найти похожие ветки