1. Procedure menyimpan dari stringgrid ke file *.txt

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f:    TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount – 1 do
for k := 0 to RowCount – 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;

2. Procedure untuk meload file *.txt ke stringgrid:

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f:          TextFile;
iTmp, i, k: Integer;
strTemp:    String;
begin
AssignFile(f, FileName);
Reset(f);
with StringGrid do
begin
Readln(f, iTmp);
ColCount := iTmp;
Readln(f, iTmp);
RowCount := iTmp;
for i := 0 to ColCount – 1 do
for k := 0 to RowCount – 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;

3. langkah berikutnya adalah menambahkan code berikut pada button save :

procedure TForm1.Button3Click(Sender: TObject);
begin
SaveStringGrid(StringGrid1, ”+GetCurrentDir+’\test.txt’);
end;

4. dan menambahkan code berikut pada button load :

procedure TForm1.Button4Click(Sender: TObject);
begin
LoadStringGrid(StringGrid1, ”+GetCurrentDir+’\test.txt’);
end;

demikian sedikit contoh code menyimpan hasil dari stringgrid kedalam bentuk .txt. contoh aplikasi tersebut dapat di download pada link dibawah ini :

http://www.ziddu.com/download/7684082/stringgridtofile.rar.html

untuk listingnya silahkan lihat dibawah ini : unit Scanner1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Edit3: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Label4: TLabel;
Label5: TLabel;
Timer1: TTimer;
TcpClient1: TTcpClient;
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
Server:String;
portFrom,PortTo:Integer;
Actual:Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
Actual:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Server:=Edit1.Text;
PortFrom:=StrToInt(Edit2.Text);
PortTo:=StrToInt(Edit3.Text);
Actual:=PortFrom;
TcpClient1.RemoteHost:=Server;
Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label5.Caption:=IntToStr(Actual);
TcpClient1.RemotePort:=IntToStr(Actual);
if TcpClient1.Connect=True then Memo1.Lines.Add(IntToStr(Actual)+’ is open’);
inc(Actual);
if Actual>PortTo then
begin
Timer1.Enabled:=False;
Actual:=0;
end;
end;

end.

untuk contohnya silahkan download di : http://www.ziddu.com/download/4574731/PortScan.rar.html

download komponen userport pada link :

http://www.ziddu.com/download/1911891/userport.rar.html

bila ingin mencoba komponen ini silahkan download link dibawah ini :

http://www.ziddu.com/download/1911895/seven.zip.html

unit U_Gridsort;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
procedure SortGrid(Grid : TStringGrid; SortCol:integer);
end;

var
Form1: TForm1;

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
for j:= i+1 to rowcount-1 do
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.FormCreate(Sender: TObject);
var
i,j:integer;
totwidth:integer;
begin
with stringgrid1 do
begin
for j := 1 to rowcount-1 do
for i:= 1 to colcount-1 do
cells[i,j]:=format(‘%3d’,[random(1000)]);
for i:= 1 to rowcount-1 do cells[0,i]:=’baris ‘+ format(‘%2d’,[i]);
totwidth:=0;
for i:= 0 to colcount-1 do
begin
cells[i,0]:=’kolom ‘+ inttostr(i+1);
colwidths[i]:=defaultcolwidth+random(48);
inc(totwidth,colwidths[i]);
end;
width:=totwidth+(colcount+3)*gridlinewidth;
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
begin
for j:= 0 to colcount-1 do
begin
rect := cellrect(j,0);
if (rect.Left x) then
begin
c := j;
break;
end;
end;
sortgrid(stringgrid1,c);
end;
end;

end.

untuk contoh aplikasinya dapat didownload link dibwah ini.

http://www.ziddu.com/download/4542283/contohrar.rar.html

kompnen ini dapat digunakan pada delphi 1,2,3,4,5,6,7. kompatibel dengan windows XP.

untuk mendoload komponen ini, kunjungi link dibawah ini :

http://www.ziddu.com/download/1911934/cport-3.10.zip.html

untuk download komponennya silahkan download link dibawah ini.

http://www.ziddu.com/download/1911941/KOMPONENSERIALNGCOMP.zip.html

1. buat procedure untuk menyembunyikan icon desktop.

masukkan perintah berikut ini pada button.

ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);

perintah di atas adalah perintah untuk menyembunyikan icon di desktop windows.

2. buat procedure untuk menampilkan kembali icon di desktop windows.

masukkan perintah berikut ini pada button2 yang berfungsi untuk menampilkan icon desktop.

ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);

perintah diatas adalah untuk menampilkan icon di desktop.

1. Dengan OLE yg sudah include di Delphi

uses
ComObj;

function RefToCell(ARow, ACol: Integer): string;
begin
Result := Chr(Ord(‘A’) + ACol – 1) + IntToStr(ARow);
end;

function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
const
xlWBATWorksheet = -4167;
var
Row, Col: Integer;
GridPrevFile: string;
XLApp, Sheet, Data: OLEVariant;
i, j: Integer;
begin
Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
for i := 0 to AGrid.ColCount – 1 do
for j := 0 to AGrid.RowCount – 1 do
Data[j + 1, i + 1] := AGrid.Cells[i, j];

Result := False;
XLApp := CreateOleObject(‘Excel.Application’);
try

XLApp.Visible := False;

XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet.Name := ASheetName;

Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
AGrid.ColCount)].Value := Data;
try
XLApp.Workbooks[1].SaveAs(AFileName);
Result := True;
except

end;
finally

if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
end;

// button1 untuk save ke excel

procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveAsExcelFile(stringGrid1, ‘data stringgrid’, ‘c:\file.xls’) then
ShowMessage(‘data telah disimpan’);
end;

2. Tanpa menggunakan OLE

procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
const AValue: string);
var
L: Word;
const
{$J+}
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
{$J-}
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := ARow;
CXlsLabel[3] := ACol;
CXlsLabel[5] := L;
XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
XlsStream.WriteBuffer(Pointer(AValue)^, L);
end;

function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
{$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
CXlsEof: array[0..1] of Word = ($0A, 00);
var
FStream: TFileStream;
I, J: Integer;
begin
Result := False;
FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
try
CXlsBof[4] := 0;
FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
for i := 0 to AGrid.ColCount – 1 do
for j := 0 to AGrid.RowCount – 1 do
XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
Result := True;
finally
FStream.Free;
end;
end;

// button1 untuk save ke excel

procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveAsExcelFile(stringGrid1, ‘data stringgrid’, ‘c:\file.xls’) then
ShowMessage(‘data telah disimpan’);
end;