Program Prefix, Suffix, Starclauser dan Positif Clauser (Borland Delphi)

Setelah beberapa minggu fakum dalam dunia perbloggingan akhirnya eke hadir kembali dengan memberikan program Delphi.Kalau anda gak tau apa itu program delphi, mending close ajha tab di browser ini. Langsung ajha kali yah... ni adalah tampilan formnya...


unbtuk keterangan nama dari masing2 variabel bisa diliat digambar yah...
untuk source codenya ni.....
===========================================================

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Label4: TLabel;

    a: TEdit;

    mmohasil: TMemo;

    Label5: TLabel;

    Button1: TButton;

    Button2: TButton;

    edttemplate: TEdit;

    GroupBox1: TGroupBox;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    CheckBox3: TCheckBox;

    CheckBox4: TCheckBox;

    Label2: TLabel;

    procedure prefixmethod (karakter : string);

    procedure startmethod (karakter : string; ulang :integer);

    procedure sufixmethod (karakter : string);

    procedure positifmethod (karakter : string; ulang :integer);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  karakter,i,j: string;

  ulang : integer;

implementation

{$R *.dfm}

procedure TForm1.prefixmethod(karakter : string);

 var

  i: Integer;

begin

  edttemplate.Text :='';

  mmohasil.Lines.Add('Hasil Prefik string = '+karakter);

  mmohasil.Lines.Add('--------------------------------');

  for i:= 0 to Length (karakter) do

  begin

     edttemplate.Text :=edttemplate.Text+''+karakter[i];

    mmohasil.Lines.Add (edttemplate.Text)

    end;

    mmohasil.Lines.Add ('--------------------------------');

  end;

procedure TForm1.startmethod(karakter : string;ulang : integer);

 var

    i : integer;

 begin

  edttemplate.Text :='';

  mmohasil.Lines.Add('Hasil Operasi StrartClouser = '+karakter);

  mmohasil.Lines.Add('--------------------------------');

  mmohasil.Lines.Add('');

  for i:= 0 to ulang-1 do

  begin

    edttemplate.Text := edttemplate.Text+''+karakter;

    mmohasil.Lines.Add (edttemplate.Text);

    end;

    mmohasil.Lines.Add('------------------------');

    end;

procedure TForm1.sufixmethod(karakter : string);

 var

  i,j: Integer;

begin

   edttemplate.Text :='';

     mmohasil.Lines.Add('Hasil Sufix string = '+karakter);

     mmohasil.Lines.Add('--------------------------------');

         for i:= 0 to length (karakter)   do

      begin

       edttemplate.Text:='';

       for j:=i+1 to length(karakter) do

       begin

       edttemplate.Text :=edttemplate.Text +''+karakter [j];

       end;

    mmohasil.Lines.Add (edttemplate.Text)

    end;

    mmohasil.Lines.Add ('--------------------------------');

  end;

procedure TForm1.positifmethod(karakter : string;ulang : integer);

 var

 i : integer;

 begin

  edttemplate.Text :='';

  mmohasil.Lines.Add('Hasil Operasi Positif Clouser = ');

  mmohasil.Lines.Add('--------------------------------');

 // mmohasil.Lines.Add('');

   for i:= 0 to ulang-1 do

  begin

    edttemplate.Text :=edttemplate.Text+''+karakter;

    mmohasil.Lines.Add (edttemplate.Text);

    end;

    mmohasil.Lines.Add('------------------------');

    mmohasil.Lines.Add('');

    end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 if CheckBox1.Checked=true then

 begin

  prefixmethod(Edit1.Text);

 end;

 if CheckBox2.Checked=true then

 begin

  startmethod(Edit1.Text, StrToInt(a.Text));

   end;

   if CheckBox3.Checked=true then

   begin

   sufixmethod(Edit1.Text);

   end;

  if CheckBox4.Checked=true then

  begin

    positifmethod(Edit1.Text, StrToInt(a.Text));

   end;

    end;

end.

 =================================================================
Masih kurang puas??? nih ta kasih filenya .... silahkan donlot di http://www.mediafire.com/?0umcr2ah9l6vz97.
bye....