ADMin Портал!

Партнеры


Профиль



Добро пожаловать,
Гость

54.225.38.2

Регистрация или вход
Потеряли пароль?

Сейчас онлайн
Администраторы:0
Пользователей:0
Гостей:35
Поисковые боты:1

Всего:36

Кнопки




Исходный код

Статьи

Разное
То, что не удалось рассортировать в основные разделы.

Регулярные выражения в RAD XE


Разработчики, наконец-то, добавили в Embarcadero RAD XE возможность поддержки регулярных выражений, как это сделано в PHP уже давным давно.. Поэтому активно начинаем использовать.
Ниже приведен пример вытаскивания цифрового значения в квадратных скобках:


Дата публикации: 30.08.2015
Прочитано: 6066 раз

PHP Генератор случайного пароля RandomSecurePassword


Скрипт генериует случайные пароли из заданных наборов элементов и заданной длины.

Дата публикации: 23.04.2012
Прочитано: 3114 раз

Все слова с заглавной буквы


По мере набора текста в TEdit все слова печатаются с большой буквы автоматически.. т.е. не надо постоянно зажимать шифт..

Проверен на D2010

Дата публикации: 30.11.2010
Прочитано: 6509 раз

PHP Delphi: Денежный формат числа


Не найдя готовой функции перевода целых чисел и чисел с одним знаком после запятой в денежный формат с двумя знаками после запятой, я написал собственную функцию moneyformat:

Все числа будут дописаны нулями с точностью до сотых..

Дата публикации: 17.02.2011
Прочитано: 7589 раз

Целая часть числа


Код
1
2
3
4
5
6
begin
  ShowMessage('Round(12.75) = '+IntToStr(Round(12.75)));
  ShowMessage('Trunc(12.75) = '+IntToStr(Trunc(12.75)));
  ShowMessage('  Int(12.75) = '+FloatToStr(Int(12.75)));
  ShowMessage(' Frac(12.75) = '+FloatToStr(Frac(12.75)));
end;


Дата публикации: 03.06.2010
Прочитано: 4341 раз

Кодировка из Win в DOS и из DOS в Win в Delphi 2010


Мне в консольном приложении необходимо было выводить русский текст. Но так как в делфи 2010 сплошная юникодизация, то пришлось немного повозиться. Поискал в интернете. Но там вся информация не актуальна для Delphi 2010. Пришлось чуть-чуть подправлять.

Дата публикации: 27.05.2010
Прочитано: 12037 раз

Дата прописью function Monthstr(S: tdatetime): string;


function Monthstr(S: tdatetime): string;
функция преобразования даты (тип tdatetime) в строку (string)

Дата публикации: 13.05.2010
Прочитано: 2496 раз

UpperCase LowerСase Перевод строк в верхний и в нижний регистр


UpperCase LowerСase в D7 работали только с английским языком. В связи с чем использовал функцию ниже.

Код
1
2
3
4
5
6
7
8
9
10
11
12
function UpperCase(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to length(result) do
    if (result[i] in ['a'..'z', 'а'..'я']) then
      begin
      result[i] := chr(ord(result[i]) - 32);
      showmessage(result);
      end;
end;


После перехода на D2010 и эта функция отказалась работать с русским языком..

Дата публикации: 13.04.2010
Прочитано: 7120 раз

Получить номер GUID


Глобальный уникальный 36-ти символьный идентификатор..

Дата публикации: 13.04.2010
Прочитано: 2154 раз

Hint - Время показа


Следующий код можно вызвать при создании формы либо динамически управлять длительностью использую глобальную переменную.

Дата публикации: 18.03.2008
Прочитано: 3234 раз



Powered by SLAED CMS © 2005-2007 SLAED. All rights reserved.