mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 23:29:27 +02:00
17 lines
298 B
ObjectPascal
17 lines
298 B
ObjectPascal
Program Example72;
|
|
|
|
{ This program demonstrates the FormatBuf function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var
|
|
S : ShortString;
|
|
|
|
Const
|
|
Fmt : ShortString = 'For some nice examples of fomatting see %s.';
|
|
|
|
Begin
|
|
S:='';
|
|
SetLength(S,FormatBuf (S[1],255,Fmt[1],Length(Fmt),['Format']));
|
|
Writeln (S);
|
|
End. |