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

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

Delphi控件源码

开发平台：

Delphi

StrForm.pas：源码内容
  1. unit StrForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     EditResemble1: TEdit;
  12.     EditResemble2: TEdit;
  13.     ButtonResemble: TButton;
  14.     ListBoxMatch: TListBox;
  15.     EditMatch: TEdit;
  16.     ButtonMatches: TButton;
  17.     ButtonIndex: TButton;
  18.     EditSample: TEdit;
  19.     ButtonTriplicate: TButton;
  20.     ButtonReverse: TButton;
  21.     ButtonRandom: TButton;
  22.     procedure ButtonResembleClick(Sender: TObject);
  23.     procedure ButtonMatchesClick(Sender: TObject);
  24.     procedure ButtonIndexClick(Sender: TObject);
  25.     procedure ButtonTriplicateClick(Sender: TObject);
  26.     procedure ButtonReverseClick(Sender: TObject);
  27.     procedure ButtonRandomClick(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.   private
  30.     strArray: array of string;
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   Form1: TForm1;
  38. implementation
  40. {$R *.DFM}
  42. uses
  43.   StrUtils;
  45. procedure TForm1.ButtonResembleClick(Sender: TObject);
  46. begin
  47.   ShowMessage (BoolToStr (AnsiResemblesText (EditResemble1.Text, EditResemble2.Text), True));
  48. end;
  50. procedure TForm1.ButtonMatchesClick(Sender: TObject);
  51. begin
  52.   ShowMessage (BoolToStr (AnsiMatchText(EditMatch.Text, strArray), True));
  53. end;
  55. procedure TForm1.ButtonIndexClick(Sender: TObject);
  56. var
  57.   nMatch: Integer;
  58. begin
  59.   nMatch := AnsiIndexText(EditMatch.Text, strArray);
  60.   ShowMessage (IfThen (nMatch >= 0,
  61.     'Matches the string number ' + IntToStr (nMatch),
  62.     'No match'));
  63. end;
  65. procedure TForm1.ButtonTriplicateClick(Sender: TObject);
  66. begin
  67.   ShowMessage (DupeString (EditSample.Text, 3));
  68. end;
  70. procedure TForm1.ButtonReverseClick(Sender: TObject);
  71. begin
  72.   ShowMessage (ReverseString (EditSample.Text));
  73. end;
  75. procedure TForm1.ButtonRandomClick(Sender: TObject);
  76. begin
  77.   ShowMessage (RandomFrom (strArray));
  78. end;
  80. procedure TForm1.FormCreate(Sender: TObject);
  81. var
  82.   I: Integer;
  83. begin
  84.   SetLength (strArray, ListBoxMatch.Items.Count);
  85.   for I := 0 to ListBoxMatch.Items.Count - 1 do
  86.     strArray [I] := ListBoxMatch.Items [I];
  88.   // set the random seed, for the RandomFrom calls
  89.   Randomize;
  90. end;
  92. end.