procedure

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

Potpis

"Black holes are where God divided by zero."
- Steven Wright

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]

Potpis

Sve sto je besmislenije, utoliko je bolje.

Lakse je na formu u kojoj hoces da koristis neku unit odes na FILE>use unit :)

Potpis

When you say "I wrote a program
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds

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

Potpis

Sve sto je besmislenije, utoliko je bolje.

DOS je zakon ))

Pa jebiga on pita za delphi ja mu kazem sto jednostavnije da se ne cima :)

Potpis

When you say "I wrote a program
that crashed Windows", people
just stare at
you blankly and say "Hey, I got
those with the system, *for
free*".
-- Linus Torvalds