Сочинение на вольную тему - (один пост

← →
Igorek © (2004-06-16 19:56) [0]

← →
pasha_golub © (2004-06-16 19:57) [1]

program OutPoster;

← →
VMcL © (2004-06-16 19:58) [2]

uses
Windows, Linux, OS_2, Classes, World;

← →
pasha_golub © (2004-06-16 20:00) [3]

begin

← →
Igorek © (2004-06-16 20:00) [4]

//одна строка кода; пользуйтесь форматированием; повторно постить только через 10 постов;

← →
pasha_golub © (2004-06-16 20:02) [5]

//а сразу сказать в лом? ;-)

← →
Igorek © (2004-06-16 20:03) [6]

ограничение по постам не распространяется на комментарии; не постить end.

← →
VMcL © (2004-06-16 20:04) [7]

(* облом; в Опере боковые кнопки не работают, нужно вручную писать тэг CODE. *)

← →
Igorek © (2004-06-16 20:05) [8]

//прошу модератора вытереть или исправить пост 6

← →
Post (2004-06-16 20:05) [9]

clrscr;

← →
jack128 © (2004-06-16 20:11) [10]

// Паша_Голубь, а не поторопился ли ты begin писать? Пишем прогу без единой переменной? ;-)

Application.Initialize;

← →
хм © (2004-06-16 20:12) [11]

//$apptype console?

← →
Igorek © (2004-06-16 20:12) [12]

//ладно постим сколько кто хочет; просьба к модераторам удалять оффтоп (что не компилится);

← →
N170 (2004-06-16 20:14) [13]

Application.CreateForm(TMainForm, MainForm);

← →
Gero © (2004-06-16 20:14) [14]

Application.Run

← →
Gero © (2004-06-16 20:14) [15]

// Вот пожалуй и все... :)

← →
N170 (2004-06-16 20:16) [16]

end;

← →
Gero © (2004-06-16 20:16) [17]

> N170 (16.06.04 20:16)

Читай правила.

← →
pasha_golub © (2004-06-16 20:54) [18]

//jack128 ©, не-а, у нас модули уже подключенные есть ;-)

← →
Igorek © (2004-06-16 22:07) [19]

//господа, в нашем приложении уже есть ошибки; что будем делать?

← →
default © (2004-06-16 22:09) [20]

Application.Free

← →
pasha_golub © (2004-06-16 22:10) [21]

//Кстати, откуда у нас Application, если в проге Forms не подключен? ;-)

← →
VMcL © (2004-06-16 22:10) [22]

// >>Igorek © (16.06.04 22:07) [19]
//
// Debug? Воистину Debug! F7, F8, F7, F7, F7, F8....

← →
Gero © (2004-06-16 22:11) [23]

> Igorek © (16.06.04 22:07)

Ошибку вижу только в [16].
Правильно
; end.

← →
default © (2004-06-16 22:13) [24]

в [2] будем считать имелось
uses
Windows, Linux, OS_2, Classes, World, ...;
просили же в одну строку, а в нашей крутой проге столько юнитов что не хватит строки)

← →
хм © (2004-06-16 22:14) [25]

while true do

← →
Igorek © (2004-06-16 22:21) [26]

//сописатель Igorek ушел домой

← →
VMcL © (2004-06-16 22:22) [27]

// >>default © (16.06.04 22:13) [24]
//
// Что значит "будем считать"? написано жестко, без всяких многоточий, вот.

← →
default © (2004-06-16 22:24) [28]

тогда [21] прав и наша пограмма даже не откомпилится, если конечно Application не объявлен в каком-либо другом модуле как глоб-ая пер-ая

← →
Gero © (2004-06-16 22:25) [29]

default © (16.06.04 22:24)
> тогда [21] прав и наша пограмма даже не откомпилится, если
> конечно Application не объявлен в каком-либо другом модуле
> как глоб-ая пер-ая

uses Windows, Linux, OS_2, Classes, World;

