home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / acl-lib.zip / ACLLibraryTestForm.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-27  |  1KB  |  69 lines
  1. Unit ACLLibraryTestForm;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   Classes, Forms, Graphics, Buttons,
  7.   ACLConstants, ACLFileIOUtility,
  8.   ACLFileUtility, ACLFindFunctions,
  9.   ACLPCharUtility, ACLProfile,
  10.   ACLStringUtility, ACLUtility,
  11.   PCharList,
  12.   StdCtrls;
  13.  
  14. Type
  15.   TACLLibraryTestForm = Class (TForm)
  16.     Memo1: TMemo;
  17.     Button1: TButton;
  18.     Edit1: TEdit;
  19.     Procedure ACLLibraryTestFormOnDestroy (Sender: TObject);
  20.     Procedure ACLLibraryTestFormOnDismissDlg (Sender: TObject);
  21.     Procedure Button1OnClick (Sender: TObject);
  22.   Private
  23.     {Insert private declarations here}
  24.   Public
  25.     {Insert public declarations here}
  26.   End;
  27.  
  28. Var
  29.   ACLLibraryTestForm: TACLLibraryTestForm;
  30.  
  31. Implementation
  32.  
  33. uses
  34.   ACLString;
  35.  
  36. Procedure TACLLibraryTestForm.ACLLibraryTestFormOnDestroy (Sender: TObject);
  37. Begin
  38.   CheckAllAStringsDestroyed;
  39. End;
  40.  
  41. Procedure TACLLibraryTestForm.ACLLibraryTestFormOnDismissDlg (Sender: TObject);
  42. Begin
  43.  
  44. End;
  45.  
  46. Procedure TACLLibraryTestForm.Button1OnClick (Sender: TObject);
  47. var
  48. //  T: PChar;
  49.   AString: TAString;
  50.   AString2: TAString;
  51. begin
  52. //  T:= Memo1.Lines.GetText;
  53.   AString:= TAString.CreateFromPCharWithDispose( Memo1.Lines.GetText );
  54.  
  55.   AString2:= TAString.CreateFrom( Edit1.Text );
  56.   AString2.Trim;
  57.  
  58.   AString.AddAString( AString2 );
  59.  
  60.   Memo1.Lines.SetText( AString.AsPChar );
  61.  
  62.   AString.Destroy;
  63.   AString2.Destroy;
  64. End;
  65.  
  66. Initialization
  67.   RegisterClasses ([TACLLibraryTestForm, TMemo, TButton, TEdit]);
  68. End.
  69.