Школоло / Говнокод #27949 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
procedure TOstatkiForm.FormCreate(Sender: TObject);
begin
  OstatkiTovarList:=TStringList.Create;

  btnShowToConvert.Enabled := False;
  grpToConvert.Visible := False;

  zqrToConvert.SQL.Text := 'select null::integer ostid,' + #13#10 +
                                  'null::integer tovarid,' + #13#10 +
                                  'null::bigint kt,' + #13#10 +
                                  'null::varchar nt,' + #13#10 +
                                  'null::numeric cen,' + #13#10 +
                                  'null::integer edizmerid,' + #13#10 +
                                  'null::varchar name_u,' + #13#10 +
                                  'null::date income_period,' + #13#10 +
                                  'null::varchar ss,' + #13#10 +
                                  'null::numeric ost_doc,' + #13#10 +
                                  'null::numeric gsum' + #13#10 +
                           'where 1=2';
end;

Без комментариев

Baiumka Baiumka, (Updated )

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

Школоло / Говнокод #27939 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
if  (  (sd<>5)  )    and  //    (Material.ReadOnlySklad =false)      and
          (
              (     Material.TypeSkladId <> 4    )  and
              (
             //    (Material.UserBuh = true )  or (Material.UserAdmin = true)     or
                     (Material.DisunionByOssSb=true )  or  ( credit_operation = true )

              )
            )
           then

Baiumka Baiumka, (Updated )

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

Школоло / Говнокод #27926 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
procedure TForm9.FormShow(Sender: TObject);
var i_vx,o_dt,o_kt: real;
begin
  Form9.Caption:='Èòîãî ïî æóðíàëó';
  r_:='select sum(sma) as ism from '+t_ss;
  with DM.ZQ_all do
  begin
    Close;
    SQL.Clear;
    SQL.Add(r_);
    SQL.Add('where ch=1 and gd*100+ms<:rgd*100+:rms');
    Params.ParamByName('rgd').Value :=t_gd;
    Params.ParamByName('rms').Value :=t_ms;
    Open;
    first;
    if Eof=true then i_vx:=0 else i_vx:=Fieldbyname('ism').asfloat;

    Close;
    SQL.Clear;
    SQL.Add(r_);
    SQL.Add('where ch=2 and gd*100+ms<:rgd*100+:rms');
    Params.ParamByName('rgd').Value :=t_gd;
    Params.ParamByName('rms').Value :=t_ms;
    Open;

    first;
    if not Eof=true then  i_vx:=i_vx - Fieldbyname('ism').asfloat;
    LEdit1.Text:=Format('%10.2f',[i_vx]);
    Close;
    SQL.Clear;
    SQL.Add(r_);
    SQL.Add('where ch=1 and gd*100+ms=:rgd*100+:rms');
    Params.ParamByName('rgd').Value :=t_gd;
    Params.ParamByName('rms').Value :=t_ms;
    Open;
    first;
    if Eof=true then o_dt:=0 else o_dt:=Fieldbyname('ism').asfloat;
    LEdit2.Text:=Format('%10.2f',[o_dt]);
    Close;
    SQL.Clear;
    SQL.Add(r_);
    SQL.Add('where ch=2 and gd*100+ms=:rgd*100+:rms');
    Params.ParamByName('rgd').Value :=t_gd;
    Params.ParamByName('rms').Value :=t_ms;
    Open;
    first;
    if Eof=true then o_kt:=0 else o_kt:=Fieldbyname('ism').asfloat;
    Close;
    LEdit3.Text:=Format('%10.2f',[o_kt]);
    LEdit4.Text:=Format('%10.2f',[i_vx+o_dt-o_kt]);
  end;

end;

Baiumka Baiumka, (Updated )

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

Школоло / Говнокод #27889 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
Program print_numbers_twice;

Procedure give(p: pptrint);
begin
	if pptrint(p^) <> nil then begin
		give(pptrint(p^));
		writeln((p-1)^)
	end
end;

Procedure take;
var n: ptrint;
begin
	if not SeekEof then begin
		read(n);
		take
	end else begin
		n := (pptrint(@n)+1)^;
		give(pptrint(n));
		give(pptrint(n))
	end
end;

Begin
	take
End.

На входе программа получает неизвестное заранее количество целых чисел, разделенных пробельными символами, а затем выводит их два раза в том же порядке по одному числу в строке.

Очень простая и короткая программа. Я думаю, вам не составит труда понять, как она работает. Пишите в комментариях!

Threadwalker Threadwalker, (Updated )

Комментарии (141, +141)

Школоло / Говнокод #27793 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
// Подгрузка аватаров пользователей.
    Bmp:=TBitMap.Create; // Нет более изящного спооба узнать тип изображения, не колупаясь в заголовках. Расширение файлов картинок зачастую фиктивное.
    try                  // Зная, что ава может быть только двух типов - jpg и png, я решил пойти конём.
      Bmp.PixelFormat:=pf32Bit;
      Bmp.Width:=16;
      Bmp.Height:=16;
      ImgConv:=True;
      Png:=TPngObject.Create;
      try
        try
          Comm.RawAvatar.Position:=0;
          Png.LoadFromStream(Comm.RawAvatar);
          Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect, Png);
        except
          ImgConv:=False;     // Ошибка конвертирования. Не совпал формат - идем дальше, пробуем jpg...
        end;
      finally
        Png.Free;             // нет смысла раскручивать стек, ибо исключение в любом случае отловится try..except
      end;
      if not ImgConv then
      begin
        Jpg:=TJPEGImage.Create;
        try
          try
            Comm.RawAvatar.Position:=0;
            Jpg.LoadFromStream(Comm.RawAvatar);
            Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect, Jpg);
          except
          end;
        finally
          Jpg.Free;
        end;
      end;
      CommentList.Items[I].ImageIndex:=Images.AddMasked(Bmp, clWhite);
    finally
      Bmp.Free;
    end;
  end;

