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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
30.07.2002
09:02:20
09:06:23
31
31.07.2002
09:02:21
09:06:28
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • Календарь a1 dpa1@mail.zp.ua   (30.07.02 06:34)
    Прикольная програмка задаешь время текст и частоту повторений (хоть каждую секунду) и она пашет только проблема работает c BDEAdmin так как использует базу calen.db из standart1 и не могу никак её в tray скинуть ищу ищу нифига не получается и хочется с Excel файлом связат помогите а?(код доступа для этого типа)
    »»» Скачать: исходные тексты (16кб)
  • Звонок a1 dpa1@mail.zp.ua   (30.07.02 06:18)
    Програмка устанавливается на орпделенное время. После его наступления выдает сообещение о его истечении и точное время (возможен ввод формата +0:0:5  - т.е. = 5 секунд).
    »»» Скачать: исходные тексты (133кб)
  • Работа со складом Dmk dmk777@mail.ru   (30.07.02 04:13)
    Программа работы со складом. Продажа. Выписка документов, счетов и т.д. Возможность редактирования бланков в окне просмотра перед печатью.
    Если не будет работать печать, то зайдите в Учет, нажмите "пролистать", выберите накладную, и нажмите "на печать". Программа написана на D3, но исправлена для D6. Это моя первая программа на Delphi, поэтому просьба не ругаться. Хотя фирма, для которой я писал, уже успешно работает на ней 4.5 года. :)
    Папку с программой положите в корень любого диска. В примере записан последний путь используемой базы, он находился: "D:\BaseTest\...". В этом случае вопросов не должно быть, кроме запроса курса. Просит 1 в сутки.
    »»» Скачать: исходные тексты (792кб) демонстрационный EXE файл (775кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Перекодировка в DELPHI
»»» vladar (07.07.00 17:42)
Как, если это возможно, запихнуть в TMemo текстовый крилический DOS файл? То биш встает вопрос перекодировки DOS->Win1251.

»»» Merlin (07.07.00 18:02)
Самое просто с TMemo, это сменить ему шрифт, который настроен на DOS кодировку terminal например (тогда все будет показываться как надо, НО если скопировать из него текст в буфер обиена, то :(((
Если перекодировать, то смотри FAQ, там это точно есть, функция вроде бы называется AnsiToOEM...

»»» vladar - vladar@chat.ru (07.07.00 18:43)
Ежели сменить ему шрифт, то возникает опять проблема - а редактировать то его как? Дело в том, что у шрифта Terminal раскладка клавы вообще дурная. А в FAQ-е вроде ничего такого нету :(((

»»» vladar - vladar@chat.ru (07.07.00 18:47)
Звиняйте. Нашел. Усе получилось. Thnx :)

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-
Комментарий от: Владимир Челабчи  (S&PE Telematika)
Один из вариантов кодировщика слегка громозкий но работает быстро, изменяя таблицу можно отключить  пропуск непечатаемых символов
 
const
  ConvertSet : array[0..255] of byte =
{таблица перекодировки ASCII с альтернативной кодовой страницой 866 в
WIN 1251. Украинские символы - по кодовой таблице PRINTFXU. Непечатные
символы заменяются пробелами}
{основная таблица}
{      00  01  02  03  04  05  06  07  08  09  0A  0B  0C  0D  0E  0F
{00} ( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{10}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{20}   32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
{30}  
48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
{40}   64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
{50}   80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
{60}   96, 9!
7, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
{70}  112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
{дополнительная таблица}
{80}  192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
{90}  208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
{A0}  224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
{B0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{C0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{B0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{E0}  240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,
{F0}  168,184,178,179, 32, 32,175,191,170,186, 32,177,185, 32, 32, 32);
var
  TextString : string[250];
  TextTmpArr : array[0..250] of byte absolute TextString;
  WinString  : string[250];
  WinTmpArr 
: array[0..250] of byte absolute WinString;
 
  DosFile    : Text;
  TextFName  : string;
  TextFDir   : string;
  WinFName   : string;
procedure TMainFm.ConvertFile;
var
  I : Integer;
begin
  AssignFile(DosFile,TextFName);
  ReSet(DosFile);
  While Not(EOF(DosFile)) do
    begin
      ReadLn(DosFile,TextString);
 
      WinTmpArr[0] := TextTmpArr[0];
      for I := 1 to TextTmpArr[0] do
        begin
          WinTmpArr[I] := ConvertSet[TextTmpArr[I]];
        end;
      Memo.Lines.Add(WinString);
    end;
end;


Данный код писался на еще Borland Pascal 5.0 и учитывал то, что тип string представляет собой массив char с нулевым элементом имеющим значение динамической длины строки, в Delphi разработчики могут изменить способ хранения строки в памяти так что надо быть внимательным с данным алгоритмом возможны глюки

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

Обсуждается в конференциях   |x|
  • Как создать..?
    Как создать окно на подобии Quick Launch, чтобы пристыковавалось к рабочему столу
  • про TSplitter...
    ДОброго времени суток мастера! Не подскажите ли, как програмно передвинуть TSplitter? Thanks!
  • Шестая версия
    Как расшифровать некоторые строки формы шестой версии? Например: object N1: TMenuItem  Caption = ...
  • помогите с GetPropValue()
    Есть такой код Result:=IntToStr(Integer(GetPropValue(FComponents[0], FPropName,True))); Где точно незакосяченый ...
  • Упаковка dBAse таблиц
    УВАЖАЕМЫЕ МАСТЕРА! Есть такая (ВАМ ВСЕМ ЗНАКОМАЯ) процедурка: uses BDE,DB,DBTables procedure Pack(RegenIndexes:...
  • Как скопировать в буфер выделенный кусок
    Уважаемые мастера ! Использую popup меню , для копирования и вставки содержимого ячейки. //====копировать reciv:=(...
  • про TSplitter...
    ДОброго времени суток мастера! Не подскажите ли, как програмно передвинуть TSplitter? Thanks!
У нас большой выбор статей   |x|
Функции оболочки ( ShellApi ) Работа с корзиной в Delphi
На форуме с завидным постоянством появляются вопросы, как мне отправить или удалить файл в корзину(Recycle Bin), этой статьей я хочу раз и навсегда закрыть эту "наболевшую тему", а может и открыть. Так же это статья открывает, новый проект нашего сайта DSDN.
Но как скажете Вы ближе к телу, простите делу…
Новинки книжного рынка   |x|
Borland C++ Builder 5. Энциклопедия программиста
Borland C++ Builder 5. Энциклопедия программиста написана большим авторским коллективом под руководством Чарли Калверта и Кента Рейсдорфа и продолжает серию книг о C++ Builder, начатую Чарли Калвертом после выхода в свет первой версии этого замечательного продукта. Все без исключения авторы книги имеют не только многолетний опыт создания коммерческих продуктов при помощи систем программирования C++ Builder и Delphi, но и принимали непосредственное участие в написании большого количества книг соответствующей тематики.Книга написана опытными программистами для опытных программистов и этим она резко отличается от подавляющего большинства других книг о C++ Builder (и вообще других книг, посвященных программированию). В ней вы не найдете подробного и планомерного описания интегрированной среды разработки (IDE), перечисления всех стандартных компонентов, их свойств и методов, а также обсуждения тому подобных вопросов. Взамен этого, авторы сосредоточились на обсуждении наиболее сложных разделов программирования с использованием C++ Builder, которые обычно обходятся авторами других книг. Характерным является также и то, что в примерах программ, представленных на поставляемом вместе с книгой компакт-диске, авторы наряду с использованием стандартных возможностей библиотеки VCL, зачастую применяют и функции Windows API.
Автор: Калверт Ч.
Другие сайты о DELPHI   |x|
САМЫЙ БОЛЬШОЙ КАТАЛОГ РЕСУРСОВ ПО ПРОГРАММИРОВАНИЮ
спешите добавить туда свой ресурс
» Оценка сайта: 3
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". За какую сумму вы готовы его покупать?
»»» 80р.
»»» 100р.
»»» 120р.
»»» 150р.
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
У луны
на секунду
кошачьи усы.

Афоризмы
Надежда - хороший завтрак, но плохой ужин (Фрэнсис Бэкон)

Фраза дня
Если рыцаря ударить по правой щеке, то он упадет на левый бок.

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

И на закуску коротенький анекдот
Встречаются как то два мужика...(1) , (2)
(1) Представляешь прихожу домой открываю шкаф, а там мужик голый!
(2) Hичего удивительного...
(1)Как ничего???? Я же не женат!

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное