不知是不是你要的 function ShowCode(ACode: string): string; Var sTmp: string; i: integer; begin Result := '; for i := 1 to Length(ACode) do begin Result := Result+IntToHex(Ord(ACode[i]),2)+' ' ; end; end; VAR S, S1,S2,S3:STRING; begin Edit1.text:=ShowCode(Edit11.text); S:=TRIM(COPY(Edit1.text,1,3)); S1:=TRIM(COPY(Edit1.text,3,3)); Edit1.text:= S+S1; end;
----------------------------------------------