Wikia

Delphi Programming

Smoothsort

2,918pages on
this wiki
Talk0

bubble sort

procedure Tform1 : bubule sort


unit Unit1;


interface


uses

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

Dialogs, StdCtrls, Grids, DB, ADODB, WinXP;


type

Tform1 =class(Tform)

 Button1: TButton;
 Button2: TButton;
 StringGrid1: TStringGrid;
 Label1: TLabel;
 Label2: TLabel;
 Edit_nrp: TEdit;
 Edit_nm: TEdit;
 Label3: TLabel;
 Edit_sks: TEdit;
 ADOQuery1: TADOQuery;
 ADOConnection1: TADOConnection;
 WinXP1: TWinXP;


 procedure tbarang(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 procedure Edit_sksKeyPress(Sender: TObject; var Key: Char);
 procedure Button2Click(Sender: TObject);



private

 { Private declarations }
    procedure swap(var angka1:string;var angka2:string);

public

 { Public declarations }

procedure SortGrid(Grid : TStringGrid; SortCol:integer);

end;


var

Form1: TForm1;

barisA,barisB,barisC :integer;

implementation


{$R *.dfm}

 procedure Tform1.Sortgrid(Grid : TStringGrid; SortCol:integer);
 var
i,j : integer;
temp:tstringlist;
begin

temp:=tstringlist.create;

with Grid do

for i := FixedRows to RowCount - 2 do {because last row has no next row}

for j:= i+1 to rowcount-1 do {from next row to end}

if AnsiCompareText(Cells[SortCol, i], Cells[SortCol,j]) > 0

then

begin
 temp.assign(rows[j]);
 rows[j].assign(rows[i]);
 rows[i].assign(temp);

end;

temp.free;

end;


procedure Tform1.tbarang(sender:TObject);

begin

 with StringGrid1 do
   begin
   ColCount :=5 ;
   RowCount :=2;
   FixedCols :=0;
   DefaultRowHeight :=10;
   Options :=[goFixedVertLine, goFixedHorzLine, goVertLine,goHorzLine,
               goRangeSelect, goRowSelect];
   Cells[0,0]:='nrp';
   Cells[1,0]:='nama';
   Cells[2,2]:='sks';
   //lebarkolom
   ColWidths[0]:=25;
   ColWidths[1]:=50;
   ColWidths[2]:=25;
   end;
  end;


procedure Tform1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='no';

StringGrid1.Cells[1,0]:='nrp';

StringGrid1.Cells[2,0]:='nama';

StringGrid1.Cells[3,0]:='sks';

end;


procedure Tform1.Button1Click(Sender: TObject);

var

i :Integer ;

no : array[1..100] of Integer ;

begin


   if (Edit_nrp.Text =)  or (Edit_nm.Text=) or (Edit_sks.Text=) then
   ShowMessage('inputkan data dg lengkap terlebih dahulu')
   else
   begin
 StringGrid1.RowCount:=StringGrid1.RowCount+1;


StringGrid1.Cells[1,barisA+1]:=Edit_nrp.Text;

Inc(barisA);

Edit_nrp.Clear;

Edit_nrp.SetFocus;


StringGrid1.Cells[2,barisB+1]:=Edit_nm.Text;

Inc(barisB); Edit_nm.Clear;


StringGrid1.Cells[3,barisC+1]:=Edit_sks.Text;

Inc (barisC);Edit_sks.Clear;

end;

 end;

procedure Tform1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

c,j:integer;

rect:trect;

begin

with stringgrid1 do

if y<rowheights[0] then {make sure row 0 was clicked}

 begin
 for j:= 0 to colcount-1 do {determine which column was clicked}
 begin
   rect := cellrect(j,0);
   if (rect.Left < x) and (rect.Right> x) then
   begin
     c := j;
     break;
   end;
 end;
 sortgrid(stringgrid1,c);

end;

end;



procedure Tform1.Edit_sksKeyPress(Sender: TObject; var Key: Char);

begin

if (Edit_nrp.Text =) or (Edit_nm.Text=) or (Edit_sks.Text=) then

   ShowMessage('inputkan data dg lengkap terlebih dahulu')
   else
    begin

if not(Key in['0'..'9',#13,#18])then key :=#0 ;

if key=#13 then

 begin
 StringGrid1.RowCount:=StringGrid1.RowCount+1;


StringGrid1.Cells[1,barisA+1]:=Edit_nrp.Text;

Inc(barisA);

Edit_nrp.Clear;

Edit_nrp.SetFocus;


StringGrid1.Cells[2,barisB+1]:=Edit_nm.Text;

Inc(barisB); Edit_nm.Clear;


StringGrid1.Cells[3,barisC+1]:=Edit_sks.Text;

Inc (barisC);Edit_sks.Clear;

end;


end;

end;

procedure Tform1.Button2Click(Sender: TObject);

var

I,J,T :integer;

D :array [0..1000] of Integer ;

begin





   end;


begin


end;


begin



end;


end.

Around Wikia's network

Random Wiki