[Delphi] Błąd modułu

0

Mam taki moduł:

unit PiF;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

procedure jakas(tekst:string);
procedure inna(tekst:string);
implementation

procedure jakas(tekst: string);
begin
showmessage(tekst);
end;

end.

Co w nim jest nie tak, nie chce mi się skompilować i wyskakuję taki błąd: <font color="red">Pif.pas(9): Unsatisfied forward or external declaration: 'inna'</span>

0

A gdzie jest ciało procedury inna? Skoro ją zapowiedziałeś/aś w interface, musisz dać ją w implementation - tak jak zrobiłeś/aś z procedurą jakas.

0

A gdzie jest ciało procedury inna? Skoro ją zapowiedziałeś/aś w interface, musisz dać ją w implementation - tak jak zrobiłeś/aś z procedurą jakas.

Ale tak czy inaczej nie dziala :-(

0

Ale tak czy inaczej nie dziala :-(

Nie działa bo nie ma tej procedury!!!!

Wpisz chociaz:
procedure inna(tekst:string);
var
i:integer;
begin
i:=length(tekst);
end;
i zobacz czy pójdzie

0

Nie działa bo nie ma tej procedury!!!!

Dodałem tą procedurke i i tak nie idzie!!

0

Dodałem tą procedurke i i tak nie idzie!!

A to samo pisze? Gdzie ją dodałeś? Daj cały kod jak teraz wygląda i teskt komunikatu o błędzie.

0

Ok, już sobie poradziłem napisałem wszystko od nowa i poszło :-) :-) :-) To jest dobry sposób ;p

Dzięki za pomoc!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1