- •Символьный и строковой типы.
- •Операции над символами и строками
- •Преобразование строк
- •Строки в Delphi
- •Множества и операции с ними
- •Модули в Delphi
- •Событийно – ориентированное программирование
- •Объективно-ориентирование программирование
- •Классы и объекты
- •Объявление класса
- •Абстрактные методы
- •Перегружаемые методы
- •Структура проекта Делфи
- •Визуальное программирование
- •Реакция на события.
- •Компоненты Делфи
- •Фокус ввода
- •Общие свойства объектов
- •Модуль Math
- •Класс tLabel
- •Панели и их назначение
- •Обработка исключительных ситуаций
- •Класс tExeption
- •Создание нового класса исключения
- •Компоненты страницы Dialogs
- •Компоненты tOpenDilog, tSaveDialog
- •Графика в Делфи
- •Класс tCanvas
- •Метод класса tCanvas
- •Класс Tpen
- •Класс tFont
- •Класс tBrush
- •Класс tGraphics Tpicture
- •Класс TpaintBox
- •Класс tBitMap
- •Методы BitMap
- •Класс tImage
- •Подрограмма формирования преобразования строк.
- •Класс tForm
- •Печать из программы
- •Работа с файлами
- •Работа с файловой системой Windows.
Компоненты tOpenDilog, tSaveDialog
TOpenDilog предназначен для выбора файла с дальнейшем открытия.
Property Filename:String;
Программа использует это свойство для доступа к файлу с целью читать из него данные или записывать в него (TSaveDialog). Если указать не существующий файл, то при записи в него это не имеет значение (будет создан). Если по OpenDialog не существующий файл использовать, то приведет к аварийному закрытию. Во избежание такой ситуации можно осуществлять проверку файла глобальной функций FileExists и обрабатывать ситуацию.
If (OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName)
Property Filter:String;
property FileName:String;
Для отбора файлов показываемое в диалоговом окне. Свойство можно установить статически и динамически. Статически через инспектор объектов или написать в программе динамически. Фильтры задается одной длинной строкой между фильтром с разделителем вертикальная черта.
OpenDialog1.Feter:=’Текстовые файлы |*.txt|Файлы pas| *.pas|’;
Можно установить начальный каталог.
Property InitialDil:string;
OpenDialog1.InitialDir:=’s:\kkfm’; Можно устанавливать рассмотренные имена файла по умолчанию
Property DefaltExt:strin[3];
Property Options; TOpenOptions;
Type TopenOptions=setofTOpenOptiong;
TopenOptions(ofReadOnly,OfOverWritePrompt, ofNoChangeDiz);
Устанавливает переключатель только для чтения. Требует согласие пользователя для записи в существующий файл
Запрещает смену каталога
Property FilterIndex:integer; Номер текущей маски начиная с 1
Метод Function GetStaticRect.TRect;
Возвращает координаты прямоугольной области диалогового окна который зарезервирован разработчиком.
Пример. Объект openDialog Окну присвоим заголовок выбор файла, а в списке отобразить все файлы с расширением pas
Function GetStaticRect:TRect;
TForm1.Bitton1Click(Sender:TObject);
var f:textfile; s:string;
begin
OpenDialog1.title:=’выбор файла’;
OpenDialog1.Filter:=’*.txt|Файлы pas|*.pas’;
OpenDialog1.FilterIndex:=2;
If (OpenDialog1.Execute) and (FileExists(openDialog1.Filename)) then
begin AssingFile (f,OpenDilog1.Filename);
Reset(f);
while Not EOF(f) do begin
readln(f,s);
Memo1.Lines.Add(s);
end;
CloseFile(f);
end; end.
Компоненты TOpenPictureDilog Окно открытия рисунка TSavePictureDialog сохранение рисунка
Отличие: Для рисунков предусматривается стандартные фильтры для выбора графических файлов.
.bmp .ico .wmf .emf
В окна диалогах включены панели для предосмотра выбираемого файла.
Компонент Tfontdilog вызывает окно выбора шрифта.
TFondDevice=(fdScreen;fdrprinter;fdBoth);
PropertyDevice.TFondDialogDevice;
propertyFont:Tfont; Фиксируется выбранный пользователем шрифт
If FontDilog1.Execute then halel1.Font.Assign(FontDilog1.Font);
habel1.Caption:=’Пример’;
Для выбора цвета TColorDialogs создает и обслуживает стандартное диалоговое окно выбора цвета
TShape
TColorDialog создает и обслуживает стандартное окно выбора цвета.
if colorDialog1.Execute then shae1.Color:=ColorDialog1.color;
Shape1.Color:=ColorDialof1.color;
TprintDialog устанавливает печать
TPrinterSetupDialog настройки принтера.
TFindDialog поиск фрагмента текста
TreplaceDialog поиск и замена фрагмента текста