Сергей Парижский - Delphi. Учимся на примерах

Тут можно читать онлайн Сергей Парижский - Delphi. Учимся на примерах - бесплатно полную версию книги (целиком) без сокращений. Жанр: comp-programming, издательство МК-Пресс, год 2005. Здесь Вы можете читать полную версию (весь текст) онлайн без регистрации и SMS на сайте лучшей интернет библиотеки ЛибКинг или прочесть краткое содержание (суть), предисловие и аннотацию. Так же сможете купить и скачать торрент в электронном формате fb2, найти и слушать аудиокнигу на русском языке или узнать сколько частей в серии и всего страниц в публикации. Читателям доступно смотреть обложку, картинки, описание и отзывы (комментарии) о произведении.
  • Название:
    Delphi. Учимся на примерах
  • Автор:
  • Жанр:
  • Издательство:
    МК-Пресс
  • Год:
    2005
  • Город:
    Киев
  • ISBN:
    ISBN 966-8806-02-6
  • Рейтинг:
    4/5. Голосов: 81
  • Избранное:
    Добавить в избранное
  • Отзывы:
  • Ваша оценка:
    • 80
    • 1
    • 2
    • 3
    • 4
    • 5

Сергей Парижский - Delphi. Учимся на примерах краткое содержание

Delphi. Учимся на примерах - описание и краткое содержание, автор Сергей Парижский, читайте бесплатно онлайн на сайте электронной библиотеки LibKing.Ru

Данная книга — продолжение предыдущей книги автора, "Delphi. Только практика". Также как и в "Delphi. Только практика", в данном издании подробно рассмотрены программы для сетей, различные шуточные программы, простые игрушки, некоторые полезные приложения, разработка приложений в стиле Windows XP. В частности, здесь можно найти такие примеры как бесплатная отправка SMS, FTP-клиент, простое шифрование, CGI-сценарии и многое другое. Описаны методы работы с системным реестром Windows и INI-файлами, а также некоторые важные аспекты программирования на системном уровне с применением функций Windows API. Для облегчения понимания программ каждый пример содержит комментарии сложных строк кода.

Книга ориентирована как на тех, кто уже имеет опыт создания приложений в Delphi, так и на начинающих программистов. Для начинающих пользователей Delphi в конце книги добавлено приложение с описанием синтаксиса языка программирования Object Pascal.

Delphi. Учимся на примерах - читать онлайн бесплатно полную версию (весь текст целиком)

Delphi. Учимся на примерах - читать книгу онлайн бесплатно, автор Сергей Парижский
Тёмная тема
Сбросить

Интервал:

Закладка:

Сделать

begin

//начинаем обзор с текущей папки

Open1.InitialDir:= GetCurrentDir;

if Open1.Execute then Edit1.Text:= Open1.FileName//открываем диалоговое окно выбора файла

else ShowMessage('Файл не выбран!');

end;

Начинаем обзор с каталога, в котором в данный момент находится программа. Затем следует стандартная проверка: если файл не был выбран, то сообщаем об этом пользователю, иначе отображаем путь к файлу в поле Edit1.

При нажатии кнопки Статистикавыполняется подсчет и отображение данных о выбранном файле:

procedure TForm1.Button2Click(Sender: TObject);

var

f: file of byte;//Переменная для работы с файлом

str: byte;//Содержит считанный байт

oldstr, symbol, word, line, space: Integer;//Стат. данные

begin

symbol:= 0;//обнуляем предыдущие результаты

word:= 0;

space:= 0;

line:= 0;

if FileExists(Edit1.Text)//проверяем, существует ли файл

then begin

AssignFile(f, Edit1.Text);//связываем файл с переменной f

reset(f);//открываем файл на чтение

while not eof(f) do

begin//читаем файл до достижения конца файла

oldstr:= str;

Read(f, str); //считываем символ в переменную str

if ((str <> 32) and (str <> 13) and (str <> 10)) then symbol:= symbol + 1; {пополняем количество символов, если он не является переводом строки, кодом новой строки или пробелом}

//если считан пробел, пополним счетчик пробелов

if str = 32 then space:= space + 1;

if str = 13 then line:= line + 1;//счетчик строк

if ((str = 32) or (str = 13) or (str = 10)) then

if ((oldstr<>32) and (oldstr<>10) and (oldstr<>13)) then word:= word + 1;//счетчик слов

end;

CloseFile(f);//закрываем файл

end

else ShowMessage('Ошибка: Файл не найден!');{если файл не найден, то выводим сообщение об ошибке}

//Выводим всю полученную информацию о файле

symbols.Caption:= IntToStr(symbol);

spaces.Caption:= IntToStr(space);

