Работа с файлами

@AnS · Регистрация: 08.11.2009

Студворк — интернет-сервис помощи студентам

не понимаю почему не работает код

Delphi

procedure TFrmNPazzle.N3Click(Sender: TObject);
var FileName : String;
    Fl       : file of String[68];
    Str      : String[68];
begin
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName;
 
    AssignFile(Fl, FileName) ;
    Reset(Fl);
    While not EOF(Fl) do begin
      Read(Fl, Str); //Ошибка "Incompatible types"
    end;
end;

@conn · 16.11.2009, 14:27

нужно readln(f1,str) т.к. читаете в строку

@AnS · 16.11.2009, 14:35 **[ТС]**

Не помогло. Та же ошибка.
Когда записывал в этот файл, работало только Write, WriteLn-выдавал ошибку. Я на Delphi c файлами не работал до этого, только на паскале. Где косяк? помогите.

@conn · 16.11.2009, 14:40

Delphi

procedure TFrmNPazzle.N3Click(Sender: TObject);
var FileName : String;
    Fl       : textfile;
    Str      : String;
begin
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.FileName;
 
    AssignFile(Fl, FileName) ;
    Reset(Fl);
    While not EOF(Fl) do begin
      Readln(Fl, Str); //Ошибка "Incompatible types"
    end;
end;

@AnS · 16.11.2009, 14:43 **[ТС]**

Круто спасибо. Оказывается тип в дельфях такой есть "TextFile"

@Тамила · 16.11.2009, 14:44

по-моему, Fl описано неверно... Может надо TextFile...

Добавлено через 32 секунды
)))опоздала)))

@Mawrat · 16.11.2009, 15:14

Когда пишешь:
var
StrTmp : String[68];
При этом происходит на самом деле 2 действия: первое - неименованное объявление типа String[68], второе - объявление переменной этого типа.
Так как тип этот неименованный, то при объявлении
var
StrTmp1 : String[68];
StrTmp2 : String[68];
компилятор будет считать, что переменные StrTmp1 и StrTmp2 принадлежат разным типам.
Аналогично, если объявлено:
var
F : String[68];
StrTmp : String[68];
то команду:
Read(F, StrTmp);
компилятор посчитает ошибочной - т. к. файл F и переменная StrTmp с его точки зрения принадлежат разным типам.
Поэтому действовать надо так:

Delphi

type
  Str68 = String[68];
...
procedure ...
var
  F      : file of Str68;
  StrTmp : Str68;
...

Т. е. код надо переписать так. (Плюс устранение небольших дыр):

Delphi

type
  Str68 = String[68];
 
procedure TFrmNPazzle.N3Click(Sender: TObject);
var
    FileName : String;
    Fl       : file of Str68;
    StrTmp   : Str68;
begin
  if not OpenDialog1.Execute then
    Exit;
 
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Заданный файл не существует. Действие отменено.');
    Exit;
  end;
 
  FileName:=OpenDialog1.FileName;
  AssignFile(Fl, FileName) ;
  Reset(Fl);
  While not EOF(Fl) do begin
    Read(Fl, StrTmp);
    //...
  end;
  CloseFile(Fl);
end;

Здесь имя переменной Str заменено на StrTmp, т. к. Str перекрывает одну из функций Delphi.
---
Ну или действовать надо так, как написал Conn. Но иногда нужно обрабатывать файл именно как типизированный - с фиксированной длинной строки, например, String[68]. В этом случае действовать надо так как я выше написал.

@conn 115 / 114 / 22 Регистрация: 29.08.2009 Сообщений: 174
	16.11.2009, 14:27	2
	нужно readln(f1,str) т.к. читаете в строку 0

@AnS 21 / 2 / 0 Регистрация: 08.11.2009 Сообщений: 27
	16.11.2009, 14:35 [ТС]	3
	Не помогло. Та же ошибка. Когда записывал в этот файл, работало только Write, WriteLn-выдавал ошибку. Я на Delphi c файлами не работал до этого, только на паскале. Где косяк? помогите. 0

@AnS 21 / 2 / 0 Регистрация: 08.11.2009 Сообщений: 27
	16.11.2009, 14:43 [ТС]	5
	Круто спасибо. Оказывается тип в дельфях такой есть "TextFile" 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	16.11.2009, 14:44	6
	по-моему, Fl описано неверно... Может надо TextFile... Добавлено через 32 секунды )))опоздала))) 1

Опции темы