setuser.pas

< Delphi网络通信协议分析与应用实现>>一书的源代码。

unit setuser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TUserForm = class(TForm)
    LBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IPlist:TStringlist;
  end;

var
  UserForm: TUserForm;

implementation

{$R *.dfm}

procedure TUserForm.FormShow(Sender: TObject);
var
i:integer;
begin
    lbox1.Clear;
    for i:=0 to IPlist.Count-1 do
    begin
        lBox1.Items.Add(IPlist.Strings[i]);
    end;
end;

procedure TUserForm.FormCreate(Sender: TObject);
var
F: TextFile;
S: string;
begin
    IPlist:=TStringlist.Create;
    AssignFile(F, 'ip.cfg'); { File selected in dialog }
    Reset(F);
    while not eof(F) do
    begin
        Readln(F, S);
        IPlist.Add(S);
    end;
    CloseFile(F);
end;

procedure TUserForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
i:integer;
F: TextFile;
S: string;
begin
    IPlist.Clear;
    AssignFile(F, 'ip.cfg'); { File selected in dialog }
    //Reset(F);
    Rewrite(F);

    for i:=0 to LBox1.Count-1 do
    begin
        if LBox1.Items.Strings[i]<>'' then
        begin
            IPList.Add(LBox1.Items.Strings[i]);
            Writeln(F,LBox1.Items.Strings[i]);
        end;
    end;
    CloseFile(F);
end;
procedure TUserForm.Button1Click(Sender: TObject);
begin
    lbox1.Items.Add(edit1.text);
end;

procedure TUserForm.Button2Click(Sender: TObject);
begin
    if lbox1.SelCount=0 then exit;
    lbox1.DeleteSelected;
end;

end.