1. Pascal / Говнокод #13241

    +148

    1. 1
    2. 2
    3. 3
    4. 4
    Сионисты, давно захватившие власть во всей Европе, навязывают нормальным людям повадки педерастов 
и … На Западе идёт активная и настойчивая пропаганда гомосексуализма.

http://ru-an.info/news_content.php?id=2159

    Вот я и задумался: стоит ли после этого учить c++ ???

    Stertor, 26 Июня 2013

    Комментарии (71)

  2. Pascal / Говнокод #13240

    +140

    1. 1
    2. 2
    3. 3
    4. 4
    Несколько дней назад я просил помочь мне положить сайт vbbook.ru. 
Если честно, когда я писал это сообщение, не рассчитывал, что кто-то серьезно к этому отнесется. 
Но...
Кто-то местный положил сайт почти на 4 дня!! Я в шоке! Спасибо! Я преклоняюсь пред Вашим величием! )

    .

    Stertor, 26 Июня 2013

    Комментарии (3)

  3. Куча / Говнокод #13239

    +147

    1. 1
    Куда пропадают мои г-коды?

    Stertor, 26 Июня 2013

    Комментарии (3)

  4. Куча / Говнокод #13238

    +147

    1. 1
    Николас Вирт - Бог

    Stertor, 26 Июня 2013

    Комментарии (2)

  5. Pascal / Говнокод #13236

    +143

    1. 1
    Лучший язык программирования, я считаю. Ставь лойс, если думаешь так жи

    Stertor, 26 Июня 2013

    Комментарии (2)

  6. Pascal / Говнокод #13235

    +146

    1. 1
    Приходите на наш сайт : yadelphi.ru

    Stertor, 26 Июня 2013

    Комментарии (1)

  7. Pascal / Говнокод #13234

    +141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
	begin
	Result := '';
	if (T_='') or (ForS='') or (_T='') then Exit;
	a:=Pos(T_, ForS);
	if a=0 then Exit else a:=a+Length(T_);
	ForS:=Copy(ForS, a, Length(ForS)-a+1);
	b:=Pos(_T, ForS);
	if b>0 then
	Result:=Copy(ForS, 1, b - 1);
	end;

    Давно хотел выложить эту дуру на форум.
    В чем лажа? Я подозреваю, что перегруженный оператор '=' применительно к строкам (сравнение двух строк) это вызов lstrcmp.
    следовательно, POS ЧУВСТВИТЕЛЬНА к регистру!! Это значит, что функция вернет фалс, сравнивая ВоТ эТО и вот это.
    Но это полбеды. Иные горемыки передают ей километровый текст в качестве шаблона - это нормально.

    И потом еще кто то наивно удивляется, почему функция пропускает нужное или хватает лишнее.

    Stertor, 26 Июня 2013

    Комментарии (16)

  8. Pascal / Говнокод #13233

    +75

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    function rus (s:string):string;             {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;

    Кусок лабы на делфи

    _113, 26 Июня 2013

    Комментарии (209)

  9. Куча / Говнокод #13232

    +130

    1. 1
    <option value="Какое ваше девичья фамилия вашей матери?">Какое ваше девичья фамилия вашей матери?</option>

    Экономим на переводах...

    nonamez, 25 Июня 2013

    Комментарии (12)

  10. Pascal / Говнокод #13231

    +122

    1. 1
    Привет, посетите наш сайт [color=red]yadelphi.ru[/color]!

    Stertor, 25 Июня 2013

    Комментарии (3)