Jeden Form a více Unit – Delphi – Fórum – Programujte.com

Zdravím,

mám v programu jeden Form s Unit1 a Unit2, chtěl bych se zeptat, jak vyvolat proceduru z Unit2 v Unit1. Zjednodušeně to vypadá takto:

Unit1:

unit Unit1;
{$mode objfpc}{$H+}
interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls, unit2, Graphics, Dialogs;

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

var
  Form1: TForm1;

implementation
{$R *.lfm}

{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);

begin
  unit2.uloz_soubor;  
end;

end.

Unit2:  

unit Unit2;
{$mode objfpc}{$H+}

interface
uses
  Classes, SysUtils, FileUtil, Forms, StdCtrls, Controls, Graphics, Dialogs;

 var
  popis: string;

implementation
uses Unit1;

procedure uloz_soubor();
var nazev: string;
begin
  SaveDialog1.Filename:=nazev;
  if SaveDialog1.Execute then
     MemoUlozNacti.Lines.SaveToFile(SaveDialog1.FileName);
end;

end.

Při překladu mi to však vždy vyhodí chybu "Identifier not found". Nevíte někdo, jak by se dala ta procedura vyvolat?

Děkuji

První co vidím je, že nemáš vyplněný Filename v Unitu2 - sice tam přiřazuješ obsah promenné "nazev", ale ten nemáš nikde inicializovaný, nebo přiřazený.

Za druhé nechápu proč voláš metodu "uloz_soubor" na událost FormCreate - čili v momentě kdy ten form ještě není "vytvořený". Pochopil bych to jako událost na stisk tlačítka, nebo jiného ovládacího prvku. Každopádně pokud chceš takhle "masochisticky", tak raději využij události "onFormShow". To by mohlo tvůj problém vyřešit.

Kód jsem nikam neukládal abych to zkoušel, reaguju jen podle toho co vidím ...

#2 miHan
no ono je pravda, že událost a ani názvy jsem nezvolil zrovna šťastně, ale pro výsledný program je to pak nepodstatné. Vytvořil jsem totiž jen co nejjednodušší odlehčeninu, tak aby bylo jasné o co mi jde. Program ve kterém chci pak vyvolávání použít je totiž již značně velký, proto pokud něco testuji spustím si druhé okno a udělám nějakou takovouhle zjednodušeninu, ve které testuji pouze tu danou věc. Chápu, že pak zde mohlo dojít k určitému zmatení o co mi vlastně jde, omlouvám se.

Takže jde o to, abych byl schopen např. po stisku tlačítka na Form1 v události ButtonClick vyvolat proceduru umístěnou na jiné Unit, než na které je ona událost ButtonClick. Pokud tedy mám na Unit1 událost ButtonClick a na Unit2 proceduru procedure udelej_neco(), tak se tato procedura vyvolala a provedla.

Vyzkoušel jsem událost onFormShow, kterou jste radil, ale výsledek je stále stejný, tedy hláška "Identifier not found "uloz_soubor" ".

Nemáš nadeklarovanou tu proceduru v interface části unity, takže není zvenku vidět. Prostě do interface v unit2 dej 

procedure uloz_soubor;

#3 Radkus
Přehlédl jse mještě jednu důležitou věc. V té unit2 není deklarováno interface té métody ...

tak už to funguje. Musí se vložit procedure uloz_soubor(); mezi uses a var hned na začátku ještě před implementation. Pokud se to dá jinam, vyhazuje to chyby, nebo nefunguje.

Děkuji všem za pomoc.

#6 Radkus
Ano, to jsme ti s kolegou Sniperem říkali. Hlavní že to šlape jak potřebuješ.