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

Тема в разделе "Delphi - FAQ", создана пользователем Nusen'ka, 6 дек 2007.

Статус темы:
Закрыта.
  1. Nusen'ka

    Nusen'ka Гость

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

    Код (Text):
    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'


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

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Кинуть на форму компоненту
    SaveDialog1
     
  3. Nusen'ka

    Nusen'ka Гость

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

    root Гость

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

    Barmutik Гость

    Или на пункте меню висит action а у него слетел как указали выше обработчик OnExecute
     
  6. Nusen'ka

    Nusen'ka Гость

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

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




    Код (Text):
    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.
     
  7. Nusen'ka

    Nusen'ka Гость

    Спасибки))) Всем за помощь)))
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей