Jak na unity (Delphi)
Zdravím.
S delphí dělám chvilku.
Prozraďte kde děla chybu.
Rad bych všechny funkce co používám nacpal do nějaké unity.
Třeba tato vypíše číslo svazku.
function GetSerialNumber(const PathName: string): string;
var
SN, MCL, FSF: DWORD;
begin {GetSerialNumber}
if GetVolumeInformation(PChar(PathName), nil, 0, @SN, MCL, FSF, nil, 0) then
Result := Format('%x-%x', [LongRec(SN).Hi, LongRec(SN).Lo])
else
Result := '';
end;
V project manager jsem vytvořil novou unitu a pojmenoval myunit.pas
Vložil do ni tuto funkcí.
V unit1 ji přidal do uses.
Když ji pak s unit1 zavolám
Label1.Caption := GetSerialNumber('C:/');
Tak to nefunguje.
Kde dělám chybu?
[DCC Error] Unit1.pas(28): E2003 Undeclared identifier: 'GetSerialNumber'
Jak na to?
A mas deklaraci funkce:
uvedenu i v sekci declaration?
To, co je v implementation je viditelne pouze v ramci unity. Pokud chces, aby to bylo viditelne "z venku" musis deklarace uvest i nahore
Ne :(
Vubec netušim kam s tym.
Ještě jsem s unitou bez form nikdy nedělal.
Neporadite.
Kde se o tom něco dočtu?
delphi.about.com
Doctes se o tom v helpu k Delphi, kapitola unit files. Pripadne na interntu, pokud si do vyhledavace zadas: Delphi unit files
http://stackoverflow.com/questions/714760/how-to-u se-unit-files-in-delphi
http://delphi.about.com/od/beginners/l/aa051199.ht m