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

    +142

    1. 1
    Язык Богов

    Stertor, 29 Июня 2013

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

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

    +69

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    while not recived do
     begin
       Application.ProcessMessages;
//       do_log('Reciving CS response');
       p:=pos('</ROW>',ss);
       if p>1 then recived:=true else
       begin
       s := CS.Socket.ReadLn+#10#13;
//       do_log(s);
       ss:=ss+s;
       end;
       if cs.Socket.ReadLnTimedout then cs.Socket.Close;
       if not cs.Connected then recived:=true;
     end;
    do_log('RECIVING done ');
    cs.Free;
    ss:=UTF8ToStrSmart(ss);
    do_log(ss);

    HTTP 1.1
    отправляет запрос, получает ответ в XML
    Вы видите условие выхода из цикла?
    я нет.
    параллельный трид отсчитывает 3 секунды и принудительно закрывает сокет. с учетом keep-alive это дает полтора года мозго..6ли
    аутсорс фрилансерам он такой...

    RomaShka, 27 Июня 2013

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

  3. Pascal / Говнокод #13244

    +140

    1. 1
    2. 2
    А что можно создать с помощью компилятора
Borland JBuilder?

    Что можно создать на этом компиляторе?

    Stertor, 27 Июня 2013

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

  4. 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)

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

    +140

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

    .

    Stertor, 26 Июня 2013

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

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

    +143

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

    Stertor, 26 Июня 2013

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

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

    +146

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

    Stertor, 26 Июня 2013

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

  8. 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)

  9. 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

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

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

    +122

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

    Stertor, 25 Июня 2013

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