Hvis jeg lager denne funksjonen og prosedyren:
type
TForm1 = class(TForm)
function NewVersion: Boolean; // <-
procedure DownloadNewVersion; // <-
...
Det jeg vil er å lage min egen "TCheck" slik at jeg kan skrive f.eks:
procedure Button1Click(Sender: TObject);
begin
if Check.NewVersion then
ShowMessage('You already have the latest version.')
else
if MessageDlg('You do not have the latest version. Would you like to download it?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Check.DownloadNewVersion;
end;
Må jeg kanskje gjøre noe her?:
type
TCheck = ?
function NewVersion: Boolean;
procedure DownloadNewVersion;
...
Håper dere forstår. ;o)
DiZpel
Lav en unit med de forskellige procedurer i der hedder check
så tilføjer du uniten's dir i library i delphi og så tilføjer du den til uses
så kan du lave de forskellige procedurer frem og tilbage
