Показать сообщение отдельно
  #4  
Старый 26.01.2011, 20:56
Doctor_Che Doctor_Che вне форума
Прохожий
 
Регистрация: 25.01.2011
Сообщения: 36
Репутация: 10
По умолчанию

И выдаёт такие ошибки:
[Error] Unit1.pas(66): Undeclared identifier: 'Save1MenuItem'
[Error] Unit1.pas(66): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
при
Код:
procedure TForm1.Open1Click(Sender: TObject);
begin
  //OpenDialog1.Execute;
  //f:= OpenDialog1.FileName;
  if not OpenDialog1.Execute then Exit;
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Ôàéë ñ çàäàííûì èìåíåì íå íàéäåí. Äåéñòâèå îòìåíåíî.');
    Exit;
  end;
  f:= OpenDialog1.FileName;
  Self.Caption := f;
  Memo1.Clear;
  Memo1.Visible:= true;
  Memo1.Lines.LoadFromFile(f);
  Save1MenuItem.Enabled := true;
  SaveAs1MenuItem.Enabled := true;
  Close1MenuItem.Enabled := true;
end;
и
Project Project1.exe rised exeption class EReadError with message "Invalid property value". Process stoped.
при
Код:
procedure TForm1.Open1Click(Sender: TObject);
begin
  //OpenDialog1.Execute;
  //f:= OpenDialog1.FileName;
  if not OpenDialog1.Execute then Exit;
  if not FileExists(OpenDialog1.FileName) then begin
    ShowMessage('Ôàéë ñ çàäàííûì èìåíåì íå íàéäåí. Äåéñòâèå îòìåíåíî.');
    Exit;
  end;
  f:= OpenDialog1.FileName;
  Self.Caption := f;
  Memo1.Clear;
  Memo1.Visible:= true;
  Memo1.Lines.LoadFromFile(f);
  //Save1MenuItem.Enabled := true;
  //SaveAs1MenuItem.Enabled := true;
  //Close1MenuItem.Enabled := true;
end;
Ответить с цитированием