| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Liroi ©   (2011-12-13 18:13:00) 

всем здрасте! Нужно создать базу данных студентов(ФИО, дата рождения, средний балл и группа). эти данные поместить в 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.

---

Ega23   (2011-12-13 23:50:00) [1]

Блииин, я-то думаю, отчего столько вопросов странных..
Точно, сессия!


> Liroi   (13.12.11 18:13)  


А зачем геттер и сеттер в public пихаете? Убрать в private, ибо нефиг.

---

Сергей М.   (2011-12-13 21:29:00) [2]

> почему должна была повеситься?


Потому что с такими "вопросами" школота и студни попадают сюда как правило на грани суицида)

---

Liroi   (2011-12-13 21:24:00) [3]

8)почему должна была повеситься?

---

Jeer   (2011-12-13 21:03:00) [4]

Господи, пронесло - хоть не повесилась :)

---

Liroi   (2011-12-13 20:36:00) [5]

всем спс!нашла как делать))

---

Плохиш   (2011-12-13 19:30:00) [6]

TobjectList замени на TStringList.

---

Liroi   (2011-12-13 19:04:00) [7]

я знаю.но прогу надо как то сдать.Т.Т

---

Jeer   (2011-12-13 19:01:00) [8]

Брось - не твое это дело.

---

Liroi   (2011-12-13 18:44:00) [9]

не совсем понимаю как это сделать?можно хотябы маленький пример?

---

Jeer   (2011-12-13 18:30:00) [10]

В объекте есть свойство Name: string;

---

Liroi   (2011-12-13 18:29:00) [11]

а как из строкового типа перейти к объекту?

---

Dimka Maslov   (2011-12-13 18:20:00) [12]

В список объектов надо добавлять объект, а не строку.

---

Наверх