N
Nusen'ka
Приветик.... Помогите пожалуйста!! завтра надо сдать......... а программа не идет((((((
Вот код!
А вот ошибки какие выходят!
[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'
Буду очень благдарна......
Вот код!
Код:
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'
Буду очень благдарна......