- 1
- 2
- 3
- 4
- 5
procedure proc(a, b: integer);
begin
end;
proc(1, 2,); // лишняя запятая после 2 !!!!11
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 6
+107
procedure proc(a, b: integer);
begin
end;
proc(1, 2,); // лишняя запятая после 2 !!!!11
на Delphi7 компилится и работает!!! Я в шокенах, 8 лет на Делфи и не знал...
+121
Уважаемая Администрация и Сообщество!
Предлагаю идею для расширения вашего проекта - сделать возможность постить анти-говнокоды, т.е. ТРУЪ-коды. Но сделать возможность читателям вносить в них изменения. Коммититься будут самые заплюсованные изменения, например.
Таким образом, можно будет во-первых just-for-lulz делать идеальные сферические helloworld'ы а с другой - решать вполне реальные задачи разработчиков, на основе улучшенного, оптимизированного и одобренного Сообществом кода.
Ну и, конечно, можно будет грабить корованы
Могу оказать посильную помощь: умею говнокодить на PHP и JS.
PS: Или такое уже предлагали?
+167
class country extends baza
{
......
function show_description($country=NULL)
{
if ($this instanceof country)
$quest="SELECT description FROM countries WHERE name=\"$this->name"";
if ($this instanceof city) // йобаный стыд!!! 0_0
$quest="SELECT description FROM cities WHERE name\"$this->name\" AND country=\"$country\" ";
......
}
class city extends country
.....
предок "country" знает о потомке "city"
Говнокод из говнокнижки Елены Бенкен "PHP, MySQL, XML Программирование для интернета" БХВ-Петербург,ISBN 5-9775-0039-4 страница 209
+97
TPicture = class(TInterfacedPersistent, IStreamPersist)
....
property Bitmap: TBitmap read GetBitmap write SetBitmap;
property Icon: TIcon read GetIcon write SetIcon;
property Metafile: TMetafile read GetMetafile write SetMetafile;
....
procedure TPicture.ForceType(GraphicType: TGraphicClass);
begin
if not (Graphic is GraphicType) then
begin
FGraphic.Free; // 0_0 йобаный стыд!!
FGraphic := nil;
FGraphic := GraphicType.Create;
FGraphic.OnChange := Changed;
FGraphic.OnProgress := Progress;
Changed(Self);
end;
end;
function TPicture.GetBitmap: TBitmap;
begin
ForceType(TBitmap);
Result := TBitmap(Graphic);
end;
function TPicture.GetIcon: TIcon;
begin
ForceType(TIcon);
Result := TIcon(Graphic);
end;
function TPicture.GetMetafile: TMetafile;
begin
ForceType(TMetafile);
Result := TMetafile(Graphic);
end;
Взято из "ДНК", т.е. VCL от Delphi7. unit graphics.pas
Методы get-аксессоры свойств Bitmap, Icon и Metafile вызывают ForceType(). Шутка в том, что если картинка у вас другого типа - то она будет ВНЕЗАПНО выпилена насовсем, стоит только прочитать(sic!) не то свойство объекта класса TPicture.
Наступил сам на эти грабли и потратил драгоценный, час пока понял в чем дело.
+85
destructor TKLCWinFrame.Destroy;
begin
asm
nop;
end;
inherited;
end;
+86.6
if Mode = True then
из исходников FastReport