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>] []