Lang kode

units

Du kan putte din kode i separate moduler kaldet units.

Så får du struktueret din source code.

Kan du lave et mini eksemple arne

Så kan jeg lige prøve min frem :-)

Det er der mange andre der har forklaret meget bedre end mig.

Eksempel:
  http://delphi.about.com/library/weekly/aa100103a.htm

og:
  http://delphi.about.com/library/weekly/aa061802a.htm

Jeg sidder virklig fast...

Hvordan laver man en function i unit2 som man kan bruge i unit1 ?

Her er min kode

*****Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  besked('hej');
end;

end.


*******Unit2

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    function besked(Besked:String);
  end;


implementation

function besked(Besked:String);
begin
  ShowMessage(besked);
end;

end.

Hvis du i Unit1 laver en:

Uses
  Unit2;

så kan du bruge Unit2 i Unit1.

Som du kan se har jeg gjort det, men det virker ikke..hmmm

Din unit2 compiler jo ikke.

Her er en simpel udgave som gør:

unit Unit2;

interface

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

procedure besked(Besked:String);

implementation

procedure besked(Besked:String);

begin
  ShowMessage(besked);
end;

end.

Helt sikker...Tusinde tak Arne....Lægger du lige et svar

svar