Показать сообщение отдельно
  #5  
Старый 24.11.2010, 20:53
roamer roamer вне форума
Активный
 
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
По умолчанию

Да.
Но если в нем хранить инфу из RECORD, то логично с ним работать, как с типизированным.
Типа :
Код:
//======= Запись (дополнение в конец) ========                                                               
Var
  MyRec: Tinfo;
  F : file of Tinfo;
  Ok99 : boolean;                                    
begin
   AssignFile(F,SaveDialog1.FileName);
   {$I-} Rewrite(F) {$I+};
   Ok99:=(IoResult=0);
   if Ok99 then begin
      TRY          
        {$I-} write(F,MyRec) {$I+};
        Ok99:=(IoResult=0);
        if not Ok99 then begin
           ShowMessage('Ошибка записи в файл');                            
        end;             
      FINALLY                  
        {$I-} CloseFile(F) {$I+};
        Ok99:=(IoResult=0);
      END;
   end
   else begin
      ShowMessage('Ошибка открытия файла на запись');                            
   end;             
end;
//===================================                                                               
    

//======= Чтение записи номер 0 ========                                                               
Var
  MyRec: Tinfo;
  F : file of Tinfo;
  Ok99 : boolean;                                    
begin
   AssignFile(F,SaveDialog1.FileName);
   {$I-} Reset(F) {$I+};
   Ok99:=(IoResult=0);
   if Ok99 then begin
      TRY
        {$I-} seek(F,0) {$I+};
        Ok99:=(IoResult=0);
        if Ok99 then begin
           {$I-} read(F,MyRec) {$I+};
           Ok99:=(IoResult=0);
           if not Ok99 then begin
              ShowMessage('Ошибка чтения из файла');                            
           end;             
        end
        else begin                               
           ShowMessage('Ошибка позиционирования в файле');                            
        end;             
      FINALLY                  
        {$I-} CloseFile(F) {$I+};
        Ok99:=(IoResult=0);
      END;
   end
   else begin
      ShowMessage('Ошибка открытия файла на чтение');                            
   end;             
end;
//===================================                                                               


Это проще и надежнее.
Ответить с цитированием