Вывод : Сегодня я рассмотрел классы и пример создания программы используя их.
Практическая работа №5, №6.
Тема практической работы: Свойства класса. Пример описания свойства классов.
Цель практической работы: рассмотреть свойства класса, на примере создать класс.
Ход работы :
Рис 16
Листинг :
program classprop;
{$APPTYPE CONSOLE}
type TUser = class
private
fLogin: string;
fPassword: string;
procedure setPassword(newpass: string);
published
property Login: string read fLogin write fLogin;
property Password: string read fPassword write setPassword;
function Connect: boolean;
end;
procedure TUser.setPassword(newpass: string);
begin
if Length(newpass)>3 then fPassword:=newpass
else writeln('Error! Password is too short!');
end;
function TUser.Connect:boolean;
var
s,p: string;
begin
writeln('Input username:');
readln(s);
writeln('Input password:');
readln(p);
result:= (s=fLogin) and (p=fPassword);
end;
var
User: TUser;
s,p: string;
begin
User:=TUser.Create;
writeln('Create username');
readln(s);
User.Login:=s;
writeln('Create password');
readln(p);
User.Password:=p;
writeln('Username is: '+User.Login);
writeln('Password is: '+User.Password);
writeln('Try to login...');
while User.Password<>'' do begin
if User.Connect then begin
writeln('All Ok.');
break;
end else writeln('Incorrect data. Try again!');
end;
User.Destroy;
readln;
end.
Достарыңызбен бөлісу: | 
