1. 1

ХУЙ

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    RequestBody,SResponseBody: TStringStream;

    ResponseBody: string;
begin


  try
     RequestBody := TStringStream.Create('{"login":"user","password":"pass999"}') ;
    httpconn.HandleRedirects:=TRUE;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
    //httpconn.Host:='api.owencloud.ru';
    httpconn.Request.Accept:='application/xml';
    httpconn.Request.ContentLength:=68;
    httpconn.Request.ContentType:='application/x-www-form-urlencoded';

    ResponseBody:=httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody);
    SResponseBody:=TStringStream.Create(httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody));
    memo1.Text:=utf8toansi(ResponseBody);
    xmldocument1.LoadFromStream(SResponseBody);
 finally
    RequestBody.Free;
    SResponseBody.Free;
 end;
end;

1. 1

Я тупой ишакоёб из Осетии.

1. 1

https://pastebin.com/8c6KxabR

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

inside:=false;
tag:=uppercase(tagpure);
spacep:=pos(' ',tag);
if spacep=0 then tagname:=tag else tagname:=copy(tag,1,spacep-1);

if (not inscript) and (tagname='A') then
begin
ParseTag(tagpure);
//если флажок Ссылки или флажок Якоря включен
if checkBox9.Checked or checkBox10.Checked then
begin
linktext:=Lg.GR(24);
linktag:='HREF';
link2text:=Lg.GR(25);
link2tag:='NAME';
needlink:=true;
needdbr:=true;
end;
end;

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

H:=BeginUpdateResource(pChar(FileName), false);
    try
      Module:=LoadLibraryEx(PChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE);
      if (Module=INVALID_HANDLE_VALUE) then Exit;
      SetLength(ResName, 2000);
      SetLastError(ERROR_SUCCESS);
      EnumResourceNames(Module,RT_GROUP_ICON,@EnumResourceNamesCallback, Integer(Pointer(ResName)));
      Win32Check(GetLastError=ERROR_SUCCESS);
      SetLength(ResName, StrLen(PChar(ResName)));
      try
        if not TryStrToInt(ResName, IntResName) then
        PResName:=Integer(Pointer(ResName))
        else
        PResName:=IntResName;
        R := FindResource(Module, MakeIntResource(PResName), RT_GROUP_ICON);
        if R = 0 then Exit;

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10

Ent := 0.0;
  for I := Low(Freq) to High(Freq) do
    Ent := Ent + Freq[I];
  Ent := Ln(FileSize(Input)) / Ln(2) * Ent;
  for I := Low(Freq) to High(Freq) do
  begin
    if Freq[I] > 0 then
      Ent := Ent - Freq[I] * Ln(Freq[I]) / Ln(2);
  end;
  Ent := Ent / FileSize(Input);

1. 1
2. 2
3. 3

В коем-то веке Эмбаркадера выпустила бесплатную полнофункционалку -  а мне совершенно неохота кодить... Пиздейшн.
Даже пары строк не могу вывести на этом говне - нервы сдают. Наконец-то я получил шанс обессмертить своё имя, 
напейсав какое-нибудь ширпотребное паскальное убожество не на крякнутой - а на НАСТОЯЩЕЙ, на кошерной, на лицензионной - но почему-то мне похуй...

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

Program Aliski; 
uses Graphabc; 
begin 
SetWindowWidth(800); 
SetWindowHeight(600); 
SetPenWidth(3); 
SetFontSize(18); 
SetFontColor(clGreen); 
rectangle(85,80,500,140); 
TextOut(100,100,'Алексей у тебя реально 10см?'); 
Circle(350,500, 40); 
Circle(430,500, 40); 
FloodFill(350,500,clSkyBlue); 
FloodFill(430,500,clPurple); 
Line(350,460,350,250); 
Line(430,460,430,250); 
Line(340,250,440,250); 
Line(390,220,390,200); 
Arc(390,250,50,0,180); 
end.

1. 1

Pascal — гниль