Примеры быдлокода, или как не нужно писать программы

[JUDAS]

 if LitleDlg.ShowModal=mrOk then
 begin
  Litle.Close;
  Litle.SQL.Clear;
  Litle.SQL.Add(' insert into litle ( _TYPE ,');
  Litle.SQL.Add(' _REG,');
  Litle.SQL.Add(' _BDATE ,');
  Litle.SQL.Add(' _EDATE ,');
  Litle.SQL.Add(' _USER  ,');
  Litle.SQL.Add(' _INT)');
  Litle.SQL.Add('Values('+#39+LitleDlg.Edit1.Text+#39+',');
  Litle.SQL.Add(#39+LitleDlg.Edit2.Text+#39+',');
  Litle.SQL.Add('to_date('+#39+DateToStr LitleDlg.Edit3.Date)+#39+','+#39+'DD.MM.YYYY'+#39+'),');
  Litle.SQL.Add('to_date('+#39+DateToStr(LitleDlg.Edit4.Date)+#39+','+#39+'DD.MM.YYYY'+#39+'),');
  Litle.SQL.Add(#39+LitleDlg.Edit5.Text+#39+',');
  Litle.SQL.Add('Litle.NextVal)');
  Litle.ExecSQL;
  Litle.Close;
  Litle.SQL.Clear;
  Litle.SQL.Add('commit');
  Litle.ExecSQL;
 end;

[JUDAS]

шедевр оформлен отдельным юнитом!

unit FZero;

interface
Function Zero ( stroka: String; k_str : integer ) : String;

implementation
Uses SysUtils;

Function StrZero ( stroka: String; k_str : integer ) : String;
var
   k, i : integer;
Begin
      Result := stroka;
      k := k_str - length ( trim ( stroka ) );
      for i := 1 to k do
      begin
         Result := '0' + Result;
      end;

End;
end.

[Smitt&Wesson]

JUDAS, чё делать нечего? Хочешь, работой загружу. Мало не покажется.

[TaLadno]

Сообщение от JUDAS

2. Как найти посты говнокода на тему циклы (for) или с наличием меток (label). Видимо местный программист, который писал код вышеуказаного сайта не знает или в меру своей высокой интеллектуальности не понимает, что сайт без поиска, что девушка без промежности.. или тут тоже у меня утончённое мнение ?
3. Порядок. Весь говнокод по конкретному языку слит в одну большую непрерывную .... личинку. Вы считаете такой стиль приемлемым для восприятия?
.

Автор сам себе "быдлокодер", т.к. не выдерживает свой же подход к каталогизации быдлокода

[JUDAS]

Автор сам себе "быдлокодер", т.к. не выдерживает свой же подход к каталогизации быдлокода

а ты как думаешь, вон видишь какие шедевры своих личинок выкладываю.
А ты мне корректный вариент напиши, может через месячишко, я с быдлокодера перейду на новый уровень - говнокодер, а потом видишь и человека с меня сделаешь

[TaLadno]

Сообщение от JUDAS

А ты мне корректный вариент напиши

С чего бы это?

Сообщение от JUDAS

может через месячишко, я с быдлокодера перейду на новый уровень

Нет, "ты" не перейдешь. У "тебя" другие проблемы, "тебе" в этой теме уже писали о них

[JUDAS]

Сообщение от TaLadno

С чего бы это?
Нет, "ты" не перейдешь. У "тебя" другие проблемы, "тебе" в этой теме уже писали о них

и это мне пишет "профессионал" с 4 сообщениями и "позавчерашней регистрацией"

парень, иди учи мат. часть потом поговорим.

[TaLadno]

Преклоняюсь перед тобой, о Великий, ухожу из темы пристыженным.

Учить мат.часть не буду, потому что все равно не достоин общаться с высшим существом, тем более с таким старым.

[JUDAS]

Сообщение от TaLadno

Преклоняюсь перед тобой, о Великий, ухожу из темы пристыженным.

Учить мат.часть не буду, потому что все равно не достоин общаться с высшим существом, тем более с таким старым.

ааа студент, ну тогда ясно.
Прошёлся по твоим постам увидел твой "стиль". Думаю, что с таким стилем общения, ты скоро не только с моей темы уйдёшь, а и с форума в целом.

[Stilet]

шедевр оформлен отдельным юнитом!

А что тут такого быдлокодного?

Litle.SQL.Add(' insert into ano_litle ( _TYPE ,');

А тут что не так?