Senin, 30 Maret 2015

Download Source Code Cara Membuat Save dan Load di Delphi 7 Terbaru

Apakah anda ingin Download Source Code Cara Membuat Save dan Load di Delphi 7 Terbaru 2015 berikut saya berikan buat anda, dan sebelumnya juga sudah saya berikan Source Code Cara Membuat Multy Select Skin Manager di Delphi 7  ok untuk komponen utama yang digunakannya adalah: main menu (1), open dialog (1), save dialog (1), dan untuk komponen percobaannya adalah edit text (6), check box (1) dan dibawah ini adalah untuk listing programnnya silahkan disimak.

Kumpulan Source Code Delphi Terbaru 2015


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Meni1: TMenuItem;
    LoadConfig1: TMenuItem;
    SaveConfig1: TMenuItem;
    Keluar1: TMenuItem;
    About1: TMenuItem;
    MyFb1: TMenuItem;
    MyBlog1: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    procedure Keluar1Click(Sender: TObject);
    procedure SaveConfig1Click(Sender: TObject);
    procedure LoadConfig1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Keluar1Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.SaveConfig1Click(Sender: TObject);
var
MyIni: Tinifile;
namafile : string;
begin
with SaveDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='|*.zonksel';
end;
if SaveDialog1.Execute then begin
namafile := SaveDialog1.FileName;
 if Pos('.zonksel',namafile) = 0 then namafile := namafile + '.zonksel';
myINI := TINIFile.Create(namafile);
Myini.WriteString('Configurations', 'Host', Edit1.Text);
Myini.WriteString('Configurations', 'Port', Edit2.Text);
myini.WriteString('Configurations', 'Username', Edit3.Text);
myini.WriteString('Configurations', 'Password', Edit4.Text);
Myini.WriteBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Myini.WriteString('Configurations', 'ProxyHost', Edit5.Text);
Myini.WriteString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;
MessageBox(Self.Handle, 'Config Berhasil Disimpan', 'Oleh Muhamad Sobar', MB_OK + MB_ICONINFORMATION);
end;

end;

procedure TForm1.LoadConfig1Click(Sender: TObject);
var myINI : TINIFile;
namafile : string;
begin
with OpenDialog1 do begin
InitialDir:=ExtractFilePath(Application.ExeName);
Filter:='*|*.zonksel';
end;
if OpenDialog1.Execute then begin
namafile := OpenDialog1.FileName;
myINI := TINIFile.Create(namafile);
Edit1.Text:=Myini.ReadString('Configurations', 'Host', Edit1.Text);
Edit2.Text:=Myini.ReadString('Configurations', 'Port', Edit2.Text);
Edit3.Text:=myini.ReadString('Configurations', 'Username', Edit3.Text);
Edit4.Text:=myini.ReadString('Configurations', 'Password', Edit4.Text);
CheckBox1.Checked:=Myini.ReadBool('Configurations', 'Use Proxy', CheckBox1.Checked);
Edit5.Text:=Myini.ReadString('Configurations', 'ProxyHost', Edit5.Text);
Edit6.Text:=Myini.ReadString('Configurations', 'ProxyPort', Edit6.Text);
myINI.Free;

end;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
resize:=false;
end;

end.

artikel selanjutnya; Source Code Cara Membuat Traffic Digital di Delphi 7

Untuk contoh source codenya silahkan download DISINI atau DISINI passrarnya adalah aimeegracecatering.blogspot.com Hanya itu saja informasi seputar Download Source Code Cara Membuat Save dan Load di Delphi 7 Terbaru 2015 semoga bermanfaat dan membantu terima kasih.