Высокоуровневые методы информатики и программирования. Сивохин А.В - 62 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

39
з) для команды “Читать” текстового файла:
begin
StrOrlovTextFile := InputBox
('Чтение текстового файла','Введите текст','*.txt');
TextRecNum := StrToInt(InputBox
('Чтение текстового файла', 'Введите номер записи','1'));
AssignFile(OrlovTextFile, StrOrlovTextFile);
ReSet(OrlovTextFile);
For I:=1 to TextRecNum do
Begin
With VarOrlovAuctionsRecord do
begin
ReadLn(OrlovTextFile, ID_Auctions);
ReadLn(OrlovTextFile, Date_U);
ReadLn(OrlovTextFile, Place);
ReadLn(OrlovTextFile, Specifics);
end;
ReadLn(OrlovTextFile);
End;
{$I+}
IOEorrorNum:=IOResult;
If IOEorrorNum<> 0 then ShowMessage('Ошибка ввода вывода');
OrlovRecordForm:= TOrlovRecordForm.Create(Application);
OrlovRecordForm.Show;
CloseFile(OrlovTextFile);
end;
и) для команды “Писать” типизированного файла:
begin
StrOrlovTypeFile := InputBox
('Создание типизированного файла','Введите имя файла','*.rec');
TypeRecNum := StrToInt(InputBox 
     з) для команды “Читать” текстового файла:
     begin
      StrOrlovTextFile := InputBox
                      ('Чтение текстового файла','Введите текст','*.txt');
      TextRecNum             := StrToInt(InputBox
                     ('Чтение текстового файла', 'Введите номер записи','1'));
      AssignFile(OrlovTextFile, StrOrlovTextFile);
      ReSet(OrlovTextFile);
      For I:=1 to TextRecNum do
       Begin
        With VarOrlovAuctionsRecord do
            begin
             ReadLn(OrlovTextFile, ID_Auctions);
             ReadLn(OrlovTextFile, Date_U);
             ReadLn(OrlovTextFile, Place);
             ReadLn(OrlovTextFile, Specifics);
            end;
       ReadLn(OrlovTextFile);
       End;
      {$I+}
      IOEorrorNum:=IOResult;
      If IOEorrorNum<> 0 then ShowMessage('Ошибка ввода вывода');
      OrlovRecordForm:= TOrlovRecordForm.Create(Application);
      OrlovRecordForm.Show;
      CloseFile(OrlovTextFile);
     end;
     и) для команды “Писать” типизированного файла:
     begin
      StrOrlovTypeFile := InputBox
                    ('Создание типизированного файла','Введите имя файла','*.rec');
      TypeRecNum             := StrToInt(InputBox

39

Страницы