mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 08:51:37 +01:00
18 lines
313 B
ObjectPascal
18 lines
313 B
ObjectPascal
Program Example46;
|
|
|
|
{ This program demonstrates the StrBufSize function }
|
|
{$H+}
|
|
|
|
Uses sysutils;
|
|
|
|
Const S = 'Some nice string';
|
|
|
|
Var P : Pchar;
|
|
|
|
Begin
|
|
P:=StrAlloc(Length(S)+1);
|
|
StrPCopy(P,S);
|
|
Write (P, ' has length ',length(S));
|
|
Writeln (' and buffer size ',StrBufSize(P));
|
|
StrDispose(P);
|
|
End. |