Листинг программы - Приемы программирования в Delphi
Form1:
Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Vcl. Imaging. jpeg, Vcl. ExtCtrls, Registry;
Type
TFormGeneral = class(TForm)
EditLogin: TEdit;
EditPass: TEdit;
ButtonEnter: TButton;
ButtonRigistr: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Procedure ButtonRigistrClick(Sender: TObject);
Procedure ButtonEnterClick(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
FormGeneral: TFormGeneral;
Implementation
Uses Unit2;
{$R *.dfm}
Procedure TFormGeneral. ButtonEnterClick(Sender: TObject);
Var SaveTxt:TStringList;
IterIntCount:integer;
LogAndPass:string;
Begin
SaveTxt:=TStringList. Create;
SaveTxt. LoadFromFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');
LogAndPass:=EditLogin. Text+' '+EditPass. Text;
For iterIntCount:=0 to SaveTxt. Count -1 do
Begin
If LogAndPass = SaveTxt[iterIntCount] then
Begin
Label3.Caption:= 'Доступ разрешен!';
End
Else
Label3.Caption:= 'Доступ запрещен! Зарегистрируйтесь';
End;
End;
Procedure TFormGeneral. ButtonRigistrClick(Sender: TObject);
Begin
FormRigstr. ShowModal;
End;
End.
Form2:
Unit Unit2;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;
Type
TFormRigstr = class(TForm)
ButtonSave: TButton;
EditNewLogin: TEdit;
EditNewPassword: TEdit;
Label1: TLabel;
Label2: TLabel;
Procedure ButtonSaveClick(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
FormRigstr: TFormRigstr;
Implementation
{$R *.dfm}
Procedure TFormRigstr. ButtonSaveClick(Sender: TObject);
Var SaveTxt:TStringList;
LoginUsr, PassUsr:string;
Begin
SaveTxt:=TStringList. Create;
SaveTxt. LoadFromFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');
If (EditNewLogin. Text <> '') and (EditNewPassword. Text <> '') then
Begin
LoginUsr:=Trim(EditNewLogin. Text);
PassUsr:=Trim(EditNewPassword. Text);
SaveTxt. Add(LoginUsr+' '+PassUsr);
SaveTxt. SaveToFile(ExtractFilePath(Application. ExeName)+'RegEdit. txt');
End;
End;
End.
Похожие статьи
-
Первая программа - движение слева направо Просмотрите код Unit1.pas для нашего примера: Unit Unit1; Interface Uses Windows, Messages, SysUtils, Variants,...
-
СООБЩЕНИЯ ОПЕРАТОРУ, Сообщение о программе, Листинг программы - Руководство оператора
Сообщение о программе Программа "AdressBook. ехе" выдает сообщение о программе, при выборе в главном меню пункта "О программе" во вкладке "Помощь"...
-
Интегрированная среда разработки Delphi - Приемы программирования в Delphi
Delphi - это потомок среды программирования TurboPascal. Название среды произошло от названия города в Древней Греции, где находился знаменитый...
-
Namespace Sklad { Partial class Form1 { /// <summary> /// Required designer variable. /// </summary> Private System. ComponentModel. IContainer...
-
Код программы - Объектно-ориентированное, визуальное программирование в Delphi на уроках
Рассмотрим код процедуры Click для кнопки " Вычислить ": Procedure TForm1.Button1Click(Sender: TObject); Var X : real; { вещественный тип переменной }...
-
РАБОТА ПРОГРАММЫ, ЛИСТИНГ И ТЕСТИРОВАНИЕ - Основы программирования в операционной системе Unix
После входа в операционную систему Mandriva Mageia нужно перейти в консоль, затем в директорию с программой - командой "cd KR". Чтобы просмотреть список...
-
Синтаксис объявления класса в языке С++ имеет следующий вид: Class<имя класса>: <спецификатор доступа><имя базового класса> { Элементы класса...
-
Таблица сопротивлений некоторых термометров сопротивления Температурав °C Pt100 Pt1000 Typ: 404 Typ: 501 -50 80, 31 803, 1 -40 84, 27 842, 7 -30 88, 22...
-
Процедура Click для кнопки ОПРЕДЕЛИТЬ с дополнительным заданием Procedure TForm1.Button1Click(Sender: TObject); Begin A := strtofloat(edit1.Text); {...
-
Введение - Приемы программирования в Delphi
Данный проект был разработан в среде Delphi. Среди множества языков, является наиболее универсальным и легко изучаемым языком. При этом его удобно...
-
Система AutoCAD при создании файлов обмена описаниями чертежей типа DXF включает в файл всю относящуюся к чертежу формацию. Это необходимо для полного...
-
Вопросы для самоконтроля - Объектно-ориентированное, визуальное программирование в Delphi на уроках
1. Какую новую конструкцию языка Pascal Вы узнали? 2. Почему в первом цикле переменная A начинается с 1, а переменные B и C с ноля. 3. Какие переменные и...
-
Рекурсивная программа построения снежинки Написать программу, строящую на экране изображение: Изображение строится по следующему правилу: строится...
-
Протокол проверки программы - Программирование алгоритмов линейных и циклических структур
1. Введем размерность массива N = 6 2. Заполним элементы массива X(i) следующими значениями: 12, 1.34, 8, 10, 17.5, 30 3. Получим следующие результаты:...
-
Выбор языка программирования Язык С++ является в настоящее время наиболее распространенным и перспективным языком промышленного программирования. Он...
-
Правила записи программы на языке Си - Основы программирования
Как указывалось выше, программа перед обработкой компьютером должна быть помещена в файл на диске. Обычно этот файл имеет расширение <.c>. Рассмотрим...
-
Приведенный ниже программа позволяет работать с несколькими типами датчиков, так же в код встроен фильтр для более точного измерения на границе диапазона...
-
- рисуем графический примитив, например, эллипс у рыбки; - накладываем сверху на эллипс другой графический объект так, чтобы он закрывал часть эллипса; -...
-
СХЕМА АЛГОРИТМА РАБОТЫ ПРОГРАММЫ, ЗАКЛЮЧЕНИЕ - Основы программирования в операционной системе Unix
Блок-схема главной функции программы (main) изображена на рисунке 4. Рисунок 4 - блок-схема main. cpp Блок-схема модуля (Math. cpp) изображена на рисунке...
-
Var A, b : integer; Begin // В переменные a и b заносим целочисленные //значения A := StrToInt(Edit1.Text); B := StrToInt(Edit2.Text); Label5.Caption :=...
-
1. Какой математической операции нет в Delphi? 2. Как изменить порядок выполнения операций Delphi? 3. В каком порядке выполняются операции одного...
-
Проверка программы на примере задачи. Для работы с программой запускаем файл TabSimMethod. exe рис.1. Рис.1 Файл TabSimMethod. exe Запустится программа...
-
Сохранение проекта Возможны как минимум три варианта: 1. Меню File, строка Save All с подсказкой горячих клавиш Shift+Ctrl+S; 2. Щелкнуть по иконке двух...
-
- замечания, нужно запомнить. Знакомство со средой DELPHI Для загрузки Delphi нужно запустить файл Delphi32.exe из папки Bin каталога Delphi7. Можно...
-
Введение - Объектно-ориентированное, визуальное программирование в Delphi на уроках
Урок информатика программирование объект Значительно более мощные системы Windows, OS/2 и другие привели к повсеместному вытеснению старой "доброй" DOS...
-
Листинг программы. Описание VRazmer VARIABLE 250+INT(RN1#250/350);размер от 250 до 350 INITIAL X$XTerminal,1;какой терминал обслуживается INITIAL...
-
Инструментарий технологии программирования - программные продукты поддержки (обеспечения) технологии программирования. В рамках этого направления...
-
Программирование для Интернет - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования компонента WebBrowser. Пояснения к работе Начиная с пятой версии Delphi появился компонент WebBrowser который...
-
Данное методическое руководство является фактически введением в предмет создания приложений с помощью Delphi / C++Builder и тем более...
-
Компонент TPanel является несущей конструкцией для размещения на ней других элементов управления, являясь в этом случае родителем для размещенных на ней...
-
Реальный проект состоит из многих (часто десятков) форм (окон), каждое из которых активируется в виде реакции на некоторое событие (нажатие кнопки...
-
Формулировка задания: Составьте программу подсчета числа тех гласных букв в слове X, что не используются в написании слова Z. Описание входных/выходных и...
-
Объявим переменные как глобальные: Var Form1: TForm1; A, b, x : int64; // Самый большой целочисленный тип Implementation Код процедуры Click для кнопки...
-
Среда объектно-ориентированного программирования Delphi Delphi - это комбинация нескольких важнейших технологий, высокопроизводительный компилятор в...
-
Нарисовать картину на форме или панели (минимум из 6-и Shapes) и выполнить движение: 1. направо, затем вверх из левого нижнего угла формы; 2. налево,...
-
Литература, Текст программы - Разработка визуального редактора
1. Методические указания по выполнению курсовых и дипломных проектов. Специальность: 2-40 02 01 "Программное обеспечение информационных технологий"; 2....
-
В процессе разработки интерфейса уделялось большое внимание его упрощению для того, чтобы пользователь с минимальными знаниями и навыками в работе с...
-
Программная документация Модуля включает: Руководство системного программиста; Руководство оператора. Программная документация должна быть оформлена...
-
Рекурсивные графические построения - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования рекурсии. Пояснения к работе Рекурсивным называется объект, частично состоящий или определяемый с помощью...
-
Линейная зависимость - Составление программы для решения системы уравнений
Рассмотрим подробнее аппроксимирующие зависимости Y(x)=f(x, B 0 ,B 1,..., B N ) с двумя параметрами: Y(x)=f(x, B 0 ,B 1 ) Используя соотношения (1) и...
Листинг программы - Приемы программирования в Delphi