Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
1
Добавлен:
26.04.2015
Размер:
566 б
Скачать
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TKind = (GOLD, SILVER, BRONZE);//тип медали
// запись файла
TMedal=record
country: string[20]; // страна
sport: string[20]; // вид спорта
person: string[40]; // спортсмен
kind: TKind; // медаль
end;

type
TForm5 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;
H,i:integer;

implementation

uses Unit6;

{$R *.dfm}

end.
Соседние файлы в папке Данные
  • #
    26.04.20156.35 Кб1Unit4.dfm
  • #
    26.04.20154.03 Кб1Unit4.pas
  • #
    26.04.20153.76 Кб2Unit5.dcu
  • #
    26.04.201551 б1Unit5.ddp
  • #
    26.04.2015306 б1Unit5.dfm
  • #
    26.04.2015566 б1Unit5.pas
  • #
    26.04.201522.93 Кб1Unit6.dcu
  • #
    26.04.201551 б2Unit6.ddp
  • #
    26.04.201522.01 Кб2Unit6.dfm
  • #
    26.04.201513.24 Кб1Unit6.pas
  • #
    26.04.20153.39 Кб1Unit7.dcu