Пожалуйста......help)) не могу понять почему не работает!((

  • Автор темы Nusen'ka
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

Nusen'ka

#1
Приветик.... Помогите пожалуйста!! завтра надо сдать......... а программа не идет((((((
Вот код!

Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Menus, ActnList;

type
TForm1 = class(TForm)
ActionList1: TActionList;
New: TAction;
Open: TAction;
Save: TAction;
SaveAs: TAction;
Close: TAction;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Memo1: TMemo;
StatusBar1: TStatusBar;
OpenDialog1: TOpenDialog;
procedure NewExecute(Sender: TObject);
procedure OpenExecute(Sender: TObject);
procedure CloseExecute(Sender: TObject);
procedure SaveAsExecute(Sender: TObject);
procedure SaveExecute(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
FileName:string;
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.NewExecute(Sender: TObject);
begin

Memo1.Lines.Clear;
FileName:='new.txt'; 
StatusBar1.Panels[0].Text:=FileName;
end;

procedure TForm1.OpenExecute(Sender: TObject);
begin
if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileName:=OpenDialog1.FileName;
StatusBar1.Panels[0].Text:=FileName;
end;

procedure TForm1.SaveExecute(Sender: TObject);
begin
if (FileName='new.txt') then SaveAsExecute(Nil)
else
Memo1.Lines.SaveToFile(FileName);
end;

procedure TForm1.SaveAsExecute(Sender: TObject);
begin
FileName:=SaveDialog1.FileName;
SaveDialog1.InitialDir:=ExtractFilePath(FileName);
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
FileName:=SaveDialog1.FileName;
StatusBar1.Panels[0].Text:=FileName;
end;
end;

procedure TForm1.CloseExecute(Sender: TObject);
begin
close
end;

end.
А вот ошибки какие выходят!
[Error] Unit1.pas(64): Statement expected but 'PROCEDURE' found
[Error] Unit1.pas(73): Undeclared identifier: 'SaveDialog1'
[Error] Unit1.pas(73): Missing operator or semicolon
[Error] Unit1.pas(74): Missing operator or semicolon
[Error] Unit1.pas(75): 'THEN' expected but identifier 'Execute' found
[Error] Unit1.pas(77): ')' expected but identifier 'FileName' found
[Error] Unit1.pas(81): '.' expected but ';' found
[Error] Unit1.pas(86): Statement expected, but expression of type 'TAction' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


Буду очень благдарна......
 
N

Nusen'ka

#3
ВОт теперь работает только пункты в меню Сохранить, Сохранить как - неактивные!? Не подскжите что сделать!?
 
R

root

#4
[quote name='Nusen'ka' post='88608' date='6:12:2007, 03:58 ']ВОт теперь работает только пункты в меню Сохранить, Сохранить как - неактивные!? Не подскжите что сделать!?[/quote]
Значит в свойствах MenuItem enabled стоит false - или я чего то непонимаю ?
 
B

Barmutik

#5
Или на пункте меню висит action а у него слетел как указали выше обработчик OnExecute
 
N

Nusen'ka

#6
Спасибо всем большое))))))

Не поможете не могу реализовать настройку динамического меню!.... все написала а со одной ошибкой справиться не могу..(
[Error] Unit1.pas(140): Undeclared identifier: 'mnuFile'




Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, ComCtrls, StdCtrls, StdActns;

type
TForm1 = class(TForm)
ActionList1: TActionList;
Memo1: TMemo;
MainMenu1: TMainMenu;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
New: TAction;
Open: TAction;
Save: TAction;
SaveAs: TAction;
Close1: TAction;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
EditSelectAll1: TEditSelectAll;
EditDelete1: TEditDelete;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
procedure NewExecute(Sender: TObject);
procedure OpenExecute(Sender: TObject);
procedure SaveExecute(Sender: TObject);
procedure SaveAsExecute(Sender: TObject);
procedure Close1Execute(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure mnuItemAddClick(Sender: TObject);
procedure mnuItemDeleteClick(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
Filename: string;
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}





procedure TForm1.NewExecute(Sender: TObject);
begin
Memo1.Lines.Clear; // â ýòîé ñòðîêå ìû îò÷èùàåì ïîëå Ìåìî
FileName:='new.txt'; // çäåñü ïðèñâàèâàåì ïåðåìåííîé FileName èìÿ new.txt
StatusBar1.Panels[0].Text:=FileName;
end;


procedure TForm1.OpenExecute(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileName:=OpenDialog1.FileName;
StatusBar1.Panels[0].Text:=FileName;
end;
end;




procedure TForm1.SaveExecute(Sender: TObject);
begin
if (FileName='new.txt') then SaveAsExecute(Nil) 
else
Memo1.Lines.SaveToFile(FileName);

end;

procedure TForm1.SaveAsExecute(Sender: TObject);
begin
FileName:=SaveDialog1.FileName;
SaveDialog1.InitialDir:=ExtractFilePath(FileName); 
if SaveDialog1.Execute then
begin 
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
FileName:=SaveDialog1.FileName; 
StatusBar1.Panels[0].Text:=FileName;
end;
end;




procedure TForm1.Close1Execute(Sender: TObject);
begin
if MessageDlg (' Âû óâåðåíû, ÷òî õîòèòå âûéòè? ', mtConfirmation,
[mbYes, mbNo],0) = mrYes
then Form1.Close;
end;




procedure TForm1.N14Click(Sender: TObject);
begin
Form2.ShowModal;
end;





procedure TForm1.mnuItemAddClick(Sender: TObject);
var NewItem : TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := 'Íîâûé ýëåìåíò';
mnuFile.Add(NewItem);
end;

procedure TForm1.mnuItemDeleteClick(Sender: TObject);
begin
if mnuFile.Items[2].Caption ='Âòîðîé ýëåìåíò';
then
mnuFile.Delete(2);
end;

end.
 
Статус
Закрыто для дальнейших ответов.