Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.04.01;
Скачать: CL | DM;

Вниз

Помогите исправить ошибку   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.006 c
15-1323009404
Prok186
2011-12-04 18:36
2012.04.01
Работа в XE2 64bit с памятью более 4Gb


2-1323722200
igorium
2011-12-13 00:36
2012.04.01
Как вывести картинку "Please wait..." ?


2-1323870171
Alex_C
2011-12-14 17:42
2012.04.01
Что лучше поле MyTablePole или MyTable.FieldByName( Pole )


15-1321017183
Бездомный
2011-11-11 17:13
2012.04.01
Когда, интересно, появятся компьютеры, способные


4-1255685158
maxistent
2009-10-16 13:25
2012.04.01
Работа с USB девайсом собственного производства