-
Постов
554 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент ZyXEL12m94*41
-
Чертова несправедливая жизнь! Мероприятие проходило буквально в 450 метрах от моего дома, я к нему готовился, освежил знания в области астрономии, м не попал на него, и вот теперь я спрашиваю где гребанная справедливость? Но вот сейчас торжественно клянусь что на следующий АстроФест(а я уверен что он будет, ибо было ~100 человек, а это говорит о том что интересна людям сея тема)прибуду обязательно, и помешать этому может только смерть или учеба.
-
D_Master +1, ибо бывают моменты когда голосовать неохото/нет подходящих вариантов, а рузультаты увидеть хоца.
-
Нет Человек ниже в курсе какого лешего мой винт на 720Гб временами так пртивненько похрустывает?
-
Все, оно заработало=) Вот так это выглядит: interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Panel1: TPanel; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button15Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,p,r:real; mode:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'1' end; procedure TForm1.Button2Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'2' end; procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'3' end; procedure TForm1.Button4Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'4' end; procedure TForm1.Button5Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'5' end; procedure TForm1.Button6Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'6' end; procedure TForm1.Button7Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'7' end; procedure TForm1.Button8Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'8' end; procedure TForm1.Button9Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'9' end; procedure TForm1.Button10Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+'0' end; procedure TForm1.Button12Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=2; Panel1.Caption:=''; end; procedure TForm1.Button13Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=3; Panel1.Caption:=''; end; procedure TForm1.Button14Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=4; Panel1.Caption:=''; end; procedure TForm1.Button11Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=1; Panel1.Caption:=''; end; procedure TForm1.Button15Click(Sender: TObject); begin case mode of 1:begin p:=StrToFloat(Panel1.Caption); r:=i+p; Panel1.Caption:=FloatToStr(r); end; 2:begin p:=StrToFloat(Panel1.Caption); r:=i-p; Panel1.Caption:=FloatToStr(r); end; 3:begin p:=StrToFloat(Panel1.Caption); r:=i/p; Panel1.Caption:=FloatToStr(r); end; 4:begin p:=StrToFloat(Panel1.Caption); r:=i*p; Panel1.Caption:=FloatToStr(r); end; end; end; end. unit Unit1;
-
stalker_romich96 семерка. Как я понимаю это проблема?
-
Для начала он мне говорит что нет диска в приводе(тот который физический), я его отпилил, но он теперь ругается- "ошибка 1327. Недействительный диск Е:\" (тот который физический). Но хрен с ней, самая главная это- "Ошибка 1324.Путь к папке Program files содержит недопустимый символ", вот что с этим делать?
-
Проблем у установкой ни у кого не возникало? Я что то не могу
-
Маты начинаются сразу со строчки procedure TForm1.Button1Click(Sender: TObject); причина понятия не имею что это значит, с Delphi работаю второй раз в своей жизни, качал отсюда. Меня терзают смутные сомененья что у меня в коде косяк на косяке сидит, и косяком погоняет. Помогите исправить пожалуйста. interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Panel1: TPanel; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,p,r:real; mode:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+1 end; procedure TForm1.Button2Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+2 end; procedure TForm1.Button3Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+3 end; procedure TForm1.Button4Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+4 end; procedure TForm1.Button5Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+5 end; procedure TForm1.Button6Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+6 end; procedure TForm1.Button7Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+7 end; procedure TForm1.Button8Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+8 end; procedure TForm1.Button9Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+9 end; procedure TForm1.Button10Click(Sender: TObject); begin Panel1.Caption:=Panel1.Caption+0 end; procedure TForm1.Button12Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=2; Panel1.Caption:=''; end; procedure TForm1.ButtonD13Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=3; Panel1.Caption:=''; end; procedure TForm1.Button14Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=4; Panel1.Caption:=''; procedure TForm1.Button11Click(Sender: TObject); begin i:=StrToFloat(Panel1.Caption); mode:=1; Panel1.Caption:=''; end; procedure TForm1.ButtonClick(Sender: TObject); begin case mode of 1:begin p:=StrToFloat(Panel1.Caption); r:=i+p; Panel1.Caption:=FloatToStr(r); end; 2:begin p:=StrToFloat(Panel1.Caption); r:=i-p; Panel1.Caption:=FloatToStr(r); end; 3:begin p:=StrToFloat(Panel1.Caption); r:=i/p; Panel1.Caption:=FloatToStr(r); end; 4:begin p:=StrToFloat(Panel1.Caption); r:=i*p; Panel1.Caption:=FloatToStr(r); end; end.unit Unit1;
-
Они если на волосы сядут то намертво цепляются "усами" и лапами, и чтобы выжить они эти волосы с головы выгрызают, а если и не выгрызают то приходится самому их сбривать, потому что сами они не отцепятся))) Я когда "взрослый" был, мне такая тварь изрядный клок волос погубила=)
-
Дьявол... Так и до нас с вами доберутся...
-
Запишите FM 1294=) 100, 50, 10 рублей (и на 5 рублях, в кол-ве 20 штук, гвоздем нацарапано 1294)))
-
Приму в дар, или куплю гарантийные наклейки магазина Снежный Барс
-
Еще у кого нить кроме меня, есть проблемы с выходом на внешние ресурсы сети?
-
"Молодец директор бля" хД "Директор, не нервничай, не нервничай")))