Займись чтением!
Чехов. Lets Read — что в переводе на русский «Давай читай» или просто «Читай»
20 причин читать больше
Закладка в Dataset
Post Views: 2 327 Задача : Поcтавить закладку, пробежаться по всей таблице и вернуть курсор на место закладки. Решение : [cc lang=»delphi» tab_size=»2″ line_numbers=»false» no_links=»false»] procedure TForm1.SomeDBOperations; var b: string; begin b := myGrid.DataSource.DataSet.Bookmark; myGrid.DataSource.DataSet.DisableControls; {какие-то операции с Table1} ….. ….. myGrid.DataSource.DataSet.EnableControls; myGrid.DataSource.DataSet.Bookmark := b; end; [/cc]
Переворот строки
Post Views: 3 154 Задача : Поменять местами символы в строке, так чтобы она развернулась в обратном порядке. Решение : Строка в Delphi представляет собой массив символов. К каждому символу можно обращаться по его индексу. Все что от нас требуется это пройтись в цикле по строке в обратном порядке и записать этот обратный порядок в новую… Читать далее »
Вывести 10 дат начиная с сегодня (pl/sql)
Post Views: 2 519 Задание : «Вывести 10 дат начиная с сегодняшней СУБД Oracle язык Pl/SQL» Решение Вариант №1 Через рекурсивный запрос [cc lang=»plsql» tab_size=»2″ line_numbers=»false» no_links=»false» escaped=»true»] select trunc(sysdate+level-1) date1 from dual connect by level
Установка времени и даты на локальном компьютере
Post Views: 2 192 Устанавливаем год на компьютере — GetLocalTime(tm); tm.wYear:= 2000; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем месяц на компьютере — GetLocalTime(tm); tm.wMonth:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем день на компьютере — GetLocalTime(tm); tm.wDay:= 01; SetLocalTime(tm); // var tm: TSystemTime; Устанавливаем часы на компьютере — GetLocalTime(tm); tm.wHour:= 0; SetLocalTime(tm); // var tm: TSystemTime;… Читать далее »
Типы переменных
Post Views: 2 525 Переменные содержащие целые числа, не имеющие дробной части. Тип переменной Значение переменной Размер переменной Shortint -128..127 8-бит со знаком Int64 -2^63..2^63-1 64-бит со знаком Smallint -32768..32767 16-бит со знаком Integer -2147483648.. 2147483647 32-бит со знаком Longint -2147483648.. 2147483647 32-бит со знаком Longword 0..4294967295 32-бит без знака Byte 0..255 8-бит без знака Word… Читать далее »
Преобразование типов переменных
Post Views: 2 037 Таблица преобразования типов переменных. Integer String Extended Integer x:=x; x:=strtoint(x); x:=Round(x); String x:=inttostr(x); x:=x; x:=FloatToStr(x) Extended x:=x; x:=StrToFloat(x); x:=x;
Основные события объектов
Post Views: 1 952 Событие Описание OnActivate Когда приложение стало активным. OnCanResize Это событие генерируется перед тем, как изменить размер окна. OnClose Генерируется, когда окно закрывается. OnCloseQuery Генерируется до закрытия окна. В этом обработчике происходит запрос на закрытие, OnCreate Генерируется, когда окно создаётся. OnDeactivate Генерируется, когда окно деактивируется.… Читать далее »
Работа с клавиатурой
Post Views: 2 384 Вывод сообщения при нажатии клавиши Esc — if getasynckeystate($1b)<>0 then ShowMessage(‘Сообщение’); // Для таймера Изменить раскладку клавиатуры на английскую — LoadKeyboardLayout(‘00000409’, KLF_ACTIVATE); Изменить раскладку клавиатуры на русскую — LoadKeyboardLayout(‘00000419’, KLF_ACTIVATE); Узнать раскладку клавиатуры — GetKeyboardLayoutName(value); if value= ‘00000409’ then ShowMessage(‘Используется английский’); if value= ‘00000419’ then ShowMessage(‘Используется Русский’); // value: array [0.. KL_NAMELENGTH]… Читать далее »
Коды клавиш клавиатуры
Post Views: 8 633 Таблица кодов клавиш, которыми можно пользоваться при проверке параметра Key в обработчиках событий OnKeyDown и OnKeyUp: Клавиша Дес. число Шест. число Символическое имя Сравнение по функции ord F1 112 $70 VK_F1 F2 113 $71 VK_F2 F3 114 $72 VK_F3 F4 115 $73 VK_F4 F5 116 $74 VK_F5 … Читать далее »