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

    +106

    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
    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
    function ReplaceUrl(txt: WideString): WideString;
var
  i, j: integer;
  tmp, Url: WideString;
begin
  Result := '';
  I := 1;
  while I <= Length(txt) do
  begin
    tmp := '';
    if WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'http://') or
       WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6], 'ed2k://') or
       WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5],          'ftp://') or
       WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3],                            'www.') or
       WideSameText(tmp + txt[i]+txt[i+1]+txt[i+2]+txt[i+3]+txt[i+4]+txt[i+5]+txt[i+6]+txt[i+7], 'https://') then
    begin
      Url := '';
      for j := I to Length(txt) do
      begin
        if (txt[j] <> ' ') and (ord(txt[j]) < 255) then
          Url := Url + txt[J]
        else
          Break;
      end;
 
      Result := Result + Format(C_HTML_URL, [Url, Url]);
 
      I := J;
    end else
    begin
      Result := Result + txt[I];
 
      Inc(I);
    end;
  end;
 
end;

    http://www.bvbcode.com/code/vhk2e8rb-1638045

    Запостил: 63F45EF45RB65R6VR, 21 Августа 2012

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

    • ava bormand 21.08.2012 13:15 # 0

      Оно же вылетит из-за выхода за границы массива.
      Ответить

    • ava bormand 22.08.2012 15:53 # 0

      Строка 356:
      //定义文件格式
HDropFormatEtc: TFormatEtc = (cfFormat: CF_HDROP;
ptd: nil; dwAspect: DVASPECT_CONTENT; lindex: -1; tymed: TYMED_HGLOBAL);
      Ответить

    Добавить комментарий