Задать вопрос

Yam0lod5y

Лайки

  • RC4 почему не полный результат?

    OCTAGRAM
    @OCTAGRAM
    Вместо Chr, который возвращает не понятно, что, для аналогии нужен Char. Или это какая версия Delphi? В старых (2007 и старше) для аналогии это WideChar.

    Посмотрел, а на чём прерывается версия Delphi. В JavaScript это \u0000. Напрашивается мнение, что Delphi отработала как надо, а проблема в системе отображения, которая закодирована на устаревшем языке программирования с устаревшей системой кодирования длины строки встроенным в конец строки нулевым символом. Поменяйте тот кусок, где режется, и строка сохранится во всей полноте.
    Ответ написан
    6 комментариев
    6 комментариев

  • Счётчик успешных операций в минуту на Delphi?

    @acwartz
    Тут должна быть ваша реклама.
    Ну и зачем вам юникстайм для этого?
    Есть же функция ОС GetTickCount , а если работать с датами то в DateUtils есть MillisecondsBetween который вернет ровно тот же результат что и GetTickCount. Дальше хоть в секунды хоть в часы...
    Ответ написан
    Комментировать
    Комментировать

  • Счётчик успешных операций в минуту на Delphi?

    OCTAGRAM
    @OCTAGRAM
    Обычно календарь юникса измеряется в секундах, и только в JS исключение с миллисекундами. Если там правда миллисекунды, может, тогда заменить целочисленное деление div на операцию с плавающей точкой /

    Также хорошей практикой будет использовать по возможности не гражданский календарь, а монотонное время. В языке Ada это приложение к стандарту D.8 Monotonic Time, описывающее пакет Ada.Real_Time. В Delphi тот же функционал спрятан в модуль с не очевидным названием System.Diagnostics. Это если программа не перезапускается в течение всего интересующего интервала.
    Ответ написан
    Комментировать
    Комментировать

  • Счётчик успешных операций в минуту на Delphi?

    HemulGM
    @HemulGM Куратор тега Delphi
    Delphi Developer, сис. админ
    Используй тики. GetTickCount это счетчик ОС.
    var Save := GetTickCount;
<do something>
var Delta := GetTickCount - Save; <- Тут кол-во миллисекунд, потраченное на действие выше
    Ответ написан
    6 комментариев
    6 комментариев

  • Javascript в Delphi?

    HemulGM
    @HemulGM Куратор тега Delphi
    Delphi Developer, сис. админ 
    function columnToLetter(column: Integer): string;
var
  temp: Integer;
begin
  Result := '';
  while (column > 0) do
  begin
    temp := (column - 1) mod 26;
    Result := Char(temp + 65) + Result;
    column := (column - temp - 1) div 26;
  end;
end;
    Ответ написан
    Комментировать
    Комментировать