盒子论坛 v2.1

DELPHI盒子

!实时搜索:	盒子论坛 \| 注册用户 \| 修改信息 \| 退出
	检举帖 \| 全文检索 \| 关闭广告 \| 捐赠

技术论坛

用户名

密码

自动登陆(30天有效)

忘了密码

≡技术区≡ ①

DELPHI技术

lazarus/fpc/Free Pascal

≡发布区≡ ②

≡事务区≡ ③

论坛信息

最新加入： namnvh

今日帖子： 0

在线用户： 2

导航：

论坛 -> DELPHI技术斑竹:liumazi,sephil

作者：

violetgirl (风儿)	★☆☆☆☆	-
	盒子活跃会员

2004/2/13 13:19:54

标题：

救命！我的子菜单怎么打不开啊

加入我的收藏

楼主：

我用采单编辑器建了个子菜单，可当想往里写代码时出现如下错误
cannot find implemenation of method **

请问谁知道这是怎么回事吗？

----------------------------------------------
-

作者：

alex_zzg (badguy)	★☆☆☆☆	-
	盒子活跃会员

2004/2/13 13:30:23

1楼：

你的代码有问题了，肯定误删了某个 END
使得最后得 END无法识别了
----------------------------------------------
-

作者：

violetgirl (风儿)	★☆☆☆☆	-
	盒子活跃会员

2004/2/13 13:36:58

2楼：

那有什么好办法，查出是哪块出问题了吗？
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/2/13 14:01:54

3楼：

帖代码
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/13 21:49:52

4楼：

这个问题太好解决偶遇到N次了DELPHI经常这样
----------------------------------------------

作者：

violetgirl (风儿)	★☆☆☆☆	-
	盒子活跃会员

2004/2/14 9:16:16

5楼：

Bios 老大
那怎么解决呢
----------------------------------------------
-

作者：

violetgirl (风儿)	★☆☆☆☆	-
	盒子活跃会员

2004/2/15 15:20:02

6楼：

我的END检查了，好象没什么问题了
可还是不能输代码，伤脑筋啊
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/2/15 16:20:00

7楼：

这个用话很难说，偶都是根据错误提示自己搞定的
----------------------------------------------

作者：

perry2001 (古怪精灵)	★☆☆☆☆	-
	盒子活跃会员

2004/2/15 17:58:31

8楼：

你把你的代码贴出来，大家讨论三
----------------------------------------------
-

作者：

violetgirl (风儿)	★☆☆☆☆	-
	盒子活跃会员

2004/2/16 9:31:09

9楼：

unit measuremain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Buttons;
Type
  TPointType=record
    X:double;
    Y:double;
    Z:double;
    end;
