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