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

← →
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 бы поставил, обработали бы нехватку памяти и писали бы дальше, а так всё испортил

← →
clickmaker © (2004-06-18 16:50) [59]

> 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;

← →
clickmaker © (2004-06-18 17:06) [60]

а лучше так
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;

← →
default © (2004-06-18 17:30) [61]

clickmaker © (18.06.04 17:06) [60]
весело

← →
VMcL © (2004-06-18 17:38) [62]

>>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;

← →
Rouse_ © (2004-06-18 18:06) [63]

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;

← →
VMcL © (2004-06-21 11:19) [65]

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

← →
Igorek © (2004-06-21 11:25) [66]

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

← →
Игорь Шевченко © (2004-06-21 11:28) [67]

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

← →
clickmaker © (2004-06-21 11:33) [68]

> 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

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