type
  TMeasureForm = class(TForm)
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Exit: TMenuItem;
    N2: TMenuItem;
    SaveAs: TMenuItem;
    Save: TMenuItem;
    Open: TMenuItem;
    New: TMenuItem;
    Edit1: TMenuItem;
    Object1: TMenuItem;
    Links1: TMenuItem;
    N3: TMenuItem;
    GoTo1: TMenuItem;
    Replace1: TMenuItem;
    Find1: TMenuItem;
    N4: TMenuItem;
    PasteSpecial1: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    N5: TMenuItem;
    Repeatcommand1: TMenuItem;
    Undo1: TMenuItem;
    Window1: TMenuItem;
    Show1: TMenuItem;
    Hide1: TMenuItem;
    N6: TMenuItem;
    ArrangeAll1: TMenuItem;
    Cascade1: TMenuItem;
    ile1: TMenuItem;
    NewWindow1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    HowtoUseHelp1: TMenuItem;
    Procedures1: TMenuItem;
    Commands1: TMenuItem;
    Index1: TMenuItem;
    Contents1: TMenuItem;
    Memo: TMemo;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    OpenButton: TSpeedButton;
    saveButton: TSpeedButton;
    CancelButton: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Print: TMenuItem;
    PrintOption: TMenuItem;
    PrintOut: TMenuItem;
    PrinterSetupDialog1: TPrinterSetupDialog;
    PrintDialog1: TPrintDialog;
    N1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    CreatCoord: TMenuItem;
    N12: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    procedure ExitClick(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure NewClick(Sender: TObject);
    procedure OpenClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure SaveAsClick(Sender: TObject);
    procedure PrintClick(Sender: TObject);
    procedure PrintOptionClick(Sender: TObject);
    procedure PrintOutClick(Sender: TObject);
    procedure CreatCoordClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure NewWindow1Click(Sender: TObject);
    procedure Undo1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    {Coordinate各坐标系与世界坐标系的关系}
    Coordinate:array[1..10] of array[1..16] of double;
    Coord:array[1..10] of array[1..16] of double;
    PointM:array [1..10] of array[1..20] of TPointType;

    PointW:array[1..20] of TPointType;
    NP,NC:integer;{NP标准点数量NC像机个数}
    {PointWM多个摄像机的转换点，PointW最终世界坐标系点}

    modified:boolean;
  end;

var
  MeasureForm: TMeasureForm;

implementation

uses  unionizecoord, PointChan, neighcoordinatechan;

{$R *.dfm}

procedure TMeasureForm.ExitClick(Sender: TObject);
begin
close;
end;

procedure TMeasureForm.Cut1Click(Sender: TObject);
begin
Memo.CopyToClipboard;
end;

procedure TMeasureForm.Paste1Click(Sender: TObject);
begin
Memo.PasteFromClipboard;
end;

procedure TMeasureForm.Copy1Click(Sender: TObject);
begin
Memo.CopyToClipboard;
end;

procedure TMeasureForm.NewClick(Sender: TObject);
var
Res:integer;
begin
if Memo.Modified then begin
Res:=Application.MessageBox('文档已发生改动,是否存盘?',
                            'MainMenuMessage',MB_YESNOCANCEL);
if Res=IDYES then
    SaveClick(sender);
if Res=IDCANCEL then
   ExitClick(Sender);
end;
if Memo.Lines.Count>0 then begin
Memo.Clear;
SaveDialog.FileName:=';
end;

end;

procedure TMeasureForm.OpenClick(Sender: TObject);
var
Rslt:Word;
begin
   if OPenDialog.execute then
   begin
   if Modified  then
    begin
     RSLT:=MessageDlg('文档已发生改动,是否存盘?',mtConfirmation,mbYesNoCancel,0);
        case rslt of
             mrYes: begin
                      SaveAsClick(nil);
                      memo.Lines.LoadFromFile(OPenDialog.filename);
                    end;
             mrCancel:;
             mrNo: memo.Lines.LoadFromFile(OPenDialog.filename);
        end;
    end
    else
    memo.Lines.LoadFromFile(OPenDialog.filename);
end;

procedure TMeasureForm.SaveClick(Sender: TObject);
begin

if SaveDialog.FileName<>' then
begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
Memo.Modified:=False;
end
else SaveAsClick(Sender);
end;
procedure TMeasureForm.SaveAsClick(Sender: TObject);
begin
SaveDialog.Title:='Save As';
if SaveDialog.Execute then begin
Memo.Lines.SaveToFile(SaveDialog.FileName);
Memo.Modified:=False;
end;
end;

procedure TMeasureForm.PrintClick(Sender: TObject);
var
i:integer;
Ptext:TextFile;
begin
     inherited;
     if PrintDialog1.Execute then
     begin
          AssignPrn(PText);
          Rewrite(Ptext);
          try
               Printer.Canvas.Font:= memo.Font;
               for i:=0 to memo.Lines.Count-1 do
               Writeln(PText,'       '+Memo.lines[i]);
          Finally
                CloseFile(Ptext);
          end;
      end;
end;

procedure TMeasureForm.PrintOptionClick(Sender: TObject);
begin
PrinterSetupDialog1.execute;
end;

procedure TMeasureForm.PrintOutClick(Sender: TObject);
var
i:integer;
Ptext:TextFile;
begin
     inherited;
     if PrintDialog1.Execute then
     begin
          AssignPrn(PText);
          Rewrite(Ptext);
          try
               Printer.Canvas.Font:= memo.Font;
               for i:=0 to memo.Lines.Count-1 do
               Writeln(PText,Memo.lines[i]);
          Finally
                CloseFile(Ptext);
          end;
      end;
end;

procedure TMeasureForm.CreatCoordClick(Sender: TObject);
begin
NeighCoordChan.Show;
end;

procedure TMeasureForm.N12Click(Sender: TObject);
begin
unioncoord.Show;
end;

procedure TMeasureForm.N13Click(Sender: TObject);
begin
FormPointToWorld.show;
end;

procedure TMeasureForm.N15Click(Sender: TObject);
var
I,J:integer;
begin
for I:=1 to 10 do
begin
   for J:=1 to 20 do
   begin
   PointM[I][J]:=0;
   end;
end;

for I:=1 to 10 do
begin
   for J:=1 to 16 do
   begin
   Coordinate[I][J]:=0;
   Coord[I][J]:=0;
   end;
end;
for I:=1 to 20 do
begin
PointW[I]:=0;
end;

end;

procedure TMeasureForm.Undo1Click(Sender: TObject);
begin
inherited;
Memo.PerForm(EM_UNDO,0,0);
end;

end.

贴代码出来请各位大侠帮忙了，不过比较长也较乱，不好意思了
----------------------------------------------
-

信息

登陆以后才能回复