Супер-прога на Delphi...

← →
ArtemESC © (2007-03-17 15:26) [0]

Давайте напишем прогу, со следующем условием: каждый пост - новая строка в программе... В посте может быть только одна строка и может состоять только из одного утверждения (то есть заканчиватся, только одной точкой с запятой)...

← →
isasa © (2007-03-17 15:28) [1]

program Boyan;

← →
UE (2007-03-17 15:30) [2]

{$APPTYPE CONSOLE}

← →
umbra © (2007-03-17 15:38) [3]

begin

← →
isasa © (2007-03-17 15:40) [4]

umbra © (17.03.07 15:38) [3]
:)
Ну вот, все испортил. А переменные?

← →
Real © (2007-03-17 16:03) [5]

Halt; // :-)

← →
Sam Stone © (2007-03-17 16:15) [6]

end.

← →
TUser © (2007-03-17 16:35) [7]

На самом деле дальше можно сколько угодно писать. Только варнинг один будет и усе.

← →
RASkov (2007-03-17 23:32) [8]

> Только варнинг один будет и усе

Ага... Красный такой...."Обсуждение закрыто" :)

← →
Алхимик © (2007-03-18 11:05) [9]

Надо чтобы модератор стал оптимизатором - повыкидывал лишние строчки subj"a

← →
PARUS © (2007-03-18 13:43) [10]

//Короче заново
program SUPER_BUPER;

← →
palva © (2007-03-18 14:00) [11]

{

← →
RASkov (2007-03-18 14:01) [12]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ComCtrls, InvokeRegistry, xmldom, XMLIntf,
msxmldom, XMLDoc, OleCtrls, SHDocVw, HTTPApp, HTTPProd, CompProd,
PagItems, MidProd, Rio, SOAPHTTPClient, DBLocal, DBLocalI, DBGrids,
RXDBCtrl, RxMemDS, DBClient, DB, DBTables, OleCtnrs, XPMan, Mask,
ToolEdit, CurrEdit, ExtCtrls, TeeProcs, TeEngine, Chart, ValEdit,
AppEvnts, Buttons;
на всяк :)

← →
palva © (2007-03-18 14:01) [13]

}

← →
Fredy314 © (2007-03-18 14:08) [14]

uses windows,messages;

← →
homm © (2007-03-18 16:09) [15]

// palva жжот! :)

← →
antonn © (2007-03-18 16:20) [16]

//согласен:))

← →
Real © (2007-03-18 16:22) [17]

// короче, дальше как в обычной ветке, тока начинать надо с символов комментария :)

← →
Virgo_Style © (2007-03-18 18:03) [18]

// Любая тема (c) ?

← →
clickmaker © (2007-03-18 18:13) [19]

{$H-}

← →
Zeqfreed © (2007-03-18 18:20) [20]

{Copyright: Zeqfreed, 03.18.2007}

← →
TIF © (2007-03-18 18:28) [21]

а как кнопку на форму поставить? а? я хочу спид-батон

← →
clickmaker © (2007-03-18 18:30) [22]

> я хочу спид-батон

не получится его съесть. Его никто догнать не может

← →
TIF © (2007-03-18 18:32) [23]

> Его никто догнать не может

а понятно. спидозный, вот и гонят его ото всех

а лист-фокс?

← →
Virgo_Style © (2007-03-18 18:34) [24]

//эти шесть строчек выше почему-то не компилируются

← →
TIF © (2007-03-18 18:35) [25]

//блин, ты их создай в новом потоке...

← →
Belorus © (2007-03-18 18:45) [26]

{ 18.03.07 Belorus
* Finished some 2*2 multyplying algos,
* Cleaned some unnecessary code written in 21,22,23 posts
TODO : Write some usefull code
}

← →
Другой © (2007-03-18 19:01) [27]

// а заголовок

{*******************************************************}
{ }
{ Delphi Master Not Visual Component Library }
{ }
{ Copyright (c) 2001-2007 Delphi Master Other Forum }
{ }
{*******************************************************}

← →
Real © (2007-03-18 20:10) [28]

type

TTara: tButle, tFlyaga, tCanistra, tStakan, tStopka, tNaperstok;

TVodka = class(TObject)

private
FAlcohol: 0..100;
FWater: 0..100;
Ftara: TTara;
FName: string[30];
end;

← →
isasa © (2007-03-18 21:06) [29]

Добавь к

Real © (18.03.07 20:10) [28]
type
TTara: tButle, tFlyaga, tCanistra, tStakan, tStopka, tNaperstok;

Коментарий

Водка в бутылке в терминах софта:

0.1 - Demo version
0.25 - Trial version
0.5 - Personal edition
0.7 - Professional edition
1.0 - Network edition
1.75 с набором рюмок в коробке - Enterprise suite
3л - for small business
5л - corporate edition
Огуречный рассол с утра - Service pack

Классификатор водки в среде IT

0.1л - demo
0.25л - trial version
0.5л - personal edition
0.7л - professional edition
1.0л - network edition
1.75л - enterprise
3л - for small business
5л - corporate edition
ведро - home edition )
"На посошок" - Service pack
раcсол с утра - Recovery tool
закуска - plugins

← →
cyborg © (2007-03-18 21:12) [30]

try
Dec((Tara as TButle), 100);

← →
cyborg © (2007-03-18 21:14) [31]

//тут почему-то не компилируется, наверное ошибка!

← →
antonn © (2007-03-18 21:40) [32]

//а че пишет в ошибке?

← →
cyborg © (2007-03-18 23:19) [33]

//пишет ошибка

← →
antonn © (2007-03-18 23:42) [34]

//посмотри внимательно, что в 17й строке

//возможно "любая тема" - словосочетание зарезервированое и пробивает даже комментарии...

//В 17-ой строке вот это:
// FAlcohol: 0..100;

implementation

> Водка в бутылке в терминах софта:

Как напиваются программеры:
Сишники и датабазники - в NULL
Дельфисты - в nil
VBэшники - в Nothing
PHPисты - в unset
1Сники - до потери сальдо
Веб-дизайнеры - в 404

Как вариант, последнее
Веб-дизайнеры - 503 Сервис недоступен, Service Unavailable.

> Delphi Master Not Visual Component Library

//Правильно non, а не not&#133

//Чего-то дальше совсем не компилируется, просто виснет, я пятнадцать минут ждал, потом резет нажал.

> Я тоже хачу такую траву!!!!!!!!!!!!!!!!!!!

Нет не надо, гос не сдашь :-)

//Так что кто-нибудь компилил?

//implementation
var
form1:tform;
button1:tbutton;

← →
RASkov (2007-03-19 22:33) [47]

function GoDrim(var IsDream:boolean):boolean;
begin
asm
nope //запутываем код от хацкеров асм вставками, чтобы не разбудили
end;
result:=IsDream;
end;

function GoDream(var IsDream:boolean):boolean;
begin
asm
nope //запутываем код от хацкеров асм вставками, чтобы не разбудили
end;
result:=IsDream;
end;

Супер-прога на Delphi... Найти похожие ветки