Delphi İle ASP.NET Kitabım
Hayırlı olsun Fatih! hocam
S.A.
öncelikle merakımı af buyurun size niye hoca diyolar?
ben askerden geleli 1 ay oldu hocam o yüzden çok uzak kaldım şu anki güncel konulara..
kitabınızın namını ve yararlılığını duydum bende hemen kitabın yazarına hem tebrik olsun hemde iki sorum olsun demek istedim..
hocam ben asp'yi daha yeni öğrendim delphi'de liseden beri kullanıyorum yani asp.net konusu yani .net hakkında hiç bir bilgim yok ama yazdığınız kitapla delphiden yaptığım tasarımları ve çalışmaları web ortamına sunabilirmiyim? buna benzer soruların cevaplarını kitapta bulabilirmiyim?
kitaptaki uygulamaları çalıştırıp deneyebilmem için extra kurulum veya benzeri bişeyler yapmam gerekiyormu?
ne olur beni yanlış anlamayın sadece konuya tam hakim olamadığım için bunları sormak istedim, aydınlatırsanız çok sevinirim.. çalışmalarınız devamını diliyorum Allaha emanet olun..
öncelikle merakımı af buyurun size niye hoca diyolar?
ben askerden geleli 1 ay oldu hocam o yüzden çok uzak kaldım şu anki güncel konulara..
kitabınızın namını ve yararlılığını duydum bende hemen kitabın yazarına hem tebrik olsun hemde iki sorum olsun demek istedim..
hocam ben asp'yi daha yeni öğrendim delphi'de liseden beri kullanıyorum yani asp.net konusu yani .net hakkında hiç bir bilgim yok ama yazdığınız kitapla delphiden yaptığım tasarımları ve çalışmaları web ortamına sunabilirmiyim? buna benzer soruların cevaplarını kitapta bulabilirmiyim?
kitaptaki uygulamaları çalıştırıp deneyebilmem için extra kurulum veya benzeri bişeyler yapmam gerekiyormu?
ne olur beni yanlış anlamayın sadece konuya tam hakim olamadığım için bunları sormak istedim, aydınlatırsanız çok sevinirim.. çalışmalarınız devamını diliyorum Allaha emanet olun..
Öncelikle dil alışkanlığı değilse, hocam diyenler teveccüh ediyorlar.
Pek nam saldığımı düşünmesem de, varsa böyle bir şey muhtemelen alternatif kaynağın olmamasındandır.
Daha önce yaptığınız Delphi projeleri windows uygulamaları için yapılmışsa, kitabın konuyla herhangi bir ilgisi yoktur. Delphi.net ile yaptığınız internet sayfaları ise, işinize yarayabilir.
kitapta anlatılanları uygulayabilmek için Delphi 2005 ya da sonraki bir sürüme ihtiyacınız var.
Pek nam saldığımı düşünmesem de, varsa böyle bir şey muhtemelen alternatif kaynağın olmamasındandır.
Daha önce yaptığınız Delphi projeleri windows uygulamaları için yapılmışsa, kitabın konuyla herhangi bir ilgisi yoktur. Delphi.net ile yaptığınız internet sayfaları ise, işinize yarayabilir.
kitapta anlatılanları uygulayabilmek için Delphi 2005 ya da sonraki bir sürüme ihtiyacınız var.
Fatih! hocam öncelikle cevap verdiğiniz için teşekkür ederim..
dediğiniz doğru projelerimi windows uygulamaları için yapıyordum..
delphi 2005 'im yok ama hemen araştırmaya giriyorum..
bende kitabınızdan almak istiyorum çünkü yazılanlara baktım çok faydalı ve diğerlerine nazaran çevirme değil size yakışanı olduğunu söylüyorlar..
biliyorumki benimde istediklerimi karşılayacak bir kitap..
yardımlarınız ve ilginiz için teşekkür ederim.. çalışmalarınızın devamını diliyorum Allaha emanet olun..
dediğiniz doğru projelerimi windows uygulamaları için yapıyordum..
delphi 2005 'im yok ama hemen araştırmaya giriyorum..
bende kitabınızdan almak istiyorum çünkü yazılanlara baktım çok faydalı ve diğerlerine nazaran çevirme değil size yakışanı olduğunu söylüyorlar..
biliyorumki benimde istediklerimi karşılayacak bir kitap..
yardımlarınız ve ilginiz için teşekkür ederim.. çalışmalarınızın devamını diliyorum Allaha emanet olun..
Re: Delphi İle ASP.NET Kitabım
hayırlı olsun hocam ben yeni delphi öğrenmeye çalışıyorum eğer kitabınızı hediye etmeyi düşünüyorsanız bana gönderebilirsiniz şimdiden tşk ederim...
Re: Delphi İle ASP.NET Kitabım
Teşekkür ederim. Kargo bedelinİ ödeyeceksen isim, adres ve telefonunu özelime atablirsin
Re: Delphi İle ASP.NET Kitabım
Bende düşünüyorum böyle bir kitap almayı incelyeceğim biraz teşekkürler.
Re: Delphi İle ASP.NET Kitabım
arkadaslar altta olan kodlar calısan hesap makinemim kodları ancak ondalıklı hesap yapması icin ne yapmam gerek,nereleri real yapmam nereleri float yapmam gerek ? veya baska bi atamamı gerekiyor acil cevap ?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button2: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Edit2: TEdit;
Button22: TButton;
Timer1: TTimer;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
Button23: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button23Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Sonuc,SayiGirildi,islem,Sayi,I:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'1';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '1' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'2';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '2' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'4';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '4' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'5';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '5' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'6';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '6' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'7';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '7' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'8';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '8' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'9';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '9' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'0';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Sonuc := Sonuc + StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
islem:=1;
Edit2.Text:='+';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
If islem = 1 Then Sonuc:= Sonuc + StrToInt(Edit1.Text);
If islem = 2 Then Sonuc := Sonuc - StrToInt(Edit1.Text);
If islem = 3 Then Sonuc := Sonuc * StrToInt(Edit1.Text);
If islem = 4 Then Sonuc := Sonuc Div StrToInt(Edit1.Text);
Edit1.Text := IntToStr(Sonuc);
SayiGirildi := 1 ; Sonuc := 0 ;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit1.Text := '0' ;
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit2.Text := '' ;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Sonuc:=0;
Sonuc := StrToInt(Edit1.Text)-Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=2;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='-';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := Sonuc * StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=3;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='*';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := StrToInt(Edit1.Text) Div Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=4;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='/';
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Edit1.Visible:=True;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Visible:=False;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Sonuc:=1;
Sayi :=StrToInt(Edit1.Text);
For I:=1 To Sayi Do Sonuc:=Sonuc*10;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:= 1 ; Sonuc:=0;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3.1415';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3.14159265358979323846' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button22Click(Sender: TObject);
Var
i,sayi,fak:integer; //Değişkenler tanımlanıyor.
begin
fak:=1; //fak değişkeni en küçük pozitif tam sayı olan 1 e eşitleniyor.
sayi:=strtoint(edit1.text); //Faktöriyeli istenilen sayı alınıyor.
For i:=1 to sayi Do
fak:=fak*i; //Faktöriyel hesaplanıyor.
edit1.text:=inttostr(fak); //Bulunan sonuç edit2 ye yazdırılıyor.
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:=DateToStr(Date);
end;
procedure TForm1.Button23Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'00';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '00' ; SayiGirildi:=0;
End;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button2: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Edit2: TEdit;
Button22: TButton;
Timer1: TTimer;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
Button23: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button23Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Sonuc,SayiGirildi,islem,Sayi,I:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'1';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '1' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'2';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '2' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'4';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '4' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'5';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '5' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'6';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '6' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'7';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '7' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'8';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '8' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'9';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '9' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'0';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Sonuc := Sonuc + StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
islem:=1;
Edit2.Text:='+';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
If islem = 1 Then Sonuc:= Sonuc + StrToInt(Edit1.Text);
If islem = 2 Then Sonuc := Sonuc - StrToInt(Edit1.Text);
If islem = 3 Then Sonuc := Sonuc * StrToInt(Edit1.Text);
If islem = 4 Then Sonuc := Sonuc Div StrToInt(Edit1.Text);
Edit1.Text := IntToStr(Sonuc);
SayiGirildi := 1 ; Sonuc := 0 ;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit1.Text := '0' ;
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit2.Text := '' ;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Sonuc:=0;
Sonuc := StrToInt(Edit1.Text)-Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=2;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='-';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := Sonuc * StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=3;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='*';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := StrToInt(Edit1.Text) Div Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=4;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='/';
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Edit1.Visible:=True;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Visible:=False;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Sonuc:=1;
Sayi :=StrToInt(Edit1.Text);
For I:=1 To Sayi Do Sonuc:=Sonuc*10;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:= 1 ; Sonuc:=0;
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3.1415';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3.14159265358979323846' ; SayiGirildi:=0;
End;
end;
procedure TForm1.Button22Click(Sender: TObject);
Var
i,sayi,fak:integer; //Değişkenler tanımlanıyor.
begin
fak:=1; //fak değişkeni en küçük pozitif tam sayı olan 1 e eşitleniyor.
sayi:=strtoint(edit1.text); //Faktöriyeli istenilen sayı alınıyor.
For i:=1 to sayi Do
fak:=fak*i; //Faktöriyel hesaplanıyor.
edit1.text:=inttostr(fak); //Bulunan sonuç edit2 ye yazdırılıyor.
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:=DateToStr(Date);
end;
procedure TForm1.Button23Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'00';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '00' ; SayiGirildi:=0;
End;
end;
end.
-
- Üye
- Mesajlar: 239
- Kayıt: 04 Oca 2008 01:53
- Konum: Karşıyaka/İzmir
Re: Delphi İle ASP.NET Kitabım
Yanlış yere soru yazmışsınız. Burada yanıt veren çıkmaz.
In dubio pro reo...
Şüpheden sanık/özgürlük yararlanır...
Şüpheden sanık/özgürlük yararlanır...