home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / QDB / QDBG.ZIP / MemoUnit.pas < prev    next >
Pascal/Delphi Source File  |  1998-07-29  |  741b  |  41 lines
  1. unit MemoUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ComCtrls, ExtCtrls;
  8.  
  9. type
  10.   TMemoForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     CancelButton: TButton;
  14.     SaveButton: TButton;
  15.     RichEdit: TRichEdit;
  16.     LoadButton: TButton;
  17.     OpenDialog: TOpenDialog;
  18.     procedure LoadButtonClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   MemoForm: TMemoForm;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TMemoForm.LoadButtonClick(Sender: TObject);
  33. begin
  34.   if OpenDialog.Execute then
  35.   begin
  36.     RichEdit.Lines.LoadFromFile(OpenDialog.FileName);
  37.   end;
  38. end;
  39.  
  40. end.
  41.