1
0
lazarus-tutorials/simple_examples/stortstrings.pas

14 lines
278 B
ObjectPascal
Raw Normal View History

2021-09-23 12:15:42 -04:00
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.