Создать родительский класс, в котором будут оценки студентов за сессию. Создать класс потомок, в котором будут оценки ( Delphi )

[De199]

Создать родительский класс, в котором будут оценки студентов за сессию. Создать класс потомок, в котором будут оценки до сдачи сессии. Сортировать список от отличников до не сдавших сессию. Вывести их в Memo. Записать в файл.

Помогите пожалуйста составить программу. Буду очень благодарен!

[eval]

program superproga;

begin

end.

свой вклад непосильный я сделал, кто дальше?

[Stilet]

De199

Наработки есть? Если нет то вот:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TPapa }

  TPapa=class
    balls:array of integer;
    Constructor Create(i:integer);
    Destructor Destroy; override;
  end;

  { TChild }

  TChild=class(TPapa)
    procedure sort;
    procedure out_(l:TStrings);
    procedure save(filename:String);
  end;

  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TPapa }

constructor TPapa.Create(i: integer);
begin
  SetLength(balls,i);
end;

destructor TPapa.Destroy;
begin
  SetLength(balls,0);
  inherited Destroy;
end;

{$R *.lfm}

{ TChild }

procedure TChild.sort;
var i,j,k:integer;
begin
 for i:=Low(balls) to High(balls) do for i:=Low(balls) to High(balls) do
 if balls[i]<balls[j] then begin k:=balls[i]; balls[i]:=balls[j]; balls[j]:=k; end;
end;

procedure TChild.out_(l: TStrings);
var i:integer;
begin
  l.Clear;
  for i:=Low(balls) to High(balls) do l.Append(IntToStr(balls[i]));
end;

procedure TChild.save(filename: String);
begin
 with TFileStream.Create(filename,fmCreate) do begin
   Write(balls,Length(balls)*SizeOf(balls[Low(balls)]));
   Free;
 end;
end;

end.

Надеюсь поможет понять идею. Только не копипасти его, это не поможет.

P.S. Не проверял.

[De199]

Stilet, можете скинуть файлы программы на почту?

[Stilet]

Неа. Я взял чистый проект, вставил его сюда, и уже на форуме дописывал.
К тому же даже если бы я тебе скинул, он бы у тебя не открылся. Просто поверь наслово )

[De199]

Виталий! Прошу вас еще об одной услуге, помогите пожалуйста написать код программы в Консольном режиме, буду очень благодарен вам!

[Vanta11a]

Не увидел в указанном коде ничего гуевого (от GUI). Вполне себе вставляемый в консольное приложение.

А если Вы хотите всю программу - мотивируйте Виталия, например материально. Хотя он добрый.

[Stilet]

Я то напишу:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
type

  { TPapa }

  TPapa=class
    balls:array of integer;
    Constructor Create(i:integer);
    Destructor Destroy; override;
  end;

  { TChild }

  TChild=class(TPapa)
    procedure sort;
    procedure out_;
    procedure save(filename:String);
  end;

  { TPapa }

constructor TPapa.Create(i: integer);
begin
  SetLength(balls,i);
end;

destructor TPapa.Destroy;
begin
  SetLength(balls,0);
  inherited Destroy;
end;

{$R *.lfm}

{ TChild }

procedure TChild.sort;
var i,j,k:integer;
begin
 for i:=Low(balls) to High(balls) do for i:=Low(balls) to High(balls) do
 if balls[i]<balls[j] then begin k:=balls[i]; balls[i]:=balls[j]; balls[j]:=k; end;
end;

procedure TChild.out_;
var i:integer;
begin
  l.Clear;
  for i:=Low(balls) to High(balls) do writeln(IntToStr(balls[i]));
end;

procedure TChild.save(filename: String);
begin
 with TFileStream.Create(filename,fmCreate) do begin
   Write(balls,Length(balls)*SizeOf(balls[Low(balls)]));
   Free;
 end;
end;

begin
  with TChild.Create(5) do begin
    out_;
    save('c:\qq.bb');
    free;
  end;
end.

Только не зная как да чего по основам он не поможет.

[De199]

procedure TChild.out_;
var i,l:integer;
begin
l:=Clear;
for i:=Low(balls) to High(balls) do writeln(IntToStr(balls[i]));
end;

[De199]

Ошибку выделил красным.
[Error] Project2.dpr(52): Undeclared identifier: 'Clear'