home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / acl-lib.zip / ACLLibraryTestFormUnit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-27  |  1.6 KB  |  73 lines
  1. unit ACLLibraryTestFormUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TACLLibraryTestForm = class(TForm)
  11.     Edit1: TEdit;
  12.     Button1: TButton;
  13.     StartDelEdit: TEdit;
  14.     LengthDelEdit: TEdit;
  15.     NextValEdit: TEdit;
  16.     SepEdit: TEdit;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Label3: TLabel;
  20.     StartExtractEdit: TEdit;
  21.     Label4: TLabel;
  22.     Button2: TButton;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   ACLLibraryTestForm: TACLLibraryTestForm;
  33.  
  34. implementation
  35.  
  36. uses
  37.   ACLString;
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TACLLibraryTestForm.Button1Click(Sender: TObject);
  42. var
  43.   AString: TAString;
  44.   Start, Len: longint;
  45. begin
  46.   AString:= TAString.CreateFrom( Edit1.Text );
  47.   Start:= StrToInt( StartDelEdit.Text );
  48.   Len:= StrToInt( LengthDelEdit.Text );
  49.   AString.Delete( Start, Len );
  50.   Edit1.Text:= AString.AsString;
  51.   AString.Destroy;
  52. end;
  53.  
  54. procedure TACLLibraryTestForm.Button2Click(Sender: TObject);
  55. var
  56.   AString: TAString;
  57.   NextVal: TAString;
  58.   Start: longint;
  59.   Sep: Char;
  60. begin
  61.   AString:= TAString.CreateFrom( Edit1.Text );
  62.   NextVal:= TAString.Create;
  63.   Start:= StrToInt( StartExtractEdit.Text );
  64.   Sep:= SepEdit.Text[ 1 ];
  65.   AString.ExtractNextValue( Start, NextVal, Sep );
  66.   NextValEdit.Text:= NextVal.AsString;
  67.   StartExtractEdit.Text:= IntToStr( Start );
  68.   AString.Destroy;
  69.   NextVal.Destroy;
  70. end;
  71.  
  72. end.
  73.