Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Про елочку   Найти похожие ветки 

 
Agent Smith ©   (2002-06-28 19:51) [0]


program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;

метель.filename:="D:\Music\NSYNC - Bye Bye Bye.mp3";
метель.open;
sleep(1000);
метель.play;

мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;

лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;

Winexec("wolf3d.exe /evil",0);

лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("нарядная.jpg");
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.


Автор не я.


 
[NIKEL] ©   (2002-06-29 04:45) [1]

супер!


 
Dooggg   (2002-06-29 13:35) [2]

Пытался скомпилировать…
Ошибок много…
Как исправить?

[Error] Unit1.pas(1): Illegal character in input file: "ч" ($F7)
[Error] Unit1.pas(3): Illegal character in input file: "Л" ($CB)
[Error] Unit1.pas(3): Undeclared identifier: "create"
[Error] Unit1.pas(4): Illegal character in input file: "Л" ($CB)
[Error] Unit1.pas(4): Undeclared identifier: "dead"
[Error] Unit1.pas(6): Illegal character in input file: "л" ($EB)
[Error] Unit1.pas(6): Undeclared identifier: "age"
[Error] Unit1.pas(6): Illegal character in input file: "е" ($E5)
[Error] Unit1.pas(7): Illegal character in input file: "з" ($E7)
[Error] Unit1.pas(7): Illegal character in input file: "о" ($EE)
[Error] Unit1.pas(8): "THEN" expected but "BEGIN" found
[Error] Unit1.pas(9): Illegal character in input file: "л" ($EB)
[Error] Unit1.pas(9): Undeclared identifier: "plain"
[Error] Unit1.pas(10): Illegal character in input file: "л" ($EB)
[Error] Unit1.pas(10): Undeclared identifier: "color"
[Error] Unit1.pas(13): Illegal character in input file: "м" ($EC)
[Error] Unit1.pas(14): Illegal character in input file: "м" ($EC)
[Fatal Error] Unit1.pas(15): Compilation terminated; too many errors

:)



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

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
14-81420
OdinokiyVolk
2002-06-26 12:28
2002.07.25
InstallShield Express for Delphi 6


1-81326
Skier
2002-07-12 17:30
2002.07.25
Просто стало интересно


1-81340
Kotka
2002-07-11 22:02
2002.07.25
Я псих, но все-таки, кто знает, как написать патч для моей проги


3-81164
AndDem
2002-07-04 11:09
2002.07.25
SQL-запрос


1-81256
Lego
2002-07-12 01:28
2002.07.25
Как у DBGrid1 указать Title из Edit1 ?