mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 08:31:49 +01:00
12 lines
222 B
ObjectPascal
12 lines
222 B
ObjectPascal
Program Example80;
|
|
|
|
{ This program demonstrates the StrFmt function }
|
|
|
|
Uses sysutils;
|
|
|
|
Var S : AnsiString;
|
|
|
|
Begin
|
|
SetLEngth(S,80);
|
|
Writeln (StrFmt (@S[1],'For some nice examples of fomatting see %s.',['Format']));
|
|
End. |