mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 12:09:30 +02: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. |