blob: d0e3ac6e806211cd82ee1153e8d6e2b04f151e9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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.
|