lines.Caption:= IntToStr(line);

words.Caption := IntToStr(word);

end;

Сначала мы проверяем, существует ли файл, статистику которого будем определять. Если все нормально, то начинаем считывать из этого файла по одному символу и проверять по коду, что это за символ. Если код символа равен 32, то это — пробел, и мы пополняем счетчик пробелов. Если код считанного символа равен 13, то это — символ перевода строки, и мы пополняем счетчик строк. Если считанный символ не является пробелом или символом перевода строки, то это — обычный символ и следует пополнить счетчик символов. Для того чтобы подсчитать количество слов, мы выполняем следующую проверку: если считан пробел или символ перевода строки, то проверяем, является ли предыдущий символ пробелом или символом перевода строки, и если это так, пополняем счетчик слов.

Результат выполнения программы представлен на рис. 3.2.

Рис. 3.2. Программа Статистика в действии

Полный исходный код модуля

Код модуля программы Статистикапредставлен в листинге 3.1.

Листинг 3.1. Модуль программы Статистика

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

words: TLabel;

symbols: TLabel;

spaces: TLabel;

lines: TLabel;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Open1: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonlClick(Sender: TObject); begin

//начинаем обзор с текущей папки

Open1.InitialDir:= GetCurrentDir;

if Open1.Execute // открываем диалоговое окно выбора файла

then Edit1.Text:= Open1.FileName

else ShowMessage('Файл не выбран!');

end;

procedure TForm1.Button2Click(Sender: TObject);

var

f: file of byte; //Переменная для работы с файлом

str: byte; //Содержит считанный байт

oldstr, symbol, word, line, space: Integer;

begin

symbol:= 0; //обнуляем предыдущие результаты

word:= 0;

space:= 0;

line:= 0;

if FileExists(Edit1.Text) //проверяем, существует ли файл

then begin

AssignFile(f,Edit1.Text) ; //связываем файл с переменной f

reset(f); //открываем файл на чтение

while not eof(f) do

begin //читаем файл до достижения конца файла

oldstr:= str;

Read(f, str); //считываем символ в переменную str

if ((str <> 32) and (str <> 13) and (str <> 10))

then symbol := symbol + 1; {пополняем количество символов, если он не является переводом строки, кодом новой строки или пробелом}

//если считан пробел, пополним счетчик пробелов

if str = 32 then space:= space + 1;

if str = 13 then line:= line + 1; //счетчик строк

if ((str = 32) or (str = 13) or (str = 10)) then

if ((oldstr<>32) and (oldstr<>10) and (oldstr<>13))

then word: = word + 1; //счетчик слов

end;

CloseFile(f); //закрываем файл

end

else ShowMessage('Ошибка: Файл не найден !'); {если файл не найден, то выводим сообщение об ошибке}

symbols.caption:= IntToStr(symbol); //Выводим всю

spaces.caption:= IntToStr(space); //полученную

lines.caption:=IntToStr(line); //информацию о файле

words.caption:= IntToStr(word);

end;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter 03.

Глава 4

Снимок экрана

Постановка задачи

Разработать программу, которая будет снимать и сохранять копию экрана.

Разработка формы

Создайте новый проект Delphi и измените заголовок формы (свойство Caption) на Screenshot. Чтобы пользователь не мог изменять размеры окна при работе с программой, следует присвоить свойству BorderStyle значение bsDialog. Для удобства создания копий экрана окно программы должно быть всегда размещено поверх остальных окон. Для этого присвоим свойству FormStyle значение fsStayOnTop. Мы можем себе это позволить: на самой копии экрана окно нашей программы отображено не будет, поскольку в момент создания копии оно будет временно сокрыто.

Для сохранения копии экрана нам понадобится компонент SaveDialog категории Dialogs. Разместите этот компонент на форме. Поскольку мы заранее знаем, что будем сохранять рисунок, то свойству SaveDialog1.Filter присвойте значение Рисунок|*.bmp|Все файлы|*.*. При сохранении файла у пользователя будет выбор: сохранять файл как рисунок (*.bmp) или как любой другой файл (*.*).

Читать дальше
Тёмная тема
Сбросить

Интервал:

Закладка:

Сделать


Сергей Парижский читать все книги автора по порядку

Сергей Парижский - все книги автора в одном месте читать по порядку полные версии на сайте онлайн библиотеки LibKing.




Delphi. Учимся на примерах отзывы


Отзывы читателей о книге Delphi. Учимся на примерах, автор: Сергей Парижский. Читайте комментарии и мнения людей о произведении.


Понравилась книга? Поделитесь впечатлениями - оставьте Ваш отзыв или расскажите друзьям

Напишите свой комментарий
x