|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.04.2007, 11:08 | #1 |
Регистрация: 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. |
25.04.2007, 11:18 | #2 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
1) MessageDlg() !
2) скорее всего end потерял ..
Берегите друг друга!
|
25.04.2007, 14:36 | #3 |
Регистрация: 08.04.2007
Сообщений: 9
|
2 Virtson
спасиб, да end потерял и "е" на "а" исправил но работает только в таком виде: {resp:=Messagedlg('а нету'+'создать базу',mtWarning,[mbYes,mbNo],0); if resp=0 then } т.е. исключаю эту строку и все путем, а какое значение присвоить resp из учебника так и не выяснил... |
25.04.2007, 16:22 | #4 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
resp:= Messagedlg('а нету'+'создать базу',mtWarning,[mbYes,mbNo],0);
if resp= mrYes then
Берегите друг друга!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Две ошибки | 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 |