[ preki @ 01.06.2001. 11:55 ] @
pozzdrav

Nikako ne mogu da nadjem, kako da iz unit2 pozivam proceduru koja je napisana u unit1 u istom project-u. Ako nije problem molim da mi neko posalje kompletan odgovor

hvala, preki
[ overflow @ 01.06.2001. 12:31 ] @
Citat:
preki je napisao:
pozzdrav

Nikako ne mogu da nadjem, kako da iz unit2 pozivam proceduru koja je napisana u unit1 u istom project-u. Ako nije problem molim da mi neko posalje kompletan odgovor

hvala, preki


Potrebno je da u Uses klauzuli Unit2 dodas Unit1.
Dakle

----------------
Unit Unit1;

interface
function Saberi(a,b : integer):integer;

implementation

function Saberi(a,b:integer):integer;
begin
result:=a+b;
end;

begin
end.
----------------

Unit Unit2;
Uses Unit1;

interface
procedure saberidvabroja;
implementation

procedure saberidvabroja;
var
a,b : integer;
begin
Write('Unesi broj : '); readln(a);
Write('Unesi broj : '); readln(b);
Writeln;
writeln('Zbir je : ', saberi(a,b));
end;
----------------



[Ovu poruku je menjao overflow dana 06-01-2001 u 12:32 PM GMT]
[ MoDcHe @ 01.06.2001. 13:02 ] @
Lakse je na formu u kojoj hoces da koristis neku unit odes na FILE>use unit :)
[ overflow @ 01.06.2001. 14:07 ] @
Ajde probaj to da uradis u Pascal-u :)
Fora je u tome da coveku objasnis kako to sve funkcionise ... ovako, nema 'leba samo od kliktanja.
nhf
[ Makojdis @ 02.06.2001. 09:27 ] @
Citat:
overflow je napisao:
Ajde probaj to da uradis u Pascal-u
Fora je u tome da coveku objasnis kako to sve funkcionise ... ovako, nema 'leba samo od kliktanja.
nhf



DOS je zakon ))
[ MoDcHe @ 02.06.2001. 13:08 ] @
Pa jebiga on pita za delphi ja mu kazem sto jednostavnije da se ne cima :)
[ preki @ 05.06.2001. 23:12 ] @
Citat:
MoDcHe je napisao:
Lakse je na formu u kojoj hoces da koristis neku unit odes na FILE>use unit


sve sto ste mi napisali je OK, ali kod mene jos ne radi. Mozda je problem u tome sto u proceduri koju pozivam kao parametar imam slog (record) koji sam definisao kao poseban tip podatka. Prenos promenljivih izmedju unit-a (globalnih) ide OK, ali pozivi procedura nikako, ne znam sta da radim, napisao sam oko 800 linija koda, a sad me to maltretira.
Da pisem ispocetka ???