Time & Date

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Timer1: TTimer;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
procedure Timer1Timer(Sender: TObject);
private
{ By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


function GetCurrentDateTime: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := DateToStr(GetCurrentDateTime);
Edit2.Text := DateToStr(Now);
Edit3.Text := DateToStr(Date);
Edit4.Text := TimeToStr(Now);
Edit5.Text := TimeToStr(Time);
Edit6.Text := TimeToStr(GetCurrentDateTime);
Edit7.Text := FormatDateTime('dddd dd mmmmm YYYY', Now);
Edit8.Text := FormatDateTime('dddd', Now);
Edit9.Text := FormatDateTime('dd', Now);
Edit10.Text := FormatDateTime('mmmmm', Now);
Edit11.Text := FormatDateTime('YYYY', Now);
Edit12.Text := FormatDateTime('nn:ss.zzz', Now);
Edit13.Text := FormatDateTime('nn', Now);
Edit14.Text := FormatDateTime('ss', Now);
Edit15.Text := FormatDateTime('zzz', Now);

end;

end.

Language Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2, Buttons, Menus, IniFiles, xmldom, XMLIntf,
msxmldom, XMLDoc, ComCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
SaveAs1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Language1: TMenuItem;
Indonesian1: TMenuItem;
English1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Email1: TMenuItem;
Websit1: TMenuItem;
StatusBar1: TStatusBar;
Norge1: TMenuItem;
N2: TMenuItem;
procedure New1Click(Sender: TObject);
procedure English1Click(Sender: TObject);
procedure Indonesian1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Email1Click(Sender: TObject);
procedure Websit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Norge1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;
Lang : String;
implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.English1Click(Sender: TObject);
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'English';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','English');
finally
Ini.Free;
end;
end;

procedure TForm1.Indonesian1Click(Sender: TObject);
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'Bahasa Indonesia';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Bahasa Indonesia') ;
finally
Ini.Free;
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if not SaveDialog1.Execute then
Exit;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then
Exit;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Email1Click(Sender: TObject);
begin
Email;
end;

procedure TForm1.Websit1Click(Sender: TObject);
begin
Web;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Lang := Ini.ReadString('Copyright © 2009, Zephio Soft.','Language','') ;
StatusBar1.Panels[1].Text := Lang;
finally
Ini.Free;
if StatusBar1.Panels[1].Text = 'Bahasa Indonesia' then
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'English' then
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'Norge' then
begin
Nor;
Norge1.Checked := true;
Indonesian1.Checked := false;
English1.Checked := false
end
else
begin
StatusBar1.Panels[1].Text := 'English';
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end;

end;

end;

procedure TForm1.Norge1Click(Sender: TObject);
begin
Nor;
Norge1.Checked := true;
English1.Checked := false;
Indonesian1.Checked := false;
StatusBar1.Panels[1].Text := 'Norge';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Norge') ;
finally
Ini.Free;
end;
end;

end.

//-------------------------------------------------->

unit Unit2;

interface

procedure Ind;
procedure Eng;
procedure Nor;
procedure Web;
procedure Email;

implementation


Uses
Unit1, ShellApi, Windows, SysUtils;

procedure Ind;
begin
Form1.File1.Caption := 'Berkas';
Form1.New1.Caption := 'Baru';
Form1.Open1.Caption := 'Buka';
Form1.SaveAs1.Caption := 'Simpan Sebagai';
Form1.Exit1.Caption := 'Keluar';
Form1.Language1.Caption := 'Bahasa';
Form1.English1.Caption := 'Inggris';
Form1.Indonesian1.Caption := 'Indonesia';
Form1.Norge1.Caption := 'Norwegia';
end;

procedure Eng;
begin
Form1.File1.Caption := 'File';
Form1.New1.Caption := 'New File';
Form1.Open1.Caption := 'Open';
Form1.SaveAs1.Caption := 'Save As';
Form1.Exit1.Caption := 'Exit';
Form1.Language1.Caption := 'Language';
Form1.English1.Caption := 'English';
Form1.Indonesian1.Caption := 'Indonesian';
Form1.Norge1.Caption := 'Norsk';
end;

procedure Nor;
begin
Form1.File1.Caption := 'fil...';
Form1.New1.Caption := 'Ny fil...';
Form1.Open1.Caption := 'Åpne...';
Form1.SaveAs1.Caption := 'Lagre som...';
Form1.Exit1.Caption := 'Avslutt';
Form1.Language1.Caption := 'Språk';
Form1.English1.Caption := 'Engelsk';
Form1.Indonesian1.Caption := 'Indonesisk';
Form1.Norge1.Caption := 'Norge';
end;

procedure Web;
var
St : Array [0..255] of char;
begin
ShellExecute(0,'open',StrPCopy(St,'http://myspace.com/zephio'),nil,nil,SW_SHOW);
end;

procedure Email;
begin
ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;
end.

DL SChttp://www.mediafire.com/?za6ql1x1bj1b540

Ini Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls, Buttons;

type
TForm1 = class(TForm)
EL: TEdit;
BO: TSpeedButton;
BS: TSpeedButton;
OD: TOpenDialog;
SD: TSaveDialog;
procedure BOClick(Sender: TObject);
procedure BSClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;

implementation

{$R *.dfm}


procedure TForm1.BOClick(Sender: TObject);
begin
if not OD.Execute then
Exit
else
Ini := TIniFile.Create(OD.FileName);
EL.Text := Ini.ReadString('ZS-2009','1','') ;
Ini.Free;
end;

procedure TForm1.BSClick(Sender: TObject);
begin
if not SD.Execute then
Exit;
Ini := TIniFile.Create(SD.FileName);
Ini.WriteString('ZS-2009','1',EL.Text);
Ini.Free;
end;

end.

DL SC

Pilih Nomor Genap

program zs;

{$APPTYPE CONSOLE}

uses
SysUtils;


var
I : Integer;
begin
for I := 1 to 10 do
if (I mod 2) > 0 then
WriteLn(I);
ReadLn;
end.