procedure DBExceptionTranslate(E: EDBEngineError); function OriginalMessage: String; var I: Integer; DBErr: TDBError; S: String; begin Result := ''; for I := 0 to E.ErrorCount - 1 do begin DBErr := E.Errors[I]; case DBErr.NativeError of -836: { Intebase exception } begin S := DBErr.Message; Result := #13#10 + Copy(S, Pos(#10, S) + 1, Length(S)); Exit; end; end; S := Trim(DBErr.Message); if S <> '' then Result := Result + #13#10 + S; end; end; begin case E.Errors[0].ErrorCode
of $2204: E.Message := LoadStr(SKeyDeleted); $271E,$2734:!
E.Message := LoadStr(SInvalidUserName); $2815: E.Message := LoadStr(SDeadlock); $2601: E.Message := LoadStr(SKeyViol); $2604: E.Message := LoadStr(SFKViolation) + OriginalMessage; elsebegin E.Message := Format(LoadStr(SErrorCodeFmt), [E.Errors[0].ErrorCode]) + OriginalMessage; end; end; end;
>== Режем два ==<
Vladimir Gaitanoff vg@divo.ru www.tsinet.ru/~vg (2:5017/5.69)
«DELPHI в примерах для начинающих» - Пособие по написанию компонентов на Дельфи
когда я очень хотел написать свой первый компонент, я прочитал две книги, и у меня ничего интересного собственно не вышло. Потом я прочитал еще одну книгу (в ней хотя бы пример рабочий был), вроде разобрался. Но там был разобран такой простой компонент, что все более сложное мне приходилось делать самому, иногда методом тыка, иногда сидел разбирался и так далее. Результат - разобрался, чего и вам желаю и надеюсь помочь этим пособием...
Delphi: специальный справочник
В книге содержится обширный справочный материал по основным элементам языка, включающий в себя наиболее употребительные функции, классы и объекты. Последовательно и подробно изложен процесс создания баз данных, Windows-приложений и динамических библиотек. Приложения с описанием различных кодов ошибок выполнения программ делает книгу полезной не только начинающим программистам, но и пользователям, активно работающим с Delphi
Автор: Б. Карпов
Delphi по-русски. On-line справочник Delphi 4 5 6 On-Line справочник по процедурам Delphi 4,5,6, а так же справочник по WinAPI. Есть FAQ по Delphi и WinAPI. Довольно полезная ссылка.
» Оценка сайта: 5
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Твой номер набрав, Боюсь услышать голос. Вечно занято...
Афоризмы
Самые благородные поступки совершаются, как правило, по глупости....
Фраза дня
Программист ошибается дважды: первый раз - при рождении, а второй раз - при выборе профессии.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Северной Каролине (США) останавливающиеся в отелях пары должны жить в номерах с двумя кроватями, поставленными на растоянии не меньше полуметра друг от друга. Заниматься сексом на полу между кроватями строжайше запрещено.
В Дании вы можете ездить на машине только в том случае, если перед ней двигается кто нибудь с флажком, чтобы предупредить конные повозки о приближении автомобиля.
И на закуску коротенький анекдот
Американский "Боинг" и российское КБ "Сухой" объявили о совместном создании самолета "Бухой 747".