Делаем по 5-и бальной системе. Не надо как легче, надо в точности по заданию.

Цитата

p.s. Сейчас некогда , может вечером если никто не напишет - попробую написать решение я.

Задание не сложное но трудоемкое я пока делать не хочу к тому же Alex написал:

Цитата

если ни кто не сделает, то я в пятницу сделаю.

p.s.Просто мне не понятно как заносить новые данные (вроде бы в stringGrid,присутствующий на форме писать нельзя или я ошибаюсь?),
к тому же мне не хочется это делать из-за перспективы получить плюс
:-) (ощущение корыстности выполнения задания)

Это сообщение отредактировал(а) SlaUr - 23.12.2004, 14:14

Извини, а у тебя DRKB есть? Если да-то можно работать с BDE(в DRKB много об этом), а если нету-скачай!

Ребят, задание нужно выполнить именно по той технологии, которая написана в задании.

Вот:

Код

type  Student = record    Name:       String[254]; // Фамилия студента    Estimation: Integer;     // Оценка студента  end; type  Students = array of Student; type  TfrmStud = class(TForm)    StringGrid1: TStringGrid;    ListBox1: TListBox;    MainMenu1: TMainMenu;    N1: TMenuItem;    N2: TMenuItem;    N3: TMenuItem;    N4: TMenuItem;    N5: TMenuItem;    N6: TMenuItem;    N7: TMenuItem;    OpenDialog1: TOpenDialog;    Edit1: TEdit;    procedure FormCreate(Sender: TObject);    procedure N7Click(Sender: TObject);    procedure N3Click(Sender: TObject);    procedure N2Click(Sender: TObject);    procedure N5Click(Sender: TObject);    procedure N6Click(Sender: TObject);  private        function GetSizeF: Integer;    procedure AddStud(stud: Student);    function GetStud(Ind: Integer): Student;    { Private declarations }  public    { Public declarations }  end; var  frmStud: TfrmStud;  f: File of Student;  Stud: Student;  Studs: Students;  FileName: String; implementation uses StrUtils; {$R *.dfm} function TfrmStud.GetSizeF: Integer; // Определение размера файла begin  Result:= FileSize(f)-1; end; procedure TfrmStud.AddStud(stud: Student); // Добавление студента begin  seek(f, GetSizeF+1);  Write(f, stud); end; function TfrmStud.GetStud(Ind: Integer): Student; // Возвращение информации о студенте по его номеру begin  seek(f, Ind);  Read(f, Result); end; procedure TfrmStud.FormCreate(Sender: TObject); begin  with StringGrid1 do begin // Настройка внешнего вида    Cells[0, 0]:= 'Фамилия';    Cells[1, 0]:= 'Оценки';  end;  Edit1.Text:= '';  SetLength(Studs, 0);  ListBox1.Items.Clear;  FileName:= 'Primer.dat' end; procedure TfrmStud.N7Click(Sender: TObject); // Выход begin  Close; end; procedure TfrmStud.N3Click(Sender: TObject); // Чтение данных var  i: Integer; begin  if not OpenDialog1.Execute then Exit;  AssignFile(f, OpenDialog1.FileName);  Reset(f);  SetLength(Studs, GetSizeF+1);  ListBox1.Font.Style:= ListBox1.Font.Style + [fsBold];  ListBox1.Font.Color:= clRed;  ListBox1.Sorted:= True;  for i:= 0 to GetSizeF do begin    stud:= GetStud(i);    ListBox1.Items.Add(Format('%s %d', [stud.Name, stud.Estimation]));    StringGrid1.Cells[0, i+1]:=          stud.Name      ;    StringGrid1.Cells[1, i+1]:= IntToStr(stud.Estimation);    Studs[i]:= stud;  end;  CloseFile(f);  if ListBox1.Items.Count = 0 then    Application.MessageBox('Найдите файл', 'Ошибка', MB_ICONERROR); end; procedure TfrmStud.N2Click(Sender: TObject); // Запись var  n: Integer; begin  SetLength(Studs, StringGrid1.RowCount-2);  for n:= 0 to Length(Studs) do begin    Studs[n].Name:= StringGrid1.Cells[0, n+1];    Studs[n].Estimation:= StrToIntDef(StringGrid1.Cells[0, n+1], 0);  end;  AssignFile(f, FileName);  Rewrite(f);  for n:= 0 to Length(Studs) do begin    AddStud(Studs[n])  end;  CloseFile(f); end; function Count(s: Students): Real; var  n: Integer;  sum: Integer; begin  sum:= 0;  for n:= 0 to Length(s) do    Inc(sum, s[n].Estimation);  result:= sum / Length(s); end; procedure TfrmStud.N5Click(Sender: TObject); begin  Edit1.Text:= Format('%8.3f', [Count(Studs)]); end; procedure TfrmStud.N6Click(Sender: TObject); var  n: Integer; begin  ListBox1.Font.Style:= ListBox1.Font.Style - [fsBold];  ListBox1.Font.Color:= clWindowText;  ListBox1.Items.Clear;  for n:= 0 to Length(Studs) do    if Studs[n].Estimation > 2 then      ListBox1.Items.Add(studs[n].Name); end;

Я бы за такие задания увольнял преподов. Такого маразма я еще не видел.

Alex
Спасибо тебе за помощь. От таких преподавателей, страдают студенты ни за что...

Не за что.

Дополнительно.

Вот описание класса (из книги "Delphi5, Руководство разработчика" - С.Тейксейра и К.Пачеко, стр.514, гл.12, Работа с файлами), к-рый обеспечивает использование привычных "БД-методов" для типизированного файла:

TRecordStream = class(TFileStream)
private
function GetNumRecs: Longint;
function GetCurRec: Longint;
procedure SetCurRec(RecNo: Longint);
protected
function GetRecSize: Longint; virtual;
public
function SeekRec(RecNo: Longint; Origin: Word = 0): Longint;
function WriteRec(const Rec): Longint;
function AppendRec(const Rec): Longint;
function ReadRec(var Rec): Longint;
procedure FirstRec;
procedure LastRec;
procedure NextRec;
procedure PreviousRec;
property NumRecs: Longint read GetNumRecs;
property CurRec: Longint read GetCurRec write SetCurRec;
end;

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

Это сообщение отредактировал(а) mutex - 25.12.2004, 03:15