1. Список говнокодов пользователя DeadIgle

    Всего: 1

  2. Pascal / Говнокод #10625

    +92

    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
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    function THandlerServerCommands.CheckCommandOnDigits(const AComand: string;
  var AIndex: integer): Boolean;
var
  i, k: Integer;
  Nn, Ln: integer;
  TempComand: string;
begin
  Result := False;
  try
    TempComand := AComand;
    Ln := 1;
    Nn := 0;
    if FServerCommands.Find(TempComand, i) then
    begin
      AIndex := i;
      Result := True;
      Exit;
    end;

    for k := 1 to Length(AComand) do
    begin
      if not (AComand[k] in ['0'..'9']) then
        inc(Nn)
      else
      begin
        inc(Nn);
        if Nn > Ln then
        begin
          TempComand := '';
          TempComand := Copy(AComand, 1, Nn - 1);
          if FServerCommands.Find(TempComand, i) then
          begin
            AIndex := i;
            Result := True;
            Break;
          end;
        end;
        Ln := Nn + 1;
      end;
    end;
  except
    on e: Exception do
    begin
      Result := False;
      LogEx.Error('Ошибка в процедуре CheckCommandOnDigits c параметрами AComand = ' + AComand + ' ' + e.Message);
    end;
  end;
end;

    Проверьте код на запашок

    DeadIgle, 08 Июня 2012

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