ychatu38.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 59 行

unit YchatU38;

interface

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

type
  TForm34 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form34: TForm34;

implementation

{$R *.dfm}

procedure TForm34.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm34.Button1Click(Sender: TObject);
Var
 C,N: Integer;
 Obj: Tobject;
begin
C:=0;
 For N:=ListBox1.Items.Count-1 Downto 0 Do
  Begin
    If Ignored.Find(ListBox1.Items[N],Obj)=False Then
     Begin
      Ignored.Add(ListBox1.Items[N],Obj);
      Inc(C);
     End;
  End;
  If C=0 Then
   ShowMessage('Yahelite/Cheeta To Y!mLite Merge Already Complete!')
    else
   ShowMessage('Import Complete! Merged: '+IntToStr(C)+' Of a total of '+IntToStr(ListBox1.Items.Count-1)+' Users Into Y!mLite! '+IntToStr((ListBox1.Items.Count-1)-C)+' Already Ignored!');
 Close;
end;

end.