home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX08.ZIP / PARAMS / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-13  |  801 b   |  48 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Classes,
  7.   Graphics, Controls,
  8.   Printers, Forms, StdCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     Edit4: TEdit;
  16.     Edit5: TEdit;
  17.     Edit6: TEdit;
  18.     EditSource: TEdit;
  19.     Button1: TButton;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure WriteAll(NewString: String);
  22.   end;
  23.  
  24. var
  25.   Form1: TForm1;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TForm1.WriteAll(NewString: String);
  32. begin
  33.   Edit1.Text := NewString;
  34.   Edit2.Text := NewString;
  35.   Edit3.Text := NewString;
  36.   Edit4.Text := NewString;
  37.   Edit5.Text := NewString;
  38.   Edit6.Text := NewString;
  39. end;
  40.  
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. begin
  43.   WriteAll(EditSource.Text);
  44. end;
  45.  
  46. end.
  47.  
  48.