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

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

Delphi控件源码

开发平台：

Delphi

ConvForm.pas：源码内容
  1. unit ConvForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Types, StdCtrls, ConvUtils, StdConvs, StrUtils;
  9. type
  10.   TForm1 = class(TForm)
  11.     ComboFamilies: TComboBox;
  12.     ListTypes: TListBox;
  13.     EditType: TEdit;
  14.     EditAmount: TEdit;
  15.     EditConverted: TEdit;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     Label4: TLabel;
  20.     Label5: TLabel;
  21.     BtnSimple: TButton;
  22.     Label6: TLabel;
  23.     EditDestination: TEdit;
  24.     BtnConvert: TButton;
  25.     Label7: TLabel;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure ChangeFamily(Sender: TObject);
  28.     procedure BtnSimpleClick(Sender: TObject);
  29.     procedure DoConvert(Sender: TObject);
  30.     procedure EditTypeDragOver(Sender, Source: TObject; X, Y: Integer;
  31.       State: TDragState; var Accept: Boolean);
  32.     procedure EditTypeDragDrop(Sender, Source: TObject; X, Y: Integer);
  33.   private
  34.     aFamilies: TConvFamilyArray;
  35.     CurrFamily: TConvFamily;
  36.   end;
  38. var
  39.   Form1: TForm1;
  41. implementation
  43. {$R *.DFM}
  45. procedure TForm1.FormCreate(Sender: TObject);
  46. var
  47.   i: Integer;
  48. begin
  49.   GetConvFamilies (aFamilies);
  50.   for i := Low(aFamilies) to High(aFamilies) do
  51.     ComboFamilies.Items.Add (
  52.       ConvFamilyToDescription (aFamilies[i]));
  53.   // get the first and fire event
  54.   ComboFamilies.ItemIndex := 0;
  55.   ChangeFamily (self);
  56. end;
  58. procedure TForm1.ChangeFamily(Sender: TObject);
  59. var
  60.   aTypes: TConvTypeArray;
  61.   i: Integer;
  62. begin
  63.   ListTypes.Clear;
  64.   CurrFamily := aFamilies [ComboFamilies.ItemIndex];
  65.   GetConvTypes (CurrFamily, aTypes);
  66.   for i := Low(aTypes) to High(aTypes) do
  67.     ListTypes.Items.Add (
  68.       ConvTypeToDescription (aTypes[i]));
  69. end;
  71. procedure TForm1.BtnSimpleClick(Sender: TObject);
  72. begin
  73.   // samples
  75.   // convert temperatures: celsius to fahrenheit
  76.   ShowMessage ('31 Celsius -> ' + FloatToStr (
  77.     Convert (31, tuCelsius, tuFahrenheit)) + ' Fahrenheit');
  79.   // convert speed: miles per hour to meters per seconds
  80.   ShowMessage ('20 Miles/Hour -> ' + FloatToStr (
  81.     Convert(20, duMiles, tuHours, duMeters, tuSeconds)) +
  82.     ' Meters/Second');
  83. end;
  85. procedure TForm1.DoConvert(Sender: TObject);
  86. var
  87.   BaseType, DestType: TConvType;
  88. begin
  89.   // get and check base type
  90.   if not DescriptionToConvType(CurrFamily, EditType.Text, BaseType) then
  91.     EditType.Font.Color := clRed
  92.   else
  93.     EditType.Font.Color := clBlack;
  95.   // get and check destination type
  96.   if not DescriptionToConvType(CurrFamily, EditDestination.Text, DestType) then
  97.     EditDestination.Font.Color := clRed
  98.   else
  99.     EditDestination.Font.Color := clBlack;
  101.   if (DestType = 0) or (BaseType = 0) then
  102.     EditConverted.Text := 'Invalid type'
  103.   else
  104.     EditConverted.Text := FloatToStr (Convert (
  105.       StrToFloat (EditAmount.Text), BaseType, DestType));
  106. end;
  108. procedure TForm1.EditTypeDragOver(Sender, Source: TObject; X, Y: Integer;
  109.   State: TDragState; var Accept: Boolean);
  110. begin
  111.   Accept := True;
  112. end;
  114. procedure TForm1.EditTypeDragDrop(Sender, Source: TObject; X, Y: Integer);
  115. begin
  116.   (Sender as TEdit).Text := (Source as TListBox).Items
  117.     [(Source as TListBox).ItemIndex];
  118. end;
  120. end.