"Тут всюду густая вонь, то жаркая и приятная, то теплая и противная, но одинаково волнующая, особая, пароходная, мешающаяся с морской свежестью"

@ Бунин.

Теперь минусатор умеет подгружать авы.
https://dropmefiles.com/USQKW

Support Support, (Updated )

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

Школоло / Говнокод #27748 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
function ReplaceHTMLSpec(First, Last, RepTo, RepEd:string):string;
var
  I, P, St:Integer;
  SS, Temp:string;
begin
  Temp:='';
  ST:=0;
  while True do
  begin
    P:=Pos(First, Result);
    if P = 0 then Break;
    SS:=Copy(Result, ST, P-1)+RepTo;
    Temp:=Temp+SS;
    ST:=P+Length(First);
    Result:=Copy(Result, ST, MaxInt);
    P:=Pos(Last, Result);
    if P > 0 then
    begin
      SS:=Copy(Result, 1, P-1)+RepEd;
      Temp:=Temp+SS;
      ST:=P+Length(Last);
      SS:=Copy(Result,ST, MaxInt);
      Temp:=Temp+SS;
    end;
    Result:=Temp;
  end;
end;

function DecorateText(S:string):string;
const
  Arr:array[0..3] of string=('<br>','"','<','>');
var
  I, P, St:Integer;
  SS, Temp:string;
begin
  Result:=S;
  for I:=0 to 3 do
  Result:=StringReplace(Result, Arr[I], '',[rfreplaceall]);
  Result:=StringReplace(Result,'<br />',#13#10,[rfreplaceall]);
  Result:=StringReplace(Result,'<i>','[i]',[rfreplaceall]);
  Result:=StringReplace(Result,'</i>','[/i]',[rfreplaceall]);
  Result:=StringReplace(Result,'<b>','[b]',[rfreplaceall]);
  Result:=StringReplace(Result,'</b>','[/b]',[rfreplaceall]);
  Temp:='';
  ST:=0;
 { while True do
  begin
    P:=Pos('<span style="font-size:10px;">', Result);
    if P = 0 then Break;
    SS:=Copy(Result, ST, P-1)+'[size=10]';
    Temp:=Temp+SS;
    ST:=P+Length('<span style="font-size:10px;">');
    Result:=Copy(Result, ST, MaxInt);
    P:=Pos('</span>', Result);
    if P > 0 then
    begin
      SS:=Copy(Result, 1, P-1)+'[/size]';
      Temp:=Temp+SS;
      ST:=P+Length('</span>');
      SS:=Copy(Result,ST, MaxInt);
      Temp:=Temp+SS;
      Result:=Temp;
    end;
  end;   }

  Result:=ReplaceHTMLSpec('<span style="color:white;">','</span>','[color=white]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:red;">','</span>','[color=red]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:blue;">','</span>','[color=blue]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:green;">','</span>','[color=green]','[/color]');
  Result:=ReplaceHTMLSpec('<pre><code class="">','</code></pre>','[code]','[/code]');
  Result:=ReplaceHTMLSpec('<span style="font-size:10px;">','</span>','[size=10]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="font-size:15px;">','</span>','[size=15]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="font-size:20px;">','</span>','[size=20]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:underline;">','</span>','[u]','[/u]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:line-through;">','</span>','[s]','[/s]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:blink;">','</span>','[blink]','[/blink]');
end;

Пахнет селёдкой. Ой блять, забыл подмыться.

Support Support, (Updated )

Комментарии (526, +526)

Школоло / Говнокод #27689 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
Ой, девачьки, я 5 лет не заходило. Почему нет говнокодов на Дульфи? Я десять страниц промотал! Неужели все дульфисты впали 
в старческий маразм и не могут больше срать на этом недоязыке? Почему? Он же изначально создавался для даунов.
Что стало с Тарасом? Что стало с поняшей-ассемблеристом?

Только одфаги меня вспомнят.

DelphiGovno DelphiGovno, (Updated )

Комментарии (96, +96)

Школоло / Говнокод #27603 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
* g o a t s e x * g o a t s e x * g o a t s e x *
g                                               g  
o /     \             \            /    \       o
a|       |             \          |      |      a
t|       `.             |         |       :     t
s`        |             |        \|       |     s
e \       | /       /  \\\   --__ \\       :    e
x  \      \/   _--~~          ~--__| \     |    x  
*   \      \_-~                    ~-_\    |    *
g    \_     \        _.--------.______\|   |    g
o      \     \______// _ ___ _ (_(__>  \   |    o
a       \   .  C ___)  ______ (_(____>  |  /    a
t       /\ |   C ____)/      \ (_____>  |_/     t
s      / /\|   C_____)       |  (___>   /  \    s
e     |   (   _C_____)\______/  // _/ /     \   e
x     |    \  |__   \\_________// (__/       |  x
*    | \    \____)   `----   --'             |  *
g    |  \_          ___\       /_          _/ | g
o   |              /    |     |  \            | o
a   |             |    /       \  \           | a
t   |          / /    |         |  \           |t
s   |         / /      \__/\___/    |          |s
e  |           /        |    |       |         |e
x  |          |         |    |       |         |x
* g o a t s e x * g o a t s e x * g o a t s e x *

За Гомосексуализм!

Paskal Paskal, (Updated )

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