Форум: "Начинающим";
Текущий архив: 2012.04.01;
Скачать: [xml.tar.bz2];
ВнизПомогите исправить ошибку Найти похожие ветки
← →
Liroi (2011-12-13 18:13) [0]всем здрасте! Нужно создать базу данных студентов(ФИО, дата рождения, средний балл и группа). эти данные поместить в TObjectList. при этом выдает ошибку [DCC Error] uGroup.pas(45): E2010 Incompatible types: "TObject" and "string". как её можно исправить?
unit uGroup;
interface
uses contnrs, SysUtils, Dialogs, ustudent;
type TGroup=class
private
fName:string;
fgroup: string;
fstudent: TobjectList;
public
function getName:string;
procedure setName (const value:string);
property Name:string read getname write setname;
function getgroup:string;
procedure setgroup (const value:string);
property group:string read getgroup write setgroup;
procedure addStudent(st:TStudent);
constructor Create (nm,gr:string; st:Tobjectlist); overload;
function getParams:String;
constructor Create; overload;
end;
implementation
constructor TGroup.Create;
begin
fstudent:=TobjectList.Create;
end;
constructor TGroup.Create(nm,gr:string; st:TObjectList);
begin
fname:=nm;
fgroup:=gr;
fstudent:=st;
end;
procedure TGroup.addStudent(st:TStudent);
var bv:string;
begin
bv:=floattostr(st.bdata)+ floattostr(st.getAB) + st.FIO;
fstudent.Add(bv);
end;
function TGroup.getParams:String;
begin
end;
function TGroup.getName:String;
begin
result:=fname;
end;
procedure TGroup.setName (const value:String);
begin
fname:=value;
end;
function TGroup.getgroup:string;
begin
result:=fgroup;
end;
procedure TGroup.setgroup (const value:string);
begin
fgroup:=value;
end;
end.unit uStudent;
interface
uses contnrs, SysUtils, Dialogs;
type TStudent=class
private
fFIO:string;
fBornData: double;
fAB: double;
public
function getFIO:string;
procedure setFIO (const value:string);
property FIO:string read getfio write setfio;
function getbdata:double;
procedure setbdata (const value:double);
property bdata:double read getbdata write setbdata;
function getAB:double;
procedure setAB (const value:double);
property AB:double read getab write setAB;
constructor Create (f:string; bd,ab:Double ); overload;
function getParams:String;
constructor Create; overload;
end;
implementation
constructor TStudent.Create;
begin
end;
constructor TStudent.Create(f:string; bd,ab:Double);
begin
fFIO:=f;
fBornData:=bd;
fAB:=ab;
end;
function TStudent.getFIO:String;
begin
result:=fFIO;
end;
procedure TStudent.setFIO(const value:String);
begin
fFIO:=value;
end;
function TStudent.getbData:Double;
begin
result:=fborndata;
end;
procedure TStudent.setbdata (const value:Double);
begin
fborndata:=value;
end;
function TStudent.getab:Double;
begin
result:=fAB;
end;
procedure TStudent.setAB(const value:Double);
begin
fAB:=value;
end;
function TStudent.getParams:String;
begin
end;
end.
← →
Dimka Maslov © (2011-12-13 18:20) [1]В список объектов надо добавлять объект, а не строку.
← →
Liroi (2011-12-13 18:29) [2]а как из строкового типа перейти к объекту?
← →
Jeer © (2011-12-13 18:30) [3]В объекте есть свойство Name: string;
← →
Liroi (2011-12-13 18:44) [4]не совсем понимаю как это сделать?можно хотябы маленький пример?
← →
Jeer © (2011-12-13 19:01) [5]Брось - не твое это дело.
← →
Liroi (2011-12-13 19:04) [6]я знаю.но прогу надо как то сдать.Т.Т
← →
Плохиш © (2011-12-13 19:30) [7]TobjectList замени на TStringList.
← →
Liroi (2011-12-13 20:36) [8]всем спс!нашла как делать))
← →
Jeer © (2011-12-13 21:03) [9]Господи, пронесло - хоть не повесилась :)
← →
Liroi (2011-12-13 21:24) [10]8)почему должна была повеситься?
← →
Сергей М. © (2011-12-13 21:29) [11]
> почему должна была повеситься?
Потому что с такими "вопросами" школота и студни попадают сюда как правило на грани суицида)
← →
Ega23 © (2011-12-13 23:50) [12]Блииин, я-то думаю, отчего столько вопросов странных..
Точно, сессия!
> Liroi (13.12.11 18:13)
А зачем геттер и сеттер в public пихаете? Убрать в private, ибо нефиг.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.04.01;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.003 c