2 Versionen simultan programmieren

[Die Muhkuh]

Hi,

z.B.

Delphi-Quellcode:

unit ...;

{$DEFINE shareware}

// Dann willst du, dass man in der ShareWare nicht speichern kann

procedure Save;  // Deine Procedure zum speichern z.B.
begin
  {$IFDEF shareware}
  ShowMessage('In der Shareware-Version ist speichern nicht möglich');
  {$ELSE}
  // Hier kommt deine Speicherroutine
  {$END}
end;

Hat evtl. den Nachteil, dass man sich, wenn man die Software kauft, die Software nochmal runterladen muss.