STRINGLIST

Function  NumOK(S: string ): boolean ;     // 单字节数字

var  I: integer ;

begin

   NumOK:= True ;

   for  i:= 1  to  Length(S)  do

   begin

     Case  Ord(S[I])  of

       48..57  :  ;            //  0123456789

     else

       NumOK:= False ;

     end ;

   end ;

end ;

 

 

procedure  GetMyString(S: string ; var  s1,s2,s3:sting);

var

   sL: TStringList;

   sAdd,sName,sTel:  string ;   

begin

   sL:= TStringList . Create;

   sL . Delimiter:=  ' ' ;

   sL . DelimitedText:=Trim(S);

   S1:= sL[ 0 ];                // 地址

   S2:= sL[ 1 ];                // 姓名

   S3:= sL[ 2 ];                // 电话

   sL . Free;

   if  NumOK(S1)  then  begin

     sTel:=S1;

     if  length(S2)>length(S3)

       then  begin

         sAdd:=S2;

         sName:=S3

       end

       else  begin

         sAdd:=S3;

         sName:=S2

       end ;

   end ;

   if  NumOK(S2)  then  begin

     sTel:=S2;

     if  length(S1)>length(S3)

       then  begin

         sAdd:=S1;

         sName:=S3

       end

       else  begin

         sAdd:=S3;

         sName:=S1

       end ;

   end ;

   if  NumOK(S3)  then  begin

     sTel:=S3;

     if  length(S1)>length(S2)

       then  begin

         sAdd:=S1;

         sName:=S2

       end

       else  begin

         sAdd:=S2;

         sName:=S1

       end ;

   end ;

   S1:=sAdd;

   S2:=sName;

   S3:=sTel;

end ;

 

//调用

var  S,sAdd,sName,sTel: string ;

begin

   S:= '上海市嘉定区人民路100号 万宇豪 13155558888' ;

//  S:='万宇豪 13155558888 上海市嘉定区人民路100号';

//  S:='13155558888 上海市嘉定区人民路100号 万宇豪';

   GetMyString(S,sAdd,sName,sTel);

   Showmessage(sAdd);   // 上海市嘉定区人民路100号

   Showmessage(sName);  // 万宇豪

   Showmessage(sTol);   // 13155558888

end ;