1
0
lazarus-tutorials/simple_examples/stortstrings.pas

14 lines
273 B
ObjectPascal
Raw Permalink Normal View History

2021-09-23 12:15:42 -04:00
program stortstrings;
{$mode objfpc}{$H+}
var testStr: string[10] = 'Lazarus';
begin
2021-09-30 14:35:36 -04:00
WriteLn('This shows testStr enclosed by square brackets [', testStr, ']');
WriteLn('testStr''s length is ', Length(testStr), ' characters');
{$IFDEF WINDOWS}
ReadLn;
{$ENDIF}
2021-09-23 12:15:42 -04:00
end.