tamamen şamata saati goremeyenler cok rahat gorcek:
PHP Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, ExtCtrls, DBTables, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label37: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Button2: TButton;
Timer2: TTimer;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure Timer5Timer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Caption:=FormatDateTime('tt ',Now);
label1.Caption:=FormatDateTime('tt ', Now);
label2.Caption:=FormatDateTime('tt ',Now);
label3.Caption:=FormatDateTime('tt ',Now);
label4.Caption:=FormatDateTime('tt ',Now);
label5.Caption:=FormatDateTime('tt ',Now);
label6.Caption:=FormatDateTime('tt ',Now);
label7.Caption:=FormatDateTime('tt ',Now);
label8.Caption:=FormatDateTime('tt ',Now);
label9.Caption:=FormatDateTime('tt ',Now);
label10.Caption:=FormatDateTime('tt ',Now);
label11.Caption:=FormatDateTime('tt ',Now);
label12.Caption:=FormatDateTime('tt ',Now);
label14.Caption:=FormatDateTime('tt ',Now);
label15.Caption:=FormatDateTime('tt ',Now);
label16.Caption:=FormatDateTime('tt ',Now);
label17.Caption:=FormatDateTime('tt ',Now);
label18.Caption:=FormatDateTime('tt ',Now);
label19.Caption:=FormatDateTime('tt ',Now);
label20.Caption:=FormatDateTime('tt ',Now);
label21.Caption:=FormatDateTime('tt ',Now);
label22.Caption:=FormatDateTime('tt ',Now);
label23.Caption:=FormatDateTime('tt ',Now);
label24.Caption:=FormatDateTime('tt ',Now);
label26.Caption:=FormatDateTime('tt ',Now);
label27.Caption:=FormatDateTime('tt ',Now);
label28.Caption:=FormatDateTime('tt ',Now);
label29.Caption:=FormatDateTime('tt ',Now);
label30.Caption:=FormatDateTime('tt ',Now);
label31.Caption:=FormatDateTime('tt ',Now);
label32.Caption:=FormatDateTime('tt ',Now);
label33.Caption:=FormatDateTime('tt ',Now);
label34.Caption:=FormatDateTime('tt ',Now);
label35.Caption:=FormatDateTime('tt ',Now);
label36.Caption:=FormatDateTime('tt ',Now);
label37.Caption:=FormatDateTime('tt ',Now);
label38.Caption:=FormatDateTime('tt ',Now);
label39.Caption:=FormatDateTime('tt ',Now);
label40.Caption:=FormatDateTime('tt ',Now);
label41.Caption:=FormatDateTime('tt ',Now);
label42.Caption:=FormatDateTime('tt ',Now);
label43.Caption:=FormatDateTime('tt ',Now);
label44.Caption:=FormatDateTime('tt ',Now);
label45.Caption:=FormatDateTime('tt ',Now);
label46.Caption:=FormatDateTime('tt ',Now);
label47.Caption:=FormatDateTime('tt ',Now);
label48.Caption:=FormatDateTime('tt ',Now);
label49.Caption:=FormatDateTime('tt ',Now);
label50.Caption:=FormatDateTime('tt ',Now);
label51.Caption:=FormatDateTime('tt ',Now);
label52.Caption:=FormatDateTime('tt ',Now);
label53.Caption:=FormatDateTime('tt ',Now);
label54.Caption:=FormatDateTime('tt ',Now);
button1.Caption:=FormatDateTime('tt ',Now);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(formatDateTime('tt ',Now));
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
button2.visible:=(True);
button3.visible:=(True);
button4.visible:=(True);
button5.visible:=(True);
button6.visible:=(True);
button7.visible:=(True);
button8.visible:=(True);
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
showmessage('enermakonline.com');
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
timer3.Enabled:=(False);
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
button2.visible:=(False);
button3.visible:=(False);
button4.visible:=(False);
button5.visible:=(False);
button6.visible:=(False);
button7.visible:=(False);
button8.visible:=(False);
end;
end.
Database arama:
PHP Code:
TTable Nesnesi ile arama
Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);
______________________________________
TQuery Nesnesi ile arama
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;
______________________________________
saat:
PHP Code:
Sadece Saat:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('tt',Now);
end;
Tarih,yıl,gun,saat:
procedure TForm1.Timer1(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('dddddd tt',Now);
end;
Sadece Dakika ve saat:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('t',Now);
end;
tarih:
PHP Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('ddddd ',Now);
end;
ini okuma yazma:
PHP Code:
Okuma:
Var
Enermakonline : String;
INIDosya : TIniFile;
Begin
INIDosya := TIniFile.Create('C:\personel\Systems.ini');
EnermakOnline := INIDosya.ReadString('GenelAyarlar','ServerAdi','') ;
INIDosya.Free;
edit1.Text:=EnermakOnline;
end;
Yazma:
Var
INIDosya : TIniFile;
Begin
INIDosya := TIniFile.Create('C:\Sistem.ini');
INIDosya.WriteString('GenelAyarlar','ServerAdi',Ed it1.Text);
INIDosya.Free;
end;
__________________
Delphi İcin yararlı kodlar
Delphi0 Mesaj
●30 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama Dilleri
- Delphi
- Delphi İcin yararlı kodlar