Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 19.11.02 09:04

Кое-что из нашей кладовки   |x|
  • FastReport 2.46 BoxTer   (19.11.02 08:04)
    Полностью рабочая версия + недостающий файлик.
    Факи и доки на русском - на сайте fastreport.ru
    "Как ставить?" лежит в архиве...
    Качайте и наслаждайтесь лучшим генератором отчетов...
    »»» Скачать: исходные тексты
  • Компонент Label с возможностью поворота текста на произвольный угол. Юрий К konstantinov@box.vsi.ru   (18.11.02 23:04)
    Совсем простенький компонент Label с возможностью поворота текста на произвольный угол (Свойство Rotate - значение угла поворота в градусах).
    К сожалению, работает только для TruType шрифтов и пока не работает свойство Wordwrap - "перенос по словам". Очень хотельсь бы знать мнение мастеров о том корректно ли все написанно, где и какие ошибки я допустил,
    где можно было использовать более оптимальный код, методы или типы данных. С уважением, Константинов Юрий.
    »»» Скачать: исходные тексты (1кб)
  • Huffman for Delphi Poirot poirot@rol.ru   (18.11.02 21:29)
    Реализация алгоритма архивации Хаффмана. Архив содержит модуль и его использование в DLL. Хенп прилагается. перед использование рекомендуется прочитать КОПИРАЙТ в хелпе.
    »»» Скачать: исходные тексты (69кб)
Лучшее из нашего FAQ   |x|
Преобразование текста OEM у Ansi
Эта версия работает под любым Delphi.
(Начиная с Delphi 2, это можно записать короче с использованием AnsiToOem и OemToAnsi.)
Здесь все просто.




function ConvertAnsiToOem(const S : string) : string;
{ ConvertAnsiToOem translates a string into the OEM-defined character set }
{$IFNDEF WIN32}
var
Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
SetLength(Result, Length(S));
if Length(Result) > 0 then
AnsiToOem(PChar(S), PChar(Result));
{$ELSE}
if Length(Result) > 0 then
begin
AnsiToOem(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
{$ENDIF}
end; { ConvertAnsiToOem }

function ConvertOemToAnsi(const S : string) : string;
{ ConvertOemToAnsi translates a string from the OEM-defined
character set into either an ANSI or a wide-charac! ter string }
{$IFNDEF WIN32}
var
Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
SetLength(Result, Length(S));
if Length(Result) > 0 then
OemToAnsi(PChar(S), PChar(Result));
{$ELSE}
if Length(Result) > 0 then
begin
OemToAnsi(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
{$ENDIF}
end; { ConvertOemToAnsi }

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Delphi 6: первое знакомство
Ну вот наконец-то, в руках коробочка с диском и бумажкой, на которой кто-то старательно вывел фломастером Delphi 6. Из коробочки вынимается диск, вставляется в cd-rom и...
Новинки книжного рынка   |x|
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Другие сайты о DELPHI   |x|
Virtual Reality OnLine
Множество разных программ (исходников), компонентов (в том числе RxLib, самый крутой пакеи компонентов для Дельфи), форум, ежемесячные статьи.

» Оценка сайта: 4
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Сентябрьских яблок
Тонкая кислинка,
И губ твоих...

Афоризмы
Когда ищут выгоду, забывают об искренности....

Фраза дня
Человеку свойственно ошибаться. И он пользуется этим свойством часто и с удовольствием.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Миннесоте (США) вам грозит попасть в тюрьму за то, что вы спите голым.
В Аляске (США) запрещается (добавим -и не рекомендуется) будить медведей, чтобы их сфотографировать, а также, выбрасывать живых лосей из самолета.

И на закуску коротенький анекдот
2 программера в дупель пьяные из кабака выходят, один другому говорит:
- Ну, что, включай автопилот.
- А у меня его нету.
- Ну, тогда включай эмулятор автопилота.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=34579235


На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное