| 1234567891011121314151617181920 |
- var
- s1, s2: ansistring;
- begin
- s1 := 'abc';
- s2:='';
- { ensure the codepage of s1 is different from defaultsystemcodepage }
- if defaultsystemcodepage=866 then
- setcodepage(rawbytestring(s1),1251,false)
- else
- setcodepage(rawbytestring(s1),866,false);
- { if the destination is empty, insert must create a new string
- with the same code page as the source }
- Insert(s1, s2, 1);
- if StringRefCount(s1)<>1 then
- halt(1);
- if StringRefCount(s2)<>1 then
- halt(2);
- if stringcodepage(s2)<>stringcodepage(s1) then
- halt(3);
- end.
|
