Springe over - under udvikling

Du kan bare gøre den til en kommentar, ved at komme { og } udenom :-)

F.eks:
procedure TForm1.Create(Sender: TObject);
var
  Password: String;
begin
{  Password := SpoergEfterPassword;
  if Password <> AppPassword then
    Application.Terminate; }
end;

du kan også gøre det ved at sige til compiler hvad den skal tage med:

...

var
  Form1            : TForm1;

{$define UDVIKLING}

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
{$ifdef UDVIKLING}
  // kode der måske simulerer
{$else}
  showmessage('Password dialog...');
{$endif}
end;


for at stoppe når det skal teste rigtigt kan du skrive:
{.$define UDVIKLING}
istedet for:
{$define UDVIKLING}

luk