Мало?

← →
default © (2004-06-16 22:27) [30]

Gero © (16.06.04 22:25) [29]
Wordl - там все классы мира)

← →
VMcL © (2004-06-16 22:27) [31]

// >>default © (16.06.04 22:24) [28]
//
// Во-первых, из-за твоего поста Undeclared identifier: "default"
// Во-вторых, пусть Application будет compiler magic, кто за?

← →
Gero © (2004-06-16 22:29) [32]

> пусть Application будет compiler magic, кто за?

Я за!

← →
default © (2004-06-16 22:29) [33]

VMcL © (16.06.04 22:27) [31]
фигня пошла)

← →
Gero © (2004-06-16 22:33) [34]

> Во-первых, из-за твоего поста Undeclared identifier: "default"

А давайте default тоже будет compiler magic.
И Gero тоже, если можно :)

← →
VMcL © (2004-06-16 22:37) [35]

// >>Gero © (16.06.04 22:33) [34]
//
// >А давайте default тоже будет compiler magic.
//
// Я апшипся в [31]. Illegal character in input file: "т" ($F2).

← →
Гаврила © (2004-06-16 23:54) [36]

raise Exception.Create("Программа ничего не выполнила и будет закрыта. Обратитесь к разработчику");

← →
Sanek_metaller © (2004-06-16 23:59) [37]

showmessage("Error1001:Ovchinikov go out!:(You must reboot your TV/Computer!)");ExitWindowsEx(ewx_reboot,0);

← →
KilkennyCat © (2004-06-17 00:12) [38]

goto program;

← →
хм © (2004-06-17 00:49) [39]

showmessage("goto маздай");

← →
KilkennyCat © (2004-06-17 04:32) [40]

> хм © (17.06.04 00:49) [39]

у тебя не отработает :)))
на моей строчке все возвращается...

← →
Игорь Шевченко © (2004-06-17 11:29) [41]

Halt;

← →
Rem (2004-06-17 11:53) [42]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

← →
Rem (2004-06-17 11:55) [43]

unit FormMain;

← →
(AD)acid (2004-06-17 11:56) [44]

// Зачем же сразу Halt, хоть и устарело но прекрасно работает
<br>
<br>
Application.Terminate ;

← →
Igorek © (2004-06-17 13:09) [45]

//убедительная просьба к модераторам - удалите флуд и оффтоп

← →
Igorek © (2004-06-17 19:13) [46]

//current unit up

← →
VMcL © (2004-06-17 19:44) [47]

// >>Igorek © (17.06.04 19:13) [46]
//
// Может лучше OLE Automation сервер напишем?

← →
Igorek © (2004-06-17 20:11) [48]

//давайте напишем навороченный HelloWorld (с самого начала)

← →
VMcL © (2004-06-17 20:18) [49]

program HyperCoolHelloWorld;

← →
Zeqfreed © (2004-06-17 20:23) [50]

uses Forms, Unit1, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

//Надеюсь моя "строка" не сильно помешает?

← →
Zeqfreed © (2004-06-17 20:26) [51]

{И ещё, есть предложение... когда нехватит подключенных модулей, после implementation тоже можно ведь uses писать? а ещё можно ф-ции из библиотеки экспортировать :-), так же предлагаю все-таки хоть чуть-чуть спланировать проект... а то опять плохо получится}

← →
VMcL © (2004-06-17 20:32) [52]

// >>Zeqfreed © (17.06.04 20:26) [51]
//
// Точно. Начнем с технического задания...

← →
iZEN © (2004-06-17 21:31) [53]

Self.GetUniverse().ReStart();//Матрица: перезагрузка

← →
able © (2004-06-17 22:10) [54]

{Народ, давайте писать на чистом паскале, а за компилятор возьмём Borland TP!}

← →
VMcL © (2004-06-18 00:15) [55]

// >>able © (17.06.04 22:10) [54]
//
// ...версии 1.0

