Разработка информационного ресурса "турфирма" Delphi

Родовым является тип String, который имеет разный смысл в зависимости от директивы компилятора. Если включена директива {$H+} (она включена по умолчанию), то String интерпретируется компилятором как тип Ansi String – длинная строка с нулевым символом в конце. Если же включена директива {$H-}, то String интерпретируется компилятором как тип Short String – короткая строка без нулевого символа в конце. Если в объявлении типа после ключевого слова String следует число символов в квадратных скобках (например, String[4]), то независимо от директив компилятора, тип трактуется как строка без нулевого символа в конце с указанным числом символов. Стандартная функция LENGTH возвращает число символов в строке, переданной ей в качестве параметра. Процедура SetLength устанавливает длину строки.

Процедуры и функции  обработки строк:

 

FloadToStr (Value: Extended): string Преобразует Value в строку с точностью 15 цифр.

IntToStr (Value: integer): string Возвращает строку, содержащую преобразованное целое значение Value.

StrToFload (const S: string): Extended Преобразует строку S в действительное число.

StrToInt (const S: string): Integer Преобразует строку S в целое число.

Val (S; var V; var Code: Integer) Преобразует строку S в целое  число Code.

 

2) Функции массива:

 

Функция	Описание
Length	Число элементов массива
High	Наибольшее значение индекса
Low	Наименьшее значение индекса

 

3) Функции для числовых массивов:

 

Функция	Тип аргумента	Тип результата	Описание
MinIntValue	Array of integer	Integer	Возвращает минимальное  значение элемента массива целых  чисел
MaxInValue	Array of integer	Integer	Возвращает максимальное значение элемента массива целых  чисел
MinValue	Array of double	Double	Возвращает минимальное  значение элемента числового массива
MaxValue	Array of double	Double	Возвращает максимальное значение элемента числового массива
Sum	Array of double	Extended	Возвращает сумму элементов  массива

 

Эти функции определены в  модуле math и этот модуль должен подключаться оператором USES, чтобы компилятор их понимал.

4) Процедуры и функции вызова диалоговых окон:

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

А) простейшей из таких процедур является ShowMessage, отображающая окно сообщения с кнопкой ОК. Она имеет вид:

Procedure ShowMessage (const Msg: string);

Текст сообщения задается параметром Msg. Заголовок окна совпадает с именем выполняемого файла приложения.

Б) Похожая процедура ShowMessageFmt, позволяет выводить в аналогичное окно форматированное сообщение. Эта процедура имеет вид:

Procedure ShowMessageFmt (const Msg: string; Params array of const);

Параметр Msg в этой процедуре задает строку описания формата, а параметр Params задает массив параметров, форматируемых строкой Msg.

Приведем примеры использования  этих процедур:

ShowMessage (» Работа приложения успешно завершена’);

ShowMessageFmt (» Задано% d параметров из % d ‘, [N1, N2]);

Последний оператор при N1=5, N2=7 выдаст сообщение с текстом: «Задано 5 параметров из 7».

В) Следующая функция отображает окно, в котором задается вопрос и анализируется полученный ответ – это функция MessageDlg. Она объявляется следующим образом:

Function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;

Вызов этой функции отображает диалоговое окно и ожидает ответа пользователя. Сообщение в окне задается параметром функции Msg.

Вид окна задается параметром AType. Возможные значения параметра:

 

Значение	Описание
mtConfirmation	Окно подтверждения, содержащее зеленый вопросительный знак.
mtInformation	Информационное окно.
mtError	Окно ошибок, содержащее красный стоп-сигнал.
mtWarning	Окно замечаний.
mtCustom	Заказное окно без рисунка. Заголовок соответствует имени  выполняемого файла.

 

Параметр AButtons определяет, какие кнопки будут присутствовать в окне. Возможные значения видов кнопок:

 

Значения	Описания
mbYes	Кнопка с надписью ДА
mbNo	Кнопка с надписью НЕТ
mbOK	Кнопка с надписью ОК

 

Приведем пример использования  функции MessageDlg, иллюстрирующий диалог при окончании работы приложения:

 

If MessageDlg (» Действительно хотите закончить приложение? ‘, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin

MessageDlg (» Работа приложения закончена ‘, mtInformation, [mbOk], 0);

Close;

End;

 

Первый вызов функции MessageDlg приводит к отображению окна типа mtConfirmation с вопросом о завершении приложения. Если пользователь нажимает кнопку Yes, то выводится второе окно типа mtInformation с сообщением о завершении работы приложения.

 

Заключение

 

В первую очередь Delphi предназначен для профессионалов-разработчиков корпоративных информационных систем. Может быть, здесь следует пояснить, что конкретно имеется в виду. Не секрет, что некоторые удачные продукты, предназначенные для скоростной разработки приложений (RAD – rapid application development) прекрасно работают при изготовлении достаточно простых приложений, однако, разработчик сталкивается с непредвиденными сложностями, когда пытается сделать что-то действительно сложное. Бывает, что в продукте вскрываются присущие ему ограничения только по прошествии некоторого времени.

Delphi такие ограничения не присущи. Хорошее доказательство тому – это тот факт, что сам Delphi разработан на Delphi. Можете делать выводы. Однако Delphi предназначен не только для программистов-профессионалов. Я читал в электронной конференции совершенно неожиданные для меня письма, где учителя, врачи, преподаватели ВУЗов, бизнесмены, все те, кто используют компьютер с чисто прикладной целью, рассказывали о том, что приобрели Delphi for Windows для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны. В большинстве случаев им это удается. Поразительный факт – журнал Visual Basic Magazine присудил свою премию Delphi for Windows.

Руководители предприятий, планирующие выделение средств  на приобретение программных продуктов, должны быть уверены в том, что  планируемые инвестиции окупятся. Поэтому  одним из оцениваемых факторов должен быть вопрос – а легко ли найти  специалиста по Delphi и сколько будет стоить его обучение, сколько времени специалист затратит на овладение продуктом. Ответ здесь получить весьма просто – любой программист на паскале способен практически сразу профессионально освоить Delphi. Специалисту, ранее использовавшему другие программные продукты, придется труднее, однако самое первое работающее приложение он сможет написать в течение первого же часа работы на Delphi. И, конечно же, открытая технология Delphi является мощным гарантом того, что инвестиции, сделанные в Delphi, будут сохранены в течение многих лет.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список литературы

 

Архангельский А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi. – М.: ООО «Бином-Пресс», 2006. – 1152 с.: ил.

Архангельский А.Я. Программирование в Delphi. – М.: ООО «Бином-Пресс», 2004. – 1152 с.: ил.

Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. – СПб: БХВ-Петербург, 2003. – 288 с.: ил.