Создаем первое приложение в Delphi. Блокнот v. 1Итак, приступим к разработке приложений в Delphi. Первый урок начнем с самого простого, но на этот раз будет не форма с надписью «Hello, World!», а простейший блокнот, способный загрузить текстовый файл, отредактировать его и сохранить.

Уроков будет несколько. С каждым уроком мы будет что- то добавлять, убирать и расширять функционал нашего блокнота, пока не получим в результате что- то похожее на стандартный блокнот в системе Windows. Первое с чего мы начнем это с проектирования интерфейса. Построить стандартный интерфейс приложения в среде Delphi очень легко, достаточно хорошо владеть мышкой : ) Создание элементов интерфейса заключается в перетягивании и расстановке визуальных объектов. Для нашего первого блокнота понадобится: Компонент Button (кнопка)Компонент Memo (поле для ввода и редактирования текста)Приступим! Запускаем среду Delphi.

Bred — бесплатный текстовый редактор для Windows с закрытым исходным кодом и сравнительно небольшим набором функций. Позиционируется как более совершенная и удобная замена стандартным редакторам Блокнот и. Windows 9x/NT4 и были написаны на чистом Windows API в среде Delphi .

Delphi Sources - сайт с исходниками и документацией по Delphi. Що надо под кнопкой прописать Delphi для начинающих. Главная » Delphi » Создаем первое приложение в Delphi. С каждым уроком мы будет что-то добавлять, убирать и расширять функционал нашего блокнота, пока не получим в результате что-то похожее на стандартный блокнот в системе Windows.

После запуска, у нас уже будет открыта форма, готовая к творению : ). Давайте сразу сохраним наш проект.

При проектировании и кодинге, не забывайте чаще нажимать кнопку «Сохранить», особенно в моменты компиляции, иначе, в случае ошибки, рискуете потерять несохраненную часть проекта. Жмем File- > Save Project As. Теперь нам необходимо построить форму.

Для этого на панели компонентов, во вкладке «Standart» выберите объект «Memo»И щелкнув по свободной области формы, удерживая ЛКМ, нарисуйте текстовое поле следующим образом: Также добавьте объекты Button. Приблизительно вот так: Вот и все проектирование. Конечно это примитив, но таким образом строится большинство прикладных приложений. Инструкция По Оплате Больничных Листов подробнее.

Давайте зададим нашей форме имя в строке заголовка окна. Назовем ее «My. Notepad v. Для этого выделите форму, щелкнув по ней мышкой и в окне «Object Inspector», найдите свойство Caption и вместо «Form. My. Notepad v. 1»: Теперь перейдем к кнопкам. Нам необходимо им так же дать смысловые метки «Открыть» и «Сохранить», а так же задать имя, более понятное, нежели Button.

Button. 2. Как задать свойство Caption вы уже знаете, имя же задается в свойстве Name: Присвоим имена для: Button. Open. But. Button. Save. But. И последний штрих, текстовое поле Memo. В поле по умолчанию отображается его имя: Избавиться от него можно следующим образом, находим в «Object Inspector» свойство «Lines»Жмем по «.

Для того чтобы это сделать необходимо щелкнуть два раза по кнопке. Кликаем по кнопке «Открыть», после чего откроется окно редактора кода со следующим содержимым: procedure TForm.

Open. But. Click(Sender: TObject); beginend; Это процедура на событие Click (нажатие кнопки). Нам необходимо между ключевыми словами begin и end  прописать следующую строчку - txt.

Lines. Load. From. File(Extract. File. Path(application. Exe. Name)+('\test. TForm. 1. Open. But. Click(Sender: TObject); begintxt.

Lines. Load. From. File(Extract. File. Path(application. Exe. Name)+('\test. Lines – свойство которое содержит текстовые строки (мы его еще чистили от Memo.

Load. From. File – процедура загрузки строк из текстового файла; Extract. File. Path(application. Exe. Name) – функция возвращает путь к каталогу из которого запущено наше приложение; ('\test. Теперь пропишем код для кнопки «Сохранить». TForm. 1. Save. But. Click(Sender: TObject); begintxt. Lines. Save. To. File(Extract.

File. Path(application. Exe. Name)+('\test. В этом случае отличие в процедуре Save.

To. File, которая сохраняет содержимое Lines в файл test. Полный листинг модуля ex. Notepad выглядит так: unit ex.

Notepad; interfaceuses. Windows, Messages, Sys. Utils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Std. Ctrls; type. TForm. TForm)txt: TMemo; Open.

But: TButton; Save. But: TButton; procedure Open. But. Click(Sender: TObject);    procedure Save.

But. Click(Sender: TObject);  private . После чего, в папке с проектом появится файл test. При следующем запуске приложения жмем «Открыть». Продолжение следует.