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

    +144

    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
    function IsIntStr(const str:string):boolean;                                    // Для проверки, состоит ли логин целиком из цифр.
var                                                                             // TryStrToInt не подходит.
  p:pchar;
begin
  result:=false;
  p:=pchar(str);
  if p^=#0 then exit;
  while p^ <> #0 do
  begin
    if not (p^ in ['0'..'9']) then
    exit;
    p:=charnext(p) ;
  end;
  result:=true;
end;

    Showmessage(IntToStr(4324324233213564)); // а хуйца не желаете?

    Запостил: Stertor, 24 Апреля 2015

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

    • ava Stertor 24.04.2015 16:38 # 0

      И нахуя понадобилось опускать мой пост?.. Пипец. Но надо - так надо...
      Ответить

    • ava bormand 24.04.2015 16:48 # 0

      А зачем тебе там каст в пчар? Я бы как-то так сделал:
      function IsIntStr(const std : string) : boolean;
var
    i : integer;
begin
    result := false;
    for i := 1 to length(str) do
        if not (str[i] in ['0' .. '9']) then
            exit;
    result := true;
end;
      Ответить

      • ava Stertor 24.04.2015 16:51 # +1

        ))) Интересно, что ты на это скажешь:

        procedure TForm1.Button1Click(Sender: TObject);
var
  str,buff:string;
  p:pchar;
begin
  setlength(buff,400);
  p:=pchar(buff);
  getlogicaldrivestrings(400,p);
  str:='';

  while p^ <> #0 do    //##
  begin
    str:=str+strpas(p);
    while p^ <> #0 do //A:\#C:\#D:\##
    p:=charnext(p);   //C:\#D:\##
    inc(p);
  end;

  showmessage(str);
end;
        Ответить

        • ava bormand 24.04.2015 17:00 # +1

          > Интересно, что ты на это скажешь
          Ну а что тут сказать... Сишкоблядскому API - сишкоблядские методы.

          Возвращает что-то типа "ACD"?
          Ответить

          • ava Stertor 24.04.2015 17:01 # 0

            A:\C:\D:\
            Это просто так, я никогда не вызываю эту API.
            Ответить

            • ava bormand 24.04.2015 17:03 # 0

              Не, я не про сам getlogicaldrivestrings(), а про то, что будет в str.
              Ответить

            • ava 3_14dar 24.04.2015 17:03 # 0

              A:\C:\D:\C:\
              Ответить

              • ava Stertor 24.04.2015 17:05 # 0

                >>A:\C:\D:\C:\
                Если вылезешь за пределы буфера (неправильно наращивая инкремент), будет и Z:\ и X:\ и другие несуществующие диски...
                Ответить

              • ava 666_N33D135 16.07.2018 08:11 # 0

                AC/DC

                YOU CAN'T STOP ROCK'N'ROLL!!!!!!!!!
                Ответить

            • ava 666_N33D135 16.07.2018 08:12 # 0

              Кстати, а почему не используется B:?
              Ответить

              • ava roskomgovno 16.07.2018 23:44 # 0

                B:\ традиционно закреплено за вторым дисководом.

                Первые PC не были оснащены HDD, и имели два дисковода (пятидюймовых) A:\ и B:\.

                С A:\ обычно грузились, с B:\ запускали игры и программы.

                Некоторые версии еще поддерживали кассеты
                Ответить

        • ava cmepmop 08.03.2019 13:10 # 0

          Не надо юзать эту API. Можно перебрать массив букв от C до Z, каждый раз проверяя результат DeviceIOControl.
          Ответить

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