home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / LABELER.ZIP / DEMO1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-16  |  1.2 KB  |  62 lines
  1. unit Demo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, Lbldlg, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     LabelDialog1: TLabelDialog;
  14.     MainMenu1: TMainMenu;
  15.     Label2: TMenuItem;
  16.     Read1: TMenuItem;
  17.     Write1: TMenuItem;
  18.     Erase1: TMenuItem;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     Edit2: TEdit;
  22.     Edit3: TEdit;
  23.     procedure Read1Click(Sender: TObject);
  24.     procedure Write1Click(Sender: TObject);
  25.     procedure Erase1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TForm1.Read1Click(Sender: TObject);
  40. begin
  41.  
  42.      Edit1.Text := LabelDialog1.ReadVolume( Edit1.Text );
  43.  
  44. end;
  45.  
  46. procedure TForm1.Write1Click(Sender: TObject);
  47. begin
  48.      LabelDialog1.DeleteVolume( ExtractFilePath( Edit2.Text ) );
  49.      LabelDialog1.WriteVolume( Edit2.Text );
  50. end;
  51.  
  52. procedure TForm1.Erase1Click(Sender: TObject);
  53. var
  54.    P : string;
  55. begin
  56.      P := ExtractFilePath( Edit3.Text );
  57.      LabelDialog1.DeleteVolume( Edit3.Text );
  58.      Edit3.Text := LabelDialog1.ReadVolume( P );
  59. end;
  60.  
  61. end.
  62.