mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 18:39:25 +01:00
746546ed09
(strecopy, strend, strcat, strcomp, strlcomp, stricomp, strlcat, strrscan,
strlower, strupper, strlicomp, strpos, WideStrAlloc, StrBufSize,
StrDispose)
* adjusted pwidechar version of strnew to call WideStrAlloc instead of
StrAlloc
+ tests for several newly added sysutils pwidechar routines based on
existing tests for equivalent pchar routines
* converted several sysutils ansistr*() function tests to tests for str*
functions
git-svn-id: branches/cpstrrtl@24998 -
21 lines
327 B
ObjectPascal
21 lines
327 B
ObjectPascal
uses
|
|
sysutils;
|
|
|
|
var
|
|
p1, p2, p3, p4: pwidechar;
|
|
begin
|
|
|
|
{ StrECopy(Dest,Source) is equivalent to the following:
|
|
strcopy(Dest,Source);
|
|
StrECopy := StrEnd(Dest);
|
|
}
|
|
p1:='abcdefg';
|
|
getmem(p2,100);
|
|
p3:=strecopy(p2,p1);
|
|
fillchar(p2^,100,0);
|
|
strcopy(p2,p1);
|
|
p4:=strend(p2);
|
|
if p3<>p4 then
|
|
halt(1);
|
|
end.
|