Delphi開發技巧：字符串的其他操作[2]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

      $BEE$BE:result:=D;
      $BEA$BA:result:=E;
      $BA$BC:result:=F;
      $BC$BFD:result:=G;
      $BFE$BBF:result:=H;
      $BBF$BFA:result:=J;
      $BFA$CAB:result:=K;
      $CAC$CE:result:=L;
      $CE$CC:result:=M;
      $CC$CB:result:=N;
      $CB$CBD:result:=O;
      $CBE$CD:result:=P;
      $CDA$CBA:result:=Q;
      $CBB$CF:result:=R;
      $CF$CBF:result:=S;
      $CBFA$CDD:result:=T;
      $CDDA$CEF:result:=W;
      $CEF$D:result:=X;
      $DB$DD:result:=Y;
      $DD$DF:result:=Z;
     ELSE
      result:=char();   //返加空值
     end;
    end;
    procedure TFormButtonClick(Sender: TObject);
    var
     i:Integer;
     hp:String;
    begin
     EditText:=;
     for i:= to (length(EditText) div ) do
     begin
       hp:=Copy(EditTexti*);
       EditText:=EditText+py(hp);
     end;
    end;

right>[http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/8461.html