Не получаеться описать функцию

← →
RASkov (2006-11-23 01:33) [40]

Зачем же ты ее в published формы то засунул?

← →
Vga © (2006-11-23 01:33) [41]

> [37] vruslana (23.11.06 01:16)

Интересно, ты дейч\ствительно совсем чайник или тролль?
Функции в type НЕ объявляют. Там объявляют ТИПЫ. Пиши:
type
TMainForm=class(TForm)...
...
private
...
end;

procedure MainMenuSH(MM:TMainMenu;Flag:integer);

← →
RASkov (2006-11-23 01:35) [42]

Unit1 . . type TMainForm = class(TForm) XPManifest1: TXPManifest; MainMenuMainForm: TMainMenu; ..... private .... end; procedure MainMenuSH(MM:TMainMenu;Flag:integer); . implementation . procedure MainMenuSH(MM:TMainMenu;Flag:integer); begin end;

← →
vruslana (2006-11-23 01:43) [43]

Да потомучто незнаю куда ее уже деть!

unit MainFormUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Menus, Forms, Dialogs, XPMan, Grids, DBGrids, DB,ADODB, ComCtrls, ExtCtrls, GridsEh, DBGridEh, ToolWin, Buttons, RXCtrls, RXShell; type TMainForm = class(TForm) XPManifest1: TXPManifest; MainMenuMainForm: TMainMenu; . . . . N31: TMenuItem; procedure N7Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure TfoMainSBTimer(Sender: TObject); procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N16Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} procedure MainMenuSH(MM:TMainMenu;Flag:integer); var i:integer; begin If Flag=0 then begin For i:=1 to MM.Items.Count-2 do MM.Items[i].Visible:=False; end; If Flag=1 then begin For i:=1 to MM.Items.Count-2 do MM.Items[i].Visible:=True; end; end; . . . .
Что в этом UNIT-е не так СКАЖИТЕ???
А это Unit2
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, Mask, StdCtrls, Buttons, DB, ADODB, ExtCtrls, DBCtrls,ComObj, RXCtrls, Menus,MainFormUnit; . . . . . Mainform.ПРОЦЕДУРА (нет в списке)
Давай те без чайников посуды и прочего, что не так в КОДЕ?

← →
vruslana (2006-11-23 01:47) [44]

private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
procedure MainMenuSH(MM:TMainMenu;Flag:integer);
implementation
И так тоже нет!

← →
RASkov (2006-11-23 01:48) [45]

> [41] Vga © (23.11.06 01:33)

Ну там же есть методы формы, а они похожи на функции, вот наверное и захотелось так.
:))

> Unsatisfied forward or external declaration: "TMainForm.MainMenuSH""

Это говорит о том, что процедура объявлена но не реализована. А объявил ты ее в классе формы, а это значит, что и реализация должна быть этого класса т.е. имя проц. должно быть с префиксом имени класса формы
procedure TMainForm.MainMenuSH();
begin

end;
И объявлять ее надо было(желательно) в public. Но здесь есть нюанс, она будет "работать" пока "есть" форма и вызывать ее из другого модуля нужно будет так MainForm.MainMenuSH();

Зря ты сюда полез с такими вопросами, ты найдешь ответ на конкретный вопрос а тонкостей не поймешь и ни чему не научишься.

← →
Eraser © (2006-11-23 01:49) [46]

> [44] vruslana (23.11.06 01:47)

врешь )

← →
vruslana (2006-11-23 01:49) [47]

АЛИЛУЮ!!!!
Спасибо БОЛЬШОЕ RASkov
Признаю ТУПИЛ!

← →
vruslana (2006-11-23 01:51) [48]

КЛЯНУС БОЛЬШЕ ТАКИХ ОШИБОК НЕ ДЕЛАТЬ!

← →
RASkov (2006-11-23 01:58) [49]

> [48] vruslana (23.11.06 01:51)

Зря клянешься:)
Что не будешь делать... Вот если вопросов таких больше здесь не задавать....:)

← →
RASkov (2006-11-23 02:20) [50]

> [47] vruslana (23.11.06 01:49)

А вообще спасибо нужно было Eraser"у давно уже сказать, так как он первый на твой вопрос ответил и верно.

← →
RASkov (2006-11-23 02:25) [51]

И судя по твоему и общему [2] посту, ты даже синтаксиса не знаешь. Постеснялся бы такие ошибки показывать:)
И не прямо сейчас, но утром [5] Palladin ©.

Не получаеться описать функцию Найти похожие ветки