开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
mainunit.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：2k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

mainunit.pas：源码内容
  1. unit mainunit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons;
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     GroupBox1: TGroupBox;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     Label7: TLabel;
  17.     Label4: TLabel;
  18.     Edit2: TEdit;
  19.     Edit5: TEdit;
  20.     Label3: TLabel;
  21.     Label5: TLabel;
  22.     Edit3: TEdit;
  23.     Label6: TLabel;
  24.     Edit4: TEdit;
  25.     procedure BitBtn1Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     procedure UrlSplit(UrlStr:String);
  30.     { Public declarations }
  31.   end;
  33. var
  34.   Form1: TForm1;
  36. implementation
  38. {$R *.dfm}
  39. procedure TForm1.UrlSplit(UrlStr:String);
  40. var
  41.  TempStr,UserPwdStr:String;
  42.  Ptn:Integer;
  43. begin
  44.  TempStr:=LowerCase(UrlStr);
  45.  if (Pos('http',TempStr)=1) then
  46.   begin
  47.    Label3.Caption:='Http协议类型';
  48.    Label5.Enabled:=False;
  49.    Label6.Enabled:=False;
  50.    Edit3.Enabled:=False;
  51.    Edit4.Enabled:=False;
  52.    Delete(TempStr,1,7);
  53.    Edit5.Text:=TempStr;
  54.   end
  55.  else if (Pos('ftp',TempStr)=1)then
  56.   begin
  57.    Delete(TempStr,1,6);
  58.    if (Pos(':',TempStr)<>0) then
  59.     begin
  60.      Label3.Caption:='Ftp协议密码用户登录类型';
  61.      Ptn:=Pos('@',TempStr);
  62.      UserPwdStr:=Copy(TempStr,1,Ptn-1);
  63.      Delete(TempStr,1,Ptn);
  64.      Label5.Enabled:=True;
  65.      Label6.Enabled:=True;
  66.      Edit3.Enabled:=True;
  67.      Edit4.Enabled:=True;
  68.      Ptn:=Pos(':',UserPwdStr);
  69.      Edit3.Text:=Copy(UserPwdStr,1,Ptn-1);
  70.      Delete(UserPwdStr,1,Ptn);
  71.      Edit4.Text:=UserPwdStr;
  72.      Edit5.Text:=TempStr;
  73.     end
  74.     else
  75.     begin
  76.      Label3.Caption:='Ftp协议匿名登录类型';
  77.      Label5.Enabled:=False;
  78.      Label6.Enabled:=False;
  79.      Edit3.Enabled:=False;
  80.      Edit4.Enabled:=False;
  81.      Edit5.Text:=TempStr;
  82.     end;
  83.   end
  84.  else
  85.   begin
  86.    ShowMessage('该URL地址不合法,请重新输入!');
  87.    Edit1.SetFocus;
  88.    Edit1.SelectAll;
  89.    Exit;
  90.   end;
  91.  While (Pos('/',TempStr)<>0 ) do
  92.     begin
  93.      Ptn:=Pos('/',TempStr);
  94.      Delete(TempStr,1,Ptn);
  95.     end;
  96.     Edit2.Text:=TempStr;  
  97. end;
  99. procedure TForm1.BitBtn1Click(Sender: TObject);
  100. begin
  101.  if Edit1.Text<>'' then
  102.   UrlSplit(Edit1.Text);
  103. end;
  105. end.