И выдаёт такие ошибки:
[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;