1
0
lazarus-tutorials/simple_examples/stortstrings.pas
2021-09-30 14:35:36 -04:00

14 lines
273 B
ObjectPascal

program stortstrings;
{$mode objfpc}{$H+}
var testStr: string[10] = 'Lazarus';
begin
WriteLn('This shows testStr enclosed by square brackets [', testStr, ']');
WriteLn('testStr''s length is ', Length(testStr), ' characters');
{$IFDEF WINDOWS}
ReadLn;
{$ENDIF}
end.