Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Срочна нужна помощь в изменении программ

74K
26 октября 2011 года
аньк
3 / / 26.10.2011
1.unit Unit1;

interface

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

type
Form1 = class(Form)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: Object);
procedure Button2Click(Sender: Object);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: Form1;
e: Form1;

implementation

{$R *.dfm}

procedure Form1.Button1Click(Sender: Object);
begin
Button2.Caption:='Привет мир 1';
end;

procedure Form1.Button2Click(Sender: Object);
begin
Button1.Caption:='Привет мир 2';
end;

end.
2.unit rdrec_;

interface

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

type
TForm1 = class(TForm)
RadioButton1: TRadioButton; // переключатель Все
RadioButton2: TRadioButton; // переключатель Выбрать
ComboBox1: TComboBox; // комбинированный список
// для ввода названия страны
Memo1: TMemo; // поле вывода записей, удовлетворяющих
// условию запроса
Button1: TButton; // кнопка OK
GroupBox1: TGroupBox;
Label1: TLabel; // текст Страна
procedure Button1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
type
// тип медали
TKind = (GOLD,SILVER,BRONZE);

// запись файла
TMedal = record
country:string[20];
sport:string[20];
person:string[40];
kind:TKind;
end;

var
f: file of TMedal; // файл записей
rec: TMedal; // запись, прочитанная из файла
n: integer; // кол-во записей удовлетворяющих запросу
st: string[80];

begin
AssignFile(f,'a:\medals.db');
{$I-}
Reset(f); // открыть файл для чтения
{$I-}
if IOResult <> 0 then
begin
ShowMessage('Ошибка открытия файла БД.');
Exit;
end;

// обработка БД
if RadioButton2.Checked then
Memo1.Lines.Add('*** ' + ComboBox1.Text + ' ***');

n := 0;
Memo1.Clear; // очистить список поля Memo
while not EOF(f) do
begin
read(f, rec); // прочитать запись
if RadioButton1.Checked or
(rec.country = ComboBox1.Text) then
begin
n := n + 1;
st := rec.person+ ', ' + rec.sport;
if RadioButton1.Checked then
st := st + ', '+ rec.country;
case rec.kind of
GOLD: st := st+ ', золото';
SILVER:st := st+ ', серебро';
BRONZE:st := st+ ', бронза';
end;
Memo1.Lines.Add(st);
end;
end;
CloseFile(f);
if n = 0 then
ShowMessage('В БД нет запрашиваемой информации.');
end;

// переключатель Выбрать
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Label1.Enabled := True;
ComboBox1.Enabled := True; // теперь поле Страна доступно
ComboBox1.SetFocus; // курсор в поле Страна
end;

// переключатель Все
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Label1.Enabled := False;
ComboBox1.Enabled := False; // теперь поле Страна не доступно
end;

end.
НУЖНО ВНЕСТИ КАКИЕ ЛИБО ИЗМЕНИНИЯ В ПРОГРАММЫ!!!!ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!
244
26 октября 2011 года
UAS
2.0K / / 19.07.2006
GOLD: st := st+ ', золото';
заменим на
GOLD: st := st+ ', ЗОЛОТО' + '!!!!!!!';

Цитата:
НУЖНО ВНЕСТИ КАКИЕ ЛИБО ИЗМЕНИНИЯ В ПРОГРАММЫ!!!!

Задание выполнено, не за что.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог