Сайт о программировании

Пример того как в Delphi можно округлить дробное число до нужного знака. uses Math; // Прибавляешь 0.5 затем округляешь: function RoundMax(Num: real; prec: integer): real;
keep reading

function HTMLToColor(const s: string; var Color: TColor): Boolean; {Функция переводит строку HTML кода в цвет. Если результат успешен, то возвращает True и записывает цвет в переменную
keep reading

Представление TColor в HTML-формате function gethtmlcolor(cl: tcolor; isbackcolor: boolean): string; var rgbcolor: tcolorref; begin if isbackcolor then result := ’bg’ else result := »; rgbcolor := colortorgb(cl); result
keep reading

function RandomPassword(PLen: Integer): string; var str: string; begin Randomize; //string with all possible chars str    := ’abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’; Result := »; repeat Result := Result + str[Random(Length(str)) + 1]; until (Length(Result) =
keep reading

В конференции я часто натыкался на вопросы типа – «Как добавить свой пункт меню в контекстное меню IE, как это
keep reading

procedure TForm1.FormCreate(Sender: TObject); begin {Высоту combobox’а не изменишь, так что вместо combobox’а будем изменять высоту строки grid’а !} StringGrid1.DefaultRowHeight := ComboBox1.Height; {Спрятать combobox} ComboBox1.Visible := False;
keep reading

Вещественные числа, в отличие от целых чисел, хранят лишь приблизительное значение, и за рубежом используются в основном для хранения научных
keep reading

Обработка сообщений означает, что приложение будет тем или иным образом реагировать на полученные от операционной системы сообщения. В стандартном приложении
keep reading

При хранении настроек программы в INI-файле или реестре довольно трудоемким является считывание этих данных и инициализация внутренних структур/классов, хранящих настройки.
keep reading