|
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.
|
|
|