В нашей
рассылке вы узнаете о новых статьях, программах, и темах на форуме. Рассылка
выходит один раз в неделю, каждый четверг.
Подписаться на рассылку можно в этой форме:
Последний выпуск
Как ни странно на
этой неделе я вспомнил о рассылке еще во вторник. Всем привет! Получайте
очередной выпуск рассылки. Уже последний полный, т.к. последующие выпуски
будут платными.
Любой начинающий
делфист написав эту процедуру расстроится, когда она не заработает,
конечно, можно исправить это положение, написав свой или
использовать сторонний модуль с функциями преобразования величин. В
принципе, об этом я и хотел написать, как перевести переменную из
одного типа в другую.
Для простых вопросов всегда есть
готовые решения, нужно их найти, и возможно доработать, сделать
современными. Как искать? Я начинаю поиск по всем сайтам клуба, за 2
года накопилось множество интересных статей, тем на форуме и прочее,
а также появился инструмент для поиска только по сайтам клуба
go.pblog.ru
, ищем
str to char
Вспомнить, что есть удобный справочник -
delphibasics.ru/navSystem.php
Почитать
про
Char
В похожих
командах найти нужную информацию, для нас это -
PChar
Указатель на значение
символа (Char), ещё в статье www.programmersclub.ru/typepchar/ мы про него
читали что-то.
http://delphibasics.ru/PChar.php - смотрим
пример кода, и понимаем, что нас вопрос решён с помощью указателей. Это
тоже читаем http://delphibasics.ru/Addr.php, так как в коде используеться
функция
Addr
Используя указатели мы можем обращаться к
любой ячейке в памяти и использовать размещённые там данные.
В данном примере я решил задачу замены
русского слова, побуквенно html кодами(коды размещены в строках
memo).
procedure
TForm1.rusClick(Sender: TObject);
var
i: integer;
s:
PChar;
sss: Char;
begin
for i:=1 to length(title.text)
do
begin
s:='а';
s:=Addr(title.text[i]);
sss:= s^;
Case sss
of
'а' : titlebrowse.Text:=titlebrowse.Text+rusm.Lines[0];
'б' :
titlebrowse.Text:=titlebrowse.Text+rusm.Lines[1];
'в' :
titlebrowse.Text:=titlebrowse.Text+rusm.Lines[2];
…
else
titlebrowse.Text:=titlebrowse.Text+copy(title.text,i,1)
end;
end;
end;
Компонент для
сохранения настроек
Кто нибудь знает компонент который
записывает\читает данные\переменные в файл и шифрует их чтобы обычным
блокном не возможно было открыть. Я такой когда-то видел, но не скачал, а
сейчас не могу найти.
Как получить
список процессов?
Ну собственно сам вопрос в названии темы. Заодно
хотелось бы уточнить кое-что. Существуют ли процессы которые нельзя
отобразить в списке? Если нет, то есть ли такие, которые нельзя отобразить
стандартным методом?
1. Есть адрес устройства например
193.165.0.100.
2. По этому адресу необходимо
выплюнуть текстовое сообщение. Например "Hello world"
Задача простая 2.
1. Есть COM Port 1. 2. На данный порт
требуется так же выплюнуть текстовое сообщение. Например "Hello world". Не
знаю с какой стороны подойти. С сетью и портами пока не работал. Помогите
кто чем пожет плиз
Динамическое
создание WebBrowser
Всем здравствуйте. Извините если вопрос
покажеться глупым. Я на Делфи не писал уже года 3 и вот опять придётся всё
вспоминать.
Я делаю Браузер для интернета. Всё хорошо
работает. Но теперь меня попросили сделать закладки как в опере или в
мозиле. То есть сделать возможность работать с несколькими страницами.
Я добавил страницы. На первой страницы всё
прописано и работает вручную. Сделал возможность добавлять новые страницы
с вставленым туда WebBrowser. Но вопрос вот в чём как мне сделать чтобы
эти новые страницы так же обробатывали события, которые прописаны для
первой страницы.
Перехват событий
клавиатуры
Как правильно перехватывать нажатия на клаву во ВСЕХ
приложениях? Как перехватить нажатие, изменить значение на нужное и
послать дальше винде (переназначить)?
Как перехватить
обращения к принтеру?
Как обработать сообщение WM_LBUTTONUP, когда
курсор находится над Листбоксом? ListBox.OnMouseUp не подходит, из-за
перетаскивания некорректно работает. Для формы я делаю
так...
Юмор
программистов
Разговаpивают два пользователя
Интеpнета:
- Hy, как дела?
- Да как тебе сказать... Все ноpмально
вpоде, вот только пальцы болят.
- А с чего это вдpyг?
- Да вчеpа с
дpyзьями в чате встpетился, так всю ночь песни оpали...
***
Если чрезмерная увлеченность вашего ребенка
компьютерными играми вызывает у вас беспокойство, постарайтесь приобщить
его к более серьезным и здоровым занятиям: картам, вину, девочкам.
***
Гейтс получил Hобелевскую премию по экономике и
медицине за то, что первый додумался продавать геморрой за ТАКИЕ деньги.
***
- Недавно один мой приятель за пару секунд сервер
сломал!
- Он что, хакер?
- Нет, он му%ак!
***
Пpиходит пpогpаммист к пианистy - посмотpеть на
новый pояль. Долго ходит вокpyг, хмыкает, потом заявляет:
- Клавиатура
неyдобная - всего 84 клавиши, половина фyнкциональных, ни одна не
подписана, хотя... шифт нажимать ногой - оpигинально.
***
Пришел на работу, включил компьютер, к интернету
подключиться не смог... Пришлось работать.
***
Сидит дизайнер уровней для современной игрушки и
вот уже полночи ковыряет эффекты погоды... процесс идет весьма тяжело...
Hа улице сгущаются тучи... прячется луна... сверкает молния и доносятся
раскаты грома...
Дизайнер уровней задумывается на пару секунд, затем
бежит к окну:
- Эй! Господи, а у Тебя неплохо получилось! ... может
скинешь .wav на e-mail?
***
Султан Брунея наконец-то дождался рождения
наследника. И вот на его 5-й день рождения он сказал ему:
- Свет очей
моих! Сегодня тебе исполнилось пять лет. Проси чего хочешь!
- Папа,
хочу самолетик!
И султан купил ему "Американ Эйрлайнс".
На следующий
день рождения сынок попросил машинку. Султан купил ему "Крайслер
Корпорэйшн".
На свой седьмой день рождения мальчик попросил посмотреть
мультики. И султан купил ему всю студию Диснея.
Когда сыночку
исполнилось 8 лет, мальчик сказал:
- Папа, я так устал от всей этой
роскоши. Можно, я просто останусь дома, и просто буду смотреть в окошко на
облака и мечтать, как и все дети. Султан купил ему Майкрософт...
***
Долгое вpемя сyществовала гипотеза, что, если
миллион обезьян посадить за пишyщие машинки, то по теоpии веpоятности
чеpез некотоpое вpемя они напечатают "Войнy и миp". Тепеpь с pазвитием
Интеpнета, мы знаем, что это не так!
***
Как взломать банкомат?
Ответ: очень просто!
Берете ноутбук и кувалду. Подходите к банкомату, разбиваете его кувалдой
вдребезги, забираете деньги и уходите.
"Зачем тогда брать ноутбук?" -
спросите Вы.
Отвечаю: какой же вы хакер без ноутбука...
***
Когда нормальный человек уезжает из дому,
он одевает на жену пояс верности, а web-дизайнер ставит на неё счетчик.
p.s.
Юмор от участников Форума программистов
здесь
!
Подписчикам
рассылки
Ко мне на
e-mail
часто приходят разные письма от подписчиков с
вопросами. Я всегда рад вашим письмам. присылайте вопросы, пожелания,
замечания. Адрес для писем ведущему рассылки
admin@welikeit.ru
.
