[ Deep|Blue @ 20.11.2008. 09:34 ] @
hmm, imam mali problem.
2 forme sa slicnom funkcionalnoscu.
funkcija za obradu na formi b kojoj je jedan od parametara referencirana labela.

Code:

function proveri_status(akcija:String; var stLabela:tlabel):integer;
   begin
      querry1.param....


procedura vrsi obradu i ispisuje rezultate na labeli stLabela.

e sad, kad pozovem sa forme b, to sve fercera, ali kad se pozove sa forme a, onda funkcija ne vidi objekte (kverije) sa forme b koje koristi u obradi

jel moze neka ideja?
[ savkic @ 20.11.2008. 10:14 ] @
> function proveri_status(akcija:String; var stLabela:tlabel):integer;

Ne treba ti var kod drugog parametra.

> e sad, kad pozovem sa forme b, to sve fercera, ali kad se pozove sa forme a, onda funkcija ne vidi objekte (kverije) sa forme b koje koristi u obradi

Šta znači ne vidi i da li je ta funkcija metoda (pripada formi) ili obična funkcija?
[ Deep|Blue @ 20.11.2008. 10:35 ] @
hmm, var sam ubacio jer referenciram labelu sa forme a.

a unutar funkcije se vrse provere preko TQuery objekata i nekih promenjivih deklarisanih unutar funkcije. pretpostavio sam da je problem sa vidljivoscu, te kad prebacim deklaraciju funkcije <proveri_status> u public segment, onda za query u debugu prijavljuje inaccessible value.
[ savkic @ 20.11.2008. 12:12 ] @
> hmm, var sam ubacio jer referenciram labelu sa forme a.

var je neophodno ako menjaš sadržaj same promenljive npr ALabel := nil;

> a unutar funkcije se vrse provere preko TQuery objekata i nekih promenjivih deklarisanih unutar funkcije. pretpostavio sam da je problem
> sa vidljivoscu, te kad prebacim deklaraciju funkcije <proveri_status> u public segment, onda za query u debugu prijavljuje inaccessible value.

Moraš napisati više informacija, pokaži kod funkcije i kako je pozivaš, zatim gde i koja se tačno greška javlja.
[ Deep|Blue @ 20.11.2008. 12:40 ] @
ok,

Code:
Forma B:

//deklaracija
type
  ...
    qProvera_JMBG: TQuery;
    lblStatus: TLabel;
   ...
   private
   ....
    { Private declarations }
   public
    function UserCheck(JMBG_Korisnika:String; var Statusna_Labela:tlabel):Byte;
...

    { Public declarations }
  end;

function TPristupnice.UserCheck(JMBG_Korisnika:String; var Statusna_Labela:tlabel):Byte;
   var mrez:string;
 
BEgin
   
   qProvera_JMBG.parambyname('JMBG').asstring := JMBG_Korisnika;
   qProvera_JMBG.open;
   mrez:= qProvera_JMBG.FieldByName('userid').AsString ;
   qProvera_JMBG.Close;
   if mrez <>'' then
      begin
         Statusna_Labela.Caption := 'Korisnik je ... ' + mrez;
         Statusna_Labela.Color:= clLime;
         result:=1;
      end
    else
         result:=0;

End;


Code:
 poziv iz forme a:

implementation
uses Pristupnicef;
...
 if Pristupnice.UserCheck(jmbg.text, lblstatus) = 0  then
         begin
            lblStatus.caption:='Korisnik nije ...';
            lblStatus.Color:= clRed;
         end



u biti procedura UserCheck mi i menja sadrzaj status labele na formi a, zato mi i jeste deklarisana kao var.
mislim da je ovo potrebno, jos uvek se navikavam na delfi, posle vb-a
hvala na pomoci.

U biti mogao bih da resim problem, dupliranjem koda i kontrola na obe forme, ali mi je to malo ruzno resenje, sto zbog velicine, sto zbog odrzavanja.
Ideja mi je bila da sa forme A pozivam procedure iz forme B sa referenciranjem kontrola na formi A za ispis rezultata.
[ Deep|Blue @ 20.11.2008. 13:19 ] @
ehm poruka greske ...
Project ....exe raised exception class EAccessViolation with message 'Access violation at adress 005D10CD in module '....exe'. Read of adress 000003E0'. Process stopped ...

a u debugu za kveri qProvera_JMBG javlja Inaccessible value
[ savkic @ 20.11.2008. 13:51 ] @
> u biti procedura UserCheck mi i menja sadrzaj status labele na formi a, zato mi i jeste deklarisana kao var.

Menja sadržaj svojstava a ne samu promenljivu, možeš čak i deklarisati sa const i radiće (ali je bolje bez da ne bi pravilo zabunu).

> Project ....exe raised exception class EAccessViolation with message 'Access violation at adress 005D10CD in module '....exe'.
> Read of adress 000003E0'. Process stopped ...
> a u debugu za kveri qProvera_JMBG javlja Inaccessible value

Najverovatnije ti TPristupnice nije kreirana (ne postoji) u trenutku pozivanja funkcije. Ako se ta forma ne koristi stalno onda je bolje da njene funkcije koje drugi uniti programa koriste, prebaciš na drugo mesto, u unit ili posebnu klasu (koja će biti stalno aktivna), recimo se za to često koristi TDataModule instanca.
[ Deep|Blue @ 20.11.2008. 14:24 ] @
sjajno,
problem je celo vreme i bio zbog toga sto u tom delu nije kreirana forma B.
malo me bunilo sto u sledecem bloku koda postoji slican poziv, ali funkcija nije imala referenciranje kontrola

u svakom slucaju,
hvala savkic na utrosenom vremenu.