【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:Maxlibsetup.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit MaxLibSetup;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, ExtCtrls;
    
    type
      TMaxLibSetupForm = class(TForm)
        ModifyBtn: TButton;
        Escbtn: TButton;
        Panel1: TPanel;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label15: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        Edit18: TEdit;
        Edit17: TEdit;
        Edit16: TEdit;
        Edit15: TEdit;
        Edit14: TEdit;
        Edit13: TEdit;
        Edit12: TEdit;
        Edit11: TEdit;
        Edit10: TEdit;
        Edit9: TEdit;
        Edit8: TEdit;
        Edit7: TEdit;
        Edit6: TEdit;
        Edit5: TEdit;
        Edit4: TEdit;
        Edit3: TEdit;
        Edit2: TEdit;
        Edit1: TEdit;
        Edit19: TEdit;
        Edit20: TEdit;
        Edit21: TEdit;
        Edit22: TEdit;
        Edit23: TEdit;
        Edit24: TEdit;
        Edit25: TEdit;
        Edit26: TEdit;
        Edit27: TEdit;
        Edit28: TEdit;
        Edit29: TEdit;
        Edit30: TEdit;
        Edit31: TEdit;
        Edit32: TEdit;
        Edit33: TEdit;
        Edit34: TEdit;
        Edit35: TEdit;
        Edit36: TEdit;
        Edit37: TEdit;
        Edit38: TEdit;
        Edit39: TEdit;
        Edit40: TEdit;
        Edit41: TEdit;
        Edit42: TEdit;
        Edit43: TEdit;
        Label43: TLabel;
        Label42: TLabel;
        Label41: TLabel;
        Label40: TLabel;
        Label38: TLabel;
        Label39: TLabel;
        Label19: TLabel;
        Label20: TLabel;
        Label21: TLabel;
        Label22: TLabel;
        Label23: TLabel;
        Label24: TLabel;
        Label25: TLabel;
        Label26: TLabel;
        Label27: TLabel;
        Label28: TLabel;
        Label29: TLabel;
        Label30: TLabel;
        Label31: TLabel;
        Label32: TLabel;
        Label33: TLabel;
        Label34: TLabel;
        Label35: TLabel;
        Label36: TLabel;
        Label37: TLabel;
        GroupBox1: TGroupBox;
        Label44: TLabel;
        Label45: TLabel;
        Label46: TLabel;
        procedure ModifyBtnClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
      private
         procedure AllEditEnabled(Sender: TObject);
         procedure SaveMaxLibSetup(Sender: TObject);
         procedure Init_AllEdit(Sender: TObject);
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      MaxLibSetupForm: TMaxLibSetupForm;
    
    implementation
    
    uses Yccheck;
    
    {$R *.DFM}
    
    procedure TMaxLibSetupForm.AllEditEnabled(Sender: TObject);
    Var
     I:Integer;
    begin
      for I := 0 to ComponentCount - 1 do
         If (Components[I] is Tedit) then
            TEdit(Components[I]).Enabled:= True;
    end;
    
    procedure TMaxLibSetupForm.Init_AllEdit(Sender: TObject);
    Var
     I:Integer;
    begin
      for I := 0 to ComponentCount - 1 do
         If (Components[I] is Tedit) then
            TEdit(Components[I]).Text:= '####';
    end;
    
    procedure TMaxLibSetupForm.SaveMaxLibSetup(Sender: TObject);
    Var
      MaxLibF:TextFile;
      I:Integer;
    begin
      AssignFile(MaxLibF,'EMax.lib');
      ReWrite(MaxLibF);
    
      for I := 0 to ComponentCount - 1 do
         If (Components[I] is Tedit) then
             Writeln(MaxLibF,TEdit(Components[I]).Text);
             
      CloseFile(MaxLibF);
    end;
    
    procedure TMaxLibSetupForm.ModifyBtnClick(Sender: TObject);
    
    begin
      if  ModifyBtn.Caption='修 改' then
         begin
          ModifyBtn.Caption:='确 定';
          AllEditEnabled(Sender);
         end
         else
           begin
          SaveMaxLibSetup(Sender);
          Close
          end;
    end;
    
    procedure TMaxLibSetupForm.FormShow(Sender: TObject);
    Var
      MaxLibF:TextFile;
      S:String;
      I:Integer;
    begin
      if FileExists('EMax.lib') then
      begin
       AssignFile(MaxLibF,'EMax.lib');
       Reset(MaxLibF);
    
       for I := 0 to ComponentCount - 1 do
         If (Components[I] is Tedit) and (Not Eof(MaxLibF)) then
              begin
                  Readln(MaxLibF,S); TEdit(Components[I]).Text:=S;
              end
                else
                  If (Components[I] is Tedit) and Eof(MaxLibF) then
                   TEdit(Components[I]).Text:='####';
    
      CloseFile(MaxLibF);
      end
        else
            Init_AllEdit(Self);
    end;
    
    
    procedure TMaxLibSetupForm.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if Not (Key ='#') and ((Key < '0') or (Key > '9')) then Key:=Chr(0);
    end;
    
    end.
     
    

上一篇：Materiel_S_Modfy.pas
下一篇：病理学实验课多样化教学方法探讨