← →
VMcL © (2004-06-18 15:16) [56]

// SpeedButton1.Down := False;

← →
clickmaker © (2004-06-18 15:35) [57]

while (true) do TForm.Create.Show;

← →
default © (2004-06-18 16:33) [58]

clickmaker © (18.06.04 15:35) [57]
try бы поставил, обработали бы нехватку памяти и писали бы дальше, а так всё испортил

> default © (18.06.04 16:33) [58]

try while(true) do TForm.Create(Application).Show except on E:EoutOfMemory do ExitWindowsEx(EWX_REBOOT, 0); end;

а лучше так
try while(true) do TForm.Create(Application).Show except on E:EoutOfMemory do ShowMessage("Open system block, insert more memory and press OK to continue"); end;

>>clickmaker © (18.06.04 17:06) [60]

А еще круче вот так:

while True do try TForm.Create(Application).Show; except on E: EOutOfMemory do ShowMessage("Open system block, insert more memory and press OK to continue."); end;

var A: array [0..High(Integer)] of DWORD; // Куды деется память? :)

← →
I Lov Topic (2004-06-18 19:14) [64]

var
index: integer;
message: array[0..1000] of string;
begin
for index: 1 to 1000 do
massage[index-1]:="Круто, ветка мне нравится";
for index:1 to 1000 do
showmessage(massage[index-1]+chr(13)+timetostr(time));
end;

// >>I Lov Topic (18.06.04 19:14) [64]
//
// Фи, какой отстой. Сплошные ошибки. Я уж молчу про оформление кода.

{это все конечно круто, но мы хотели вроде писать тех задание; предлагаю такое: 1) программа должна писаться на чистом WinAPI (OtherOS_API) 2) соотв. должна работать на максимальном колличестве ОС 3) язык - ObjectPascal :-) }

// //> программа должна писаться на чистом WinAPI (OtherOS_API) //> 2) соотв. должна работать на максимальном колличестве ОС // //Эт как ? Если API, то ОС одна - Windows

> 1) программа должна писаться на чистом WinAPI (OtherOS_API)
> 2) соотв. должна работать на максимальном колличестве ОС
> 3) язык - ObjectPascal

Можно рекомендовать это преподам, которые всех любят заваливать на зачетах, даже прожженных "черепов" :)

> //> программа должна писаться на чистом WinAPI (OtherOS_API) - imposible?

goto - мой любимый оператор

← →
Stupid (2004-06-21 12:26) [72]

procedure Form1.BitBtn1Click(Sender: TObject);
Begin
BitBtn1Click(Sender);
End;

//Мдя, где преамбула?

---
""Смысл жизни состоит в том, чтобы умело скрывать её бессмысленность"" (с) Даль. http://www.maxx-ch.net

//и куда только смотрят модераторы

//ну так что, пишем программу в постановке [66] ?

{ 2 Igorek © Модераторы не удалят мусорные сообщения, так как они не противоречат общим правилам форума :о). Использование ANY_OS_API и достижения работы на максимальном количестве осей имхо несовместимо. А посему предлагаю написать, ну например ядро программы для чтения форума, компилировать фрипаскалем. С возможностью подключения любого интерфейса (графики, текста, ...). Интерессно, на сколько топиков выросла бы такая ветка, если исходники, например, DMClient"a занимают несколько десятков тысяч строк :о)). }

//IFDEF Linux ...

// Гаврила © (16.06.04 23:54) [36] raise Exception.Create("Программа ничего не выполнила и будет закрыта. Обратитесь к {только не "разработчику" а} разработчикам");

ROLLBACK TRAN

postmessage(0, wm_destroy, 0, 0);

showmessage("Please! Visit http://www.maxx-ch.net! И будет вам счастье!");

---
""Смысл жизни состоит в том, чтобы умело скрывать её бессмысленность"" (с) Даль. http://www.maxx-ch.net

Сочинение на вольную тему - (один пост - одна строка кода) Найти похожие ветки