Mega Code Archive
Dephide conditional defines parametrelerinin kullanımı
<![CDATA[
//Burada ornek olması amacıyla sadece {$IFDEF} {$ELSE} {ENDIF} derleme koşul
//tanımları kullanılmıştır. Denemek için bir Form ve bir Button yaratınız.
//Delphi Project menüsünden Options menüsünü tıklayınız.
//Conditional kısmındaki conditional defines kısmına {$IFDEF ile tanımlanan ER
//yazınız.Programı Conditional defines kısmındaki ER parametresi
//varken ve yokken ayrı ayrı compile edip çalıştırınız.
//Bu kısımda birden cok kosul yazabilirsiniz..
//erdal_kilinc@hotmail.com
unit Cond;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
{$IFDEF ER}
function carp(a:integer;b:integer):integer;
{$ELSE}
function Topla(a:integer;b:integer):integer;
{$ENDIF}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$IFDEF ER}
function TForm1.carp(a:integer;b:integer):integer;
begin
result:=a*b;
end;
{$ELSE}
function TForm1.topla(a:integer;b:integer):integer;
begin
result:=a+b;
end;
{$ENDIF}
procedure TForm1.Button1Click(Sender: TObject);
var
Sonuc:integer;
begin
try
{$IFDEF ER}
Sonuc:=Carp(5,6);
{$ELSE}
Sonuc:=Topla(5,6);
{$ENDIF}
Showmessage(inttostr(Sonuc));
except
Showmessage('Func Compile edilemedi');
end;
end;
end.
]]>