lazarus-tutorials/simple_examples/string_functions.pas

program string_functions;

{$mode objfpc}{$H+}

uses strutils, sysutils;

var st: string;

begin
	WriteLn('Enter a word or pharase ([Enter] completes the entry)');
	ReadLn(st);
	WriteLn('You typed: ', st);
	WriteLn('Your text converted to uppercase: ', UpperCase(st));
	WriteLn('Your text converted to lowercase: ', LowerCase(st));
	WriteLn('Your text converted to proper case: ',
					AnsiProperCase(st, StdWordDelims));
	WriteLn('Your text reversed: ', ReverseString(st));
	{$IFDEF WINDOWS}
	ReadLn;
	{$ENDIF}
end.