Вызов созданной процедуры из созданной

[cr1me]

Добрый день, совсем уже голова кипит незнаю как правильно вопрос для гугла поставить. Вообщем проблема такая.
у меня есть несколько процедур/функции

procedure CopMenDisk(s:string);
var
  SubItem: TMenuItem;
begin
  SubItem := TMenuItem.Create(form1.mainMenu1);
  SubItem.Caption := s;
  subitem.OnClick:=form1.Mclick;
  form1.n25.Add(SubItem);
  end;

Function ListDrive:TStringList;   
var
c:char; 
i:integer;  
begin
result:=Tstringlist.create;  
for c:='A' to 'Z' do  
begin
i:=getdrivetype(Pansichar(C+':\'));  
if i=3  then result.Add(C+':\'); 
if i=2  then result.Add(C+':\'+' ñüåìíûé äèñê'); 
end;
end

;

procedure initmenu;
var
i:integer;
begin
for i:=0 to  listdrive.Count-1 do
  begin
 CopMenDisk(listdrive[i]);
   end;

и я незнаю где их нужно объявить чтобы можно было допустим из процедуры initmenu воспользоваться функцией listdrive и CopMenDisk

[cr1me]

Сам разобрался добавил в паблик
Function ListDrive():TStringList; и т.д
а в имя функции добавил
function tform1.listdrive():Tstringlist;



но назрел еще 1 вопрос если ответите буду благодарен иначе сам разберусь как время будет.
Можно ли обойтись без TForm1 просто объявив функцию в паблик(у меня не получилось)

2. Не оффтопить. Оффтопом считается создание темы, не соответствующей названию раздела, вопрос или пост не по теме, или попытка перевода темы в русло другого вопроса.
Также к оффтопу приравнивается размещение своих личных вопросов в чужой теме, пусть даже и подходящей по смыслу. Есть вопрос - создайте свою тему.
И запомните - на форуме действуют правила "Одна тема - один вопрос", "Одна тема - один автор".
Сюда же относится и кросспостинг - размещение нескольких экземпляров своей "драгоценной" темы.

За оффтоп нарушитель получит нарушение №1.

[Serge_Bliznykov]

Можно ли обойтись без TForm1 просто объявив функцию в паблик(у меня не получилось)

можно. только объявлять фукцию/процедуру нужно ВНЕ описания класса..
например:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TrataTa(параметры) : Тип_возращаемого_значения;
begin
   // тут тело
end;

procedure Bugaga(параметры);
begin
   // тут тело
end;

и т.д.

что у Вас не получилось то?!

[evg_m]

Сам разобрался добавил в паблик
Function ListDrive():TStringList; и т.д

Учитывая что добавление было в public то увидеть надо было из другого модуля. В этом случае функция должна быть объявлена в разделе interface (надо добавлять строки выделенные красным)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Bugaga(параметры);
function TrataTa(параметры) : Тип_возращаемого_значения;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TrataTa(параметры) : Тип_возращаемого_значения;
begin
   // тут тело
end;

procedure Bugaga(параметры);
begin
   // тут тело
end;

[Serge_Bliznykov]

Сообщение от evg_m

Учитывая что добавление было в public то увидеть надо было из другого модуля.

хм.. не уверен, что автор это имел в виду, когда говорил про секцию паблик.
Ему бы сначала с одним модулем (формой) разобраться...

впрочем, если ему эти функции нужно использовать в другом модуле, то Вы безусловно правы!

[cr1me]

у меня не получилось обойтись без Tform и обьявлении процедуры в паблике.
в таком виде

mplementation

{$R *.DFM}

function TrataTa(параметры) : Тип_возращаемого_значения;
begin
   // тут тело
end;

procedure Bugaga(параметры);
begin
  TrataTa(параметры)   -не запустится скажет что не слышала не о какой трата та
end;