Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, sSkinProvider, sSkinManager;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Button2: TButton;
Memo2: TMemo;
Label1: TLabel;
IdHTTP1: TIdHTTP;
Edit2: TEdit;
Button3: TButton;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Button4: TButton;
Button5: TButton;
Timer1: TTimer;
Button6: TButton;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
t:integer;
x,pars,temp:string;
coded:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=IdHTTP1.Get(edit1.text);
Memo1.Text:=x;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
pars:=x;
for i:=1 to 20 do
begin
if pos('hovercard-id="',pars)<>0
then
begin
delete(pars,5,pos('hovercard-id="',pars));
delete(pars,1,pos('"',pars));
temp:=copy(pars,1,pos('"',pars)-1);
Memo2.Lines.Add(''+temp+''+edit2.text+'');
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Width := StrToInt(Edit3.Text);
form1.Edit2.visible:=true;
form1.Label2.Visible:=true;
form1.Label3.Visible:=true;
form1.Button4.Visible:=true;
form1.Button5.Visible:=true;
form1.Button6.Visible:=true;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Clear;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case coded of
0:Memo3.Text:='C';
1:Memo3.Text:=Memo3.Text+'o';
2:Memo3.Text:=Memo3.Text+'d';
3:Memo3.Text:=Memo3.Text+'e';
4:Memo3.Text:=Memo3.Text+'d';
5:Memo3.Text:=Memo3.Text+' ';
6:Memo3.Text:=Memo3.Text+'b';
7:Memo3.Text:=Memo3.Text+'y';
8:Memo3.Text:=Memo3.Text+' ';
9:Memo3.Text:=Memo3.Text+'T';
10:Memo3.Text:=Memo3.Text+'r';
11:Memo3.Text:=Memo3.Text+'a';
12:Memo3.Text:=Memo3.Text+'i';
13:Memo3.Text:=Memo3.Text+'d';
14:Memo3.Text:=Memo3.Text+'e';
15:Memo3.Text:=Memo3.Text+'n';
16:Memo3.Text:=Memo3.Text+'T';
17:Timer1.Enabled:=false;
end;
inc(coded);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
coded:=0;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Memo2.Lines.SaveToFile('login.txt');
end;
procedure TForm1.Button5Click(Sender: TObject);
var
SL : TStringList;
i, i2 : integer;
flag : Boolean;
begin
SL := TStringList.Create;
SL.AddStrings(Memo2.Lines);
for i := Memo2.Lines.Count - 1 downto 0 do
begin
flag := False;
for i2 := SL.Count - 1 downto 0 do
begin
if Memo2.Lines[i] = SL.Strings[i2] then
if flag then
SL.Delete(i2)
else
flag := True;
end;
end;
Memo2.Clear;
Memo2.Lines.AddStrings(SL);
SL.Free;
end;