Kod: Tümünü seç
procedure TSDF.ServisMsjEkle(Msj:String);
begin
{ ???? Servis projesinde iken burası derlensin }
try
MSJ_.Close;
MSJ_.SQL.Clear;
MSJ_.SQL.Add('INSERT INTO INFO_SERVIS_MESAJ (MESAJ,TARIH) VALUES ('+QuotedStr(Msj)+',GETDATE())');
MSJ_.ExecSQL;
finally
end;
{ --- }
{ ???? normal projede burası derlensin }
Memo1.lines.add (Msj);
{ --- }
end;
{$DEFINE xxxx} direktifi buldum fakat çalışmadı. Bu direktifi kullanma şekli nasıldır?
Kod: Tümünü seç
{$IFDEF xxxx}
Showmessage('Bu Program xxxx dir');
{$ELSE}
Showmessage('Bu Program xxxx değildir');
{$ENDIF}