Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2007, 11:08   #1
Skif
 
Регистрация: 08.04.2007
Сообщений: 9
По умолчанию База спортсменов и медалей(ошибки в учебнике)

В учебнике дан пример создание базы по спортменам и медалям, но там дофига ошибо, большинство исправил, на оставшиеся уже че-то мозго не хватает(сижу второй день), вроде все по учебнику...
В проге :
1 кнопка в меню(для записи данных в файл;
1 edit;
2-а combobox;
1 RadioGroup1 с 3-я RadioButton.
Ошибки указал в каментах полужирным шрифтом после строк куда делфя указывает(делфя 7-я)
Прога:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
procedure FormActivate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

private
{ Private declarations }
public
{ Public declarations }
end;
TKind=(zoloto, derevo, svinech);
TMedal = record
strana:string[20]; //страна
vid:string[20];//вид спорта
pers:string[30];//спортсмен
kind:TKind
end;

var
Form1: TForm1;
f:File of TMedal;

implementation

{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
Var
resp:word;
//MessegeDlg:word;
begin
AssignFile(f,'I:\языки\дел\примеры\ баз_медалей\madal.db');
{$i-}
Reset(f);
Seek(f, FileSize(f)); // указатель записи в конец файла
{$I+}
if Ioresult=0 then
n1.Enabled:=True
else
Begin
resp:=MessegeDlg('а нету'+'создать базу',mtWarning,[mbYes,mbNo],0);
{Ошибка - Undeclared indetifier: 'MessegeDlg'}
if resp=0 then
begin
{$I-}
Rewrite(f);
{$I+} ;
end;
if Ioresult=0 then
N1.Enabled:=True
else
ShowMessage('базы нету :-((((')
end;
procedure TForm1.N1Click(Sender: TObject);
{Ошибка - Statement expected but 'PROCEDURE' found}
Var
Medal:TMedal;
begin
with medal do
begin
strana:=Combobox1.Text;
vid:=Combobox2.Text;
pers:=Edit1.Text;
Case RadioGroup1.ItemIndex of
0:kind:=zoloto;
1:kind:=derevo;
2:kind:=svinech;
end;
write(f,medal);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(f)
end;
End.
Skif вне форума Ответить с цитированием
Старый 25.04.2007, 11:18   #2
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

1) MessageDlg() !
2) скорее всего end потерял ..
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 25.04.2007, 14:36   #3
Skif
 
Регистрация: 08.04.2007
Сообщений: 9
По умолчанию

2 Virtson
спасиб, да end потерял и "е" на "а" исправил но работает только в таком виде:
{resp:=Messagedlg('а нету'+'создать базу',mtWarning,[mbYes,mbNo],0);
if resp=0 then }
т.е. исключаю эту строку и все путем, а какое значение присвоить resp из учебника так и не выяснил...
Skif вне форума Ответить с цитированием
Старый 25.04.2007, 16:22   #4
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

resp:= Messagedlg('а нету'+'создать базу',mtWarning,[mbYes,mbNo],0);
if resp= mrYes then
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две ошибки Crivel Помощь студентам 10 31.07.2008 12:18
ошибки функцый Николя Microsoft Office Excel 4 23.06.2008 14:16
Ошибки delphin100 Операционные системы общие вопросы 12 17.04.2008 14:15
Ошибки Terran Общие вопросы Delphi 3 05.02.2008 20:47
СИСТЕМНЫЕ ОШИБКИ HAMMAN Свободное общение 2 29.05.2007 20:26