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]
Sve sto je besmislenije, utoliko je bolje.