귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
lazarus lazarus 입니다.
글내용 - lazarus
 rawbytestring 뙣移 媛쒖꽑.
뙆瑜댁
(源룄셿)
2015-10-23 삤썑 3:46:28
1681회 조회


첨부파일 다운로드
rawbyte_concat_enhanced_fix_multi_para.zip
븿닔/봽濡쒖떆졇 뙆씪誘명꽣뿉꽌룄 rawbytestring 罹먯뒪똿씠 媛뒫븯룄濡 뻽뒿땲떎.

븘留 씠 뙣移섎뒗 臾몄옄뿴 泥섎━ 洹쒖젙뿉 留욎 븡뒗떎硫,
諛쏆븘뱾씠吏 븡쓣寃 媛숈뒿땲떎.

rawbytestring 蹂닔瑜 궗슜븯嫄곕굹 엯罹먯뒪똿쓣 궗슜븯吏 븡뒗떎硫,
而댄뙆씪윭 rtl뿉꽌 泥섎━븯뒗 諛⑸쾿 썝옒 諛⑸쾿怨 蹂솕媛 뾾뒿땲떎.

異 씠젃寃 궗슜븷 닔 엳뒿땲떎.

program project2;


uses
  sysutils;

var
  s1 : string;
  sw, sh : widestring;
  s2, s3, s4, s5, dumps : string;
  s : string;
  i : integer;

function test(s1, s2:string):string;
begin
  result:=s1+s2;
end;

procedure dumpstrings(const s:string);
begin
  dumps:='';
  for i:=1 to Length(s) do begin
    dumps:=dumps+' '+IntToHex(Byte(s[i]),2);
  end;
  writeln(s,' ',dumps);
end;

begin
  s1:='1234';
  s2:='Grö횩e ÄÜÖ';
  s3:='abcd';
  s5:='븳湲';
  sw:=UTF8Decode(s2);
  s2:=UTF8Encode(sw);
  s4:=UTF8Encode(sw);
  sh:=utf8decode(s5);
  s5:=#199#209;
  //s5:=ansitoutf8(s5);
  s :=rawbytestring(s1+s2)+rawbytestring(s3+s4)+rawbytestring(s4+s5);
  dumpstrings(s);
  writeln('ok');
  s :=rawbytestring(s1+s2+s3+s4+s5)+rawbytestring(s1+s2+s3+s4+s5)+utf8string(s1+s2+s3+s4+s5);
  dumpstrings(s);
  writeln('ok');
  s := test(s1 , s4);
  dumpstrings(s);
  writeln('fail');
  dumpstrings(s3+s2);
  writeln('fail');
  s := test(rawbytestring(s3+s2),s2+s3);
  dumpstrings(s);
  writeln('ok,fail');
  dumpstrings(test(rawbytestring(s3+s2),s2+s3+rawbytestring(s2+s3)));
  writeln('ok,fail,ok');
  readln;
end.