开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
FieldF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

FieldF.pas：源码内容
  1. unit FieldF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Dialogs,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Buttons,
  8.   Mask;
  10. type
  11.   TForm2 = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     DBNavigator: TDBNavigator;
  14.     Panel1: TPanel;
  15.     Panel2: TPanel;
  16.     DataSource1: TDataSource;
  17.     Table1: TTable;
  18.     SpeedButton1: TSpeedButton;
  19.     SpeedButton2: TSpeedButton;
  20.     SpeedButton3: TSpeedButton;
  21.     DBEdit1: TDBEdit;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure SpeedButton1Click(Sender: TObject);
  24.     procedure SpeedButton2Click(Sender: TObject);
  25.     procedure SpeedButton3Click(Sender: TObject);
  26.   private
  27.     { private declarations }
  28.   public
  29.     { public declarations }
  30.   end;
  32. var
  33.   Form2: TForm2;
  35. implementation
  37. {$R *.DFM}
  39. procedure TForm2.FormCreate(Sender: TObject);
  40. begin
  41.   Table1.Open;
  42. end;
  44. procedure TForm2.SpeedButton1Click(Sender: TObject);
  45. begin
  46.   (Table1.FieldByName ('Population') as TFloatField).
  47.     DisplayFormat := '###,###,###';
  48. end;
  50. procedure TForm2.SpeedButton2Click(Sender: TObject);
  51. begin
  52.   ShowMessage (string (Table1 ['Name']) +
  53.     ': ' + string (Table1 ['Population']));
  54. end;
  56. procedure TForm2.SpeedButton3Click(Sender: TObject);
  57. var
  58.   I: Integer;
  59. begin
  60.   for I := 0 to Table1.FieldCount - 1 do
  61.     Table1.Fields[I].Alignment := taCenter;
  62. end;
  64. end.