Küçük harfe dönüşüm Türkçe Karekterler
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Cb1: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Cb1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
private
// Function kucult(Yazim:string):string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
Function kucult(Yazim:string):string;
var
Harfim:char;
Sayim:Byte;
begin
for Sayim:=1 to length(yazim) do
begin
Harfim:=Yazim[sayim];
Case Harfim of
'A'..'H','J'..'Z':Harfim:=Chr(Ord(Harfim)+32);
'Ö': Harfim:='ö';
'Ğ': Harfim:='ğ';
'Ü': Harfim:='ü';
'Ş': Harfim:='ş';
'İ': Harfim:='i';
'Ç': Harfim:='ç';
'I': Harfim:='ı';
end;
Yazim[Sayim]:=Harfim;
end;
Kucult:=Yazim;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if cb1.Checked then
Begin
edit2.Enabled :=False;
end
else
Begin
Edit2.text:=kucult (edit1.text);
edit2.Enabled :=True;
edit2.Color := $00EDE212;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
harf:string;
begin
harf:=key;
harf:=KUCULT(harf);
key:=harf[1];
end;
procedure TForm1.Cb1Click(Sender: TObject);
begin
if cb1.Checked then
Begin
Edit1.OnKeyPress := Edit1KeyPress;
Edit2.Enabled :=False;
Edit2.Clear;
end
else
Begin
edit1.OnKeyPress :=Nil ;
Edit2.Enabled :=True;
Edit2.Color := ClWhite;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.OnKeyPress :=Nil ;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit2.Clear;
end;
end.
Delphi - .....................................
Yaş Bulma
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
MaskEdit1: TMaskEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses math;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
d:double;
a:Tdate ;
begin
try
if MaskEdit1.Text = ' . . ' then
begin
showmessage ('Lütfen Tarih giriniz..') ;
maskedit1.SetFocus ;
exit;
end;
a:=now;
d:=floor((a-(strtodate(MaskEdit1.Text )))/(365));
if (d >= 150) or (d <= -1) then
begin
showmessage ('Bu Tarihte İnsan mı Yaşar Dikkatli Yaz...!') ;
exit;
end;
edit1.text:=floattostr(d);
except
begin
showmessage ('Tarih Formatını Yanlış Girdiniz.') ;
MaskEdit1.Text:='';
edit1.text:='';
end;
end;
end;
end.
Delphi - .....................................
TMemo bileşeninde sayısal değer kontrolü
NeverFear - kaheri579@hotmail.com
1.TForm üzerine 1 adet TMemo bileşeni bırakın.
2.TMemo özelliklerini Height->21, Alignment->taRightJustify, WantReturns->False,
WordWrap->False olarak ayarlama yapın.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Memo1Exit(Sender: TObject);
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
function IsInteger(X: string): boolean;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;
function IsInteger(X: string): boolean;
var X_int: integer;
begin
Result:= True;
try
X_int:= StrToInt(X);
except on EConvertError do
Result:= False;
end;
end;
procedure TForm1.Memo1Exit(Sender: TObject);
begin
if Memo1.Text <> '' then
begin
if not IsInteger(Memo1.Text) then //Memo1.Text'e girilen değerin sayısal olup
//olmadığı kontrol ediliyor. Sayısal değilse "raise" devrede.
raise EIntError.Create(''' ' + Memo1.Text + ' '' sayısal bir değer değil..!')
else ShowMessage(''' ' + Memo1.Text + ' '' sayısal bir değer.');
end;
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Memo1Exit(Memo1);
end;
end.
NOT: IsInteger fonksiyonunu, Mart 2006'da drony takma isimli arkadaşımız göndermiş ve
bu konuda başka kodlama yok. Ancak, arkadaşımız fonksiyonun kullanılması ile
ilgili herhangi bir kod eklememiş. Bunun üzerine, ben de, kullanımına ait örnek
kodlama gönderme ihtiyacı duydum. Ayrıca, yeni başlayanlar açısından yararlı
olacağı düşüncesindeyim.
İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.
NeverFear - kaheri579@hotmail.com
Delphi - .....................................
WEB BROWSER KULLANIMI
formunuzun internet yaprağından bir adet web browser secin ve 4 adet buton 1.butonu (ana sayfa) 2.Butonu (Önceki sayfa) 3.Butonu (sonraki sayfa) ve 4.Butonu (Ara)
olarak atlandırın son olarak bir adette combobox yapıştırın
aşağıdaki kodları gerekli yerlere uygulayın.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ComBoBox1.Items.Add('http://www.tugrulhamal.somee.com');
ComBoBox1.Items.Add('http://www.delphi.freezoka.com/index.php');
ComBoBox1.Items.Add('http://www.google.com');
ComBoBox1.Items.Add('http://.....................................');
ComBoBox1.Items.Add('http://www.superonline.com');
ComBoBox1.Items.Add('http://www.mynet.com');
ComboBox1.ItemIndex:=0;//ilk elemanı göster
WebBrowser1.Navigate(ComboBox1.Text);
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
WebBrowser1.Navigate(ComboBox1.Text);
Button2.Enabled:=true;
Button3.Enabled:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.GoHome;
ComboBox1.Text:=WebBrowser1.LocationURL;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
WebBrowser1.GoBack;
except
Button2.Enabled:=false;
Button3.Enabled:=true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
//Sonraki Sayfaya Git
begin
try
WebBrowser1.GoForward;
except
Button3.Enabled:=false;
Button2.Enabled:=true;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
//Arama Sayfasına Git
begin
WebBrowser1.GoSearch;
ComboBox1.Text:='www.mmicrosoftsourch.com';
end;
end.
Delphi - .....................................
MOUSE Simulasyon Yeni DBLCLİCK RCLİCK
/////////////click
begin
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
end;
//////////////////
////////// Double click
var
i:integer;
for i:=0 to 1 do
begin
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
end;
/////////////////////
/////// right click
begin
mouse_event(mouseeventf_rightdown,0,0,0,0);
mouse_event(mouseeventf_rightup,0,0,0,0);
end;
Delphi - .....................................
ExThreads Unit Basitçe Thread Kullanalım.
bu uniti sizin için hazırladım bir çoğumuz hala thread kullanımını bilmiyor.
threadi başlattıkdan sonra kapatmasınada dikkat etmek gerekir.
thread handlelerini bir yerde saklamak thread sonunda kapattırmak ve
üstüne üstlük thread sayısı arttıkça eziyet haline gelebilir.
beginthread ile bir thead açtığımızda fonksiyon işletilip bittiğinde
o thread durmuş olarak hala bellekden alan götürür. bunu engellemek için
thread ile işiniz bittiğinde kapatmanız gerekir. bu işi ExThreads uniti üstlenir.
birde video kaydettim burdan;
http://rapidshare.com/files/100114739/exthreads.avi.html
Unit1 Pas
---------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Uses ExThreads;
procedure Prosedurumuz(TID:Pointer);
begin
// Kodlarımızı buraya yazalım
{ ---- }
StopThread(TID);
{ İşlem Bittiğinde Bu Çağrılmalı her ne kadar thread durmuş olsada hala bellekde }
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
i:longint;
begin
for i:=1 to 500 do begin StartThread(Addr(Prosedurumuz)); end; // 500 tane thread aç.
{
if StartThread(Addr(Prosedurumuz)) then
begin
thread çalıştırıldı
end
else
begin
thread çalıştırılamadı
end;
}
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption:=IntToStr(Threads_ActiveCount)+' İş Parçacığı.';
// if Threads_ActiveCount=0 then halt; // kaç thread aktif şu an..
Application.ProcessMessages;
end;
end.
-------------------------
ExThreads.pas
-------------
Unit ExThreads;
interface
uses
Windows;
Function StartThread(ThreadFunc: TThreadFunc):Boolean;
Procedure StopThread(TID:Pointer);
Function Threads_ActiveCount:LongInt;
Implementation
Const
MaxThread=65535;
Var
Threads:Array[1..MaxThread] Of LongWord;
Function GetEmty_TID:LongInt;
Var
I:LongInt;
Begin
Result:=0;
For I:=1 To MaxThread Do
Begin
If Threads[I]=0 Then
Begin
Result:=I;
Exit;
End;
End;
End;
Function Threads_ActiveCount:LongInt;
Var
I:LongInt;
Begin
Result:=0;
For I:=1 To MaxThread Do
Begin
If Threads[I]>0 Then
Begin
Result:=Result+1;
End;
End;
End;
Procedure StopThread(TID:Pointer);
Begin
CloseHandle(Threads[Integer(TID)]);
Threads[Integer(TID)]:=0;
End;
Function StartThread(ThreadFunc: TThreadFunc):Boolean;
Var
Temp:DWORD;
TID:LongInt;
Begin
Result:=False;
TID:=GetEmty_TID;
If TID>0 Then
Begin
Threads[TID]:=BeginThread(nil, 0, Addr(ThreadFunc), Pointer(TID), 0, Temp);
SetThreadPriority(Threads[TID], THREAD_PRIORITY_HIGHEST);
If Threads[TID]>0 Then
Begin
Result:=True;
End;
End;
End;
{ *-*--*-*----**-*--*-**-*-*--**--*-*-*-*-*-*-*-* }
Var
I:LongInt;
Begin
For I:=1 To MaxThread Do
Begin
Threads[I]:=0;
End;
End.
----------------------------------------------
