在线等，大哥门帮帮忙！分数还可以加！

Question

Identifier redeclared:'Mainform';是什么问题啊？我该怎么解决？

Answer 1

定义了两个'Mainform'?把全部代码贴上来

Answer 2

代码贴出来看看，这种错误一般是你在什么地方定义了不同含义的mainform

Answer 3

那英文的大意是：标志重复定义(MainForm)...

Answer 4

unit MainForm;interface
uses
  Windows,Messages,SysUtils,Variants,Classes,Controls,Forms,
  Dialogs,ExtCtrls,StdCtrls,ComCtrls,Buttons,Menus,Printers,
  Graphics,ClipBrd,ExtDlgs,ToolWin,ImgList;
type
  TViewMethod=(vmtNull,vmtZoomIn,vmtZoomOut,vmtPan);
  TDrawingTool=(dtNull,dtRectangle);
  TViewDirect=(vtIsometric,vtRedraw,vtFront,vtBack,vtLeft,vtRight,
               vtTop,vtBottom);
  TMainForm=class(TForm)
    OpenDialog1: TOpenDialog;
    Image: TImage;
    StatusBar1: TStatusBar;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    OPen1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Print1: TMenuItem;
    Close1: TMenuItem;
    Exit1: TMenuItem;
    Edit2: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Paste1: TMenuItem;
    Delete1: TMenuItem;
    N2: TMenuItem;
    New1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    PrintDialog1: TPrintDialog;
    ZoomIn1: TMenuItem;
    ZoomOut1: TMenuItem;
    N3: TMenuItem;
    PopupMenu1: TPopupMenu;
    StatusBar2: TStatusBar;
    TimerTitle: TTimer;
    OpenPictureDialog1: TOpenPictureDialog;
    Color1: TMenuItem;
    PenColor1: TMenuItem;
    decreasepensize1: TMenuItem;
    SavePictureDialog1: TSavePictureDialog;
    ToolBar2: TToolBar;
    Open: TToolButton;
    Save: TToolButton;
    SaveAs: TToolButton;
    Close: TToolButton;
    New: TToolButton;
    ZoomIn: TToolButton;
    Pan: TToolButton;
    Print: TToolButton;
    SavePicture1: TMenuItem;
    imagellist1: TImageList;
    ZoomOut: TToolButton;
    Win: TMenuItem;
    NewPicture: TMenuItem;
    CloseNewPicture: TMenuItem;
    HuiFu: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure PrintButtonClick(Sender: TObject);
    procedure OpenButtonClick(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure SaveAsButtonClick(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure PrintClick(Sender: TObject);
    procedure ZoomInClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject;var Action:TcloseAction);
    procedure PenColor1Click(Sender: TObject);
    procedure decreasepensize1Click(Sender: TObject);
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure PanClick(Sender: TObject);
    procedure CloseClick(Sender: TObject);
    procedure ImageMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ZoomOutClick(Sender: TObject);
    procedure SavePicture1Click(Sender: TObject);
  private
    { Private declarations }  public
    { Public declarations }
     procedure shuzuchuli(start,finish:integer);
     procedure DrawMesh();
     procedure ClearCanvas();
     procedure DrawRectangle(TopLeft, BottomRight:TPoint;AMode:TPenMode);
     procedure chushichuli();
   end;
var
  MainForm:TMainForm;//这里就是报告出错的地方。
  pmColor:TpenMode;
  GetFlag:boolean;
  GetPt:Tpoint;
  GET:BOOLEAN;
  Drawing:Boolean;
  Viewmethod:TViewmethod;
  Xarr,Yarr:Array[1..350000] of Real;
  ViewDirect:TViewDirect;
  SubFormNum:integer;
implementation
var
 n,n1:Integer;
 Drawingtool:TDrawingtool;
 Origin,MovePt:TPoint;
 k,k1:integer;
 SfileName:String;
 X_max,X_min,Y_max,Y_min:double;
{$R *.dfm}
以上是程序的开始部分，希望友人给一些建议！
谢谢！解决就给分！

Answer 5

哈哈，把你的单元文件名字改过，
unit MainForm;
～～～～～～～～～～～～～～就是这个。interface
uses
  Windows,Messages,SysUtils,Variants,Classes,Controls,Forms,
  Dialogs,ExtCtrls,StdCtrls,ComCtrls,Buttons,Menus,Printers,
  Graphics,ClipBrd,ExtDlgs,ToolWin,ImgList;