Merhaba arkadaşlar bu makalemizde Delphi’de StringGrid Nesnesinde text dosyamızdaki verileri göstereceğiz. Formumuza Palette kısmından StringGrid ekleyelim. StringGrid nesnesinin style ini DrawCell kısmından ayarliyoruz.
Şekil 1
unit stringgrid_Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure PopulateStringGrid(Grid: TStringGrid; const FileName: string);
var
TextFile, Line: TStringList;
Row, col: Integer;
begin
Grid.RowCount := 0;
TextFile := TStringList.Create;
try
Line := TStringList.Create;
try
Line.Delimiter := ' ';
TextFile.LoadFromFile(FileName);
Grid.RowCount := TextFile.Count;
for Row := 0 to TextFile.Count-1 do
begin
Line.DelimitedText := TextFile[Row];
for Col := 0 to Grid.ColCount-1 do
if Col<Line.Count then
Grid.Cells[Col, Row] := Line[Col]
else
Grid.Cells[Col, Row] := '0';
end;
finally
Line.Free;
end;
finally
TextFile.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
fileName:string;
begin
//StringGrid de 4 sutun tanimliyoruz.
StringGrid1.ColCount := 4;
// sutun genisligini ayarliyoruz.
StringGrid1.ColWidths [0] := 80;
StringGrid1.ColWidths [1] := 130;
StringGrid1.ColWidths [2] := 130;
StringGrid1.ColWidths [3] := 300;
// txt dosyamizin yolunu tanimliyoruz.
fileName:=('D:\person.txt');
PopulateStringGrid(StringGrid1, fileName);
// sutun isimlerini tanimliyoruz.
StringGrid1.Cells[0,0] := 'Id';
StringGrid1.Cells[1,0] := 'Name';
StringGrid1.Cells[2,0] := 'Surname';
StringGrid1.Cells[3,0] := 'Contact';
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
i:integer;
begin
if (ARow >= StringGrid1.FixedRows) then
with (Sender as TStringGrid).Canvas do
begin
// 1. satirin styleni ayarliyoruz.
if (ARow = 0) then
begin
Brush.Color := ClRed ;
Font.Color:=clWhite;
Font.Size:=14;
Font.Style:=[fsBold,fsItalic];
FillRect(Rect);
TextOut(Rect.Left+40, Rect.Top, StringGrid1.Cells[ACol,ARow]);
end;
// diger satirlarin styleni ayarliyoruz.
if (ARow <> 0) then
begin
Brush.Color := ClInfoBk;
Font.Color:=clNavy;
Font.Size:=12;
Font.Style:=[fsBold];
FillRect(Rect);
TextOut(Rect.Left+30, Rect.Top, StringGrid1.Cells[ACol,ARow]);
end;
end;
end;
end.
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder