![]() |
|
|
#1
|
|||
|
|||
|
Разработать приложение, в котором создается класс TStudent с полями Fname, Fgroup и методом (функцией) Info. Конструктор класса должен иметь параметры для того, чтобы при инициализации объектов класса полям Fname и Fgroup присваивались значения. Прописать алгоритм метода Info (для вывода информации о студенте) и продемонстрировать вызов объявленного в классе метода применительно к инициализированному объекту.
|
|
#2
|
|||
|
|||
|
для чего такое приложение нужно?
|
|
#3
|
|||
|
|||
|
Задачу на дом задали, и больше ничего не объяснили
|
|
#4
|
||||
|
||||
|
Что то в таком духе:
Код:
type
TStudent = class
private
fFname,
fFgroup : String
public
constructor Create(name, group : String);
function Info(var name, var group : String): Boolean;
end;
constructor TStudent.Create((name, group : String);
begin
fFname := name;
fFgroup := group;
end;
function TStudent.Info(var name, var group : String): Boolean;
begin
name := fFname;
group := fFgroup
Result := (fFname <> '') and (fFgroup <> '');
end;
procedure Test;
var
Student : TStudent;
aname, agroup;
begin
Student := TStudent.Create('Вася Пупкин', '1 группа');
try
if Student.Info(aname, agroup) then
bla-bla-bla...
finally
Student.Free;
end;
end; |