|
|
|
Рассмотрим программу,
демонстрирующую процесс чтения и обработки записей файла. Программа Чтение
записей из файла, диалоговое окно которой представлено на рис. 8.4, а текст
— в листинге 8.2, открывает файл, сформированный программой Добавление записи
в файл, и, в зависимости от того, какой из переключателей все или
выбрать — установлен, выводит список медалей, выигранных соответственно
представителями всех стран или страны, название которой введено в поле Страна.
Для вывода результата чтения из файла используется компонент Memol.
В табл. 8.2 приведены
значения свойств компонентов формы.
Так как компонент Memol
предназначен только для просмотра информации, то свойству Readonly (только чтение,
просмотр) присвоено значение True. Свойство scroiiBars (полосы прокрутки) компонента
Memo позволяет задавать отображаемые полосы прокрутки. По умолчанию свойству
scroiiBars присвоено значение ssNone, т. е. полосы прокрутки не отображаются.
В рассматриваемом примере выводится вертикальная полоса, поэтому свойству ScroiiBars
присвоено значение ssVertical.
Таблица 8.2.
Значения свойств компонентов
|
Свойство |
Значение |
||
|
RadioButton1 . Checked |
True |
||
|
Label1 .Enabled |
False |
||
|
ComboBox1 . Enabled |
False |
||
|
Memo1 . Readonly |
True |
||
|
Memo1. ScroiiBars |
ssVertical |
||
Для ввода названия
страны используется компонент ComboBox1, что позволяет задавать имя не только
прямым вводом названия, но и выбором из списка. Список стран нужно сформировать
во время создания формы путем присвоения значения свойству items.
Чтобы сразу после запуска
программы список выбора страны был недоступен (т. к. выбран переключатель все
группы Показать), свойству Enabled компонентов ComboBox1 и Label1
во время создания формы нужно присвоить значение False.
Список ввода-выбора
названия страны (ComboBox1) становится доступным в результате выбора во время
работы программы переключателя выбрать. Процедура обработки события Onclick
на переключателе RadioButton2 делает доступным поле ComboBox1.
Рис. 8.4.
Окно программы Чтение записей из файла
Листинг 8.2.
Чтение записей из файла
unit
rdrec_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1
= class(TForm)
RadioButton1: TRadioButton; // переключатель Все
RadioButton2:
TRadioButton; // переключатель Выбрать
//
текст Страна
Button1:
TButton;
GroupBox1:
TGroupBox;
Label1:
TLabe1;
procedure
Button1Click(Sender: TObject);
procedure
RadioButton2Click(Sender: TObject);
procedure
RadioButton1Click(Sender: TObject);
ComboBox1:
TComboBox; // комбинированный список
// для ввода названия страны
Memol:
TMemo; // поле вывода записей, удовлетворяющих
// условию запроса
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;
Memol.Clear; // очистить список поля Memo
while
not EOF(f) do begin
read(f, rec); // прочитать запись
if
RadioButton1.Checked or
(rec.country
= ComboBoxl.Text) then begin
n
:= n + 1;
st
:= rec.person+ ', ' + rec.sport;
if
RadioButtonl.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.
Процедура TForm1.Button1Click
открывает файл и последовательно считывает находящиеся в нем записи. Содержимое
записи добавляется в поле Memol, если прочитанная запись удовлетворяет условию
запроса, т. е. содержимое поля country совпадает с названием страны, введенным
пользователем в поле редактирования компонента ComboBox1, или если выбран переключатель
RadioButton1.
Информация в поле Memo
добавляется инструкцией Memo1.Lines.Add(st), которая является инструкцией применения
метода Add (Добавить) к компоненту Memo1.
Примечание
Понятие "метод" будет подробно рассмотрено далее, в разделе, посвященном объектно-ориентированному программированию. Сейчас только скажем, что метод— это процедура, инструкция вызова которой записывается особым образом с целью показать, что одним из ее параметров является объект.
|
|
|
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
