Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem 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?

Předmět Autor Datum
A mas deklaraci funkce: function GetSerialNumber(const PathName: string): string; uvedenu i v sekc…
Jan Fiala 09.09.2013 07:10
Jan Fiala
Ne :( Vubec netušim kam s tym. Ještě jsem s unitou bez form nikdy nedělal. Neporadite. Kde se o tom…
Miro 22 09.09.2013 07:35
Miro 22
interface function GetSerialNumber(const PathName: string): string; implementation function GetSeria…
pme 09.09.2013 09:18
pme
Doctes se o tom v helpu k Delphi, kapitola unit files. Pripadne na interntu, pokud si do vyhledavace… poslední
Jan Fiala 09.09.2013 12:50
Jan Fiala
interface
function GetSerialNumber(const PathName: string): string;

implementation

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;

delphi.about.com

Zpět do poradny Odpovědět na původní otázku Nahoru