mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-05-21 14:37:35 +08:00
patacongo
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
37 lines
708 B
ObjectPascal
37 lines
708 B
ObjectPascal
PROGRAM stringcat;
|
|
VAR
|
|
string1, string2 : string
|
|
|
|
FUNCTION inquote(instring : string) : string;
|
|
BEGIN
|
|
inquote := '"' + instring + '"'
|
|
END;
|
|
|
|
BEGIN
|
|
WRITELN(string1);
|
|
|
|
string1 := 'Now ';
|
|
WRITELN(inquote(string1));
|
|
|
|
string2 := 'is the time ';
|
|
WRITELN(inquote(string2));
|
|
|
|
string1 := string1 + string2 + 'for all good men ';
|
|
WRITELN(inquote(string1));
|
|
|
|
string2 := 'to come ' + 'to ';
|
|
WRITELN(inquote(string2));
|
|
|
|
string1 := string1 + string2;
|
|
WRITELN(inquote(string1));
|
|
|
|
string2 := 'of their party';
|
|
WRITELN(inquote(string2));
|
|
|
|
string2 := 'the aid ' + string2;
|
|
WRITELN(inquote(string2));
|
|
|
|
string1 := string1 + string2 + '.';
|
|
WRITELN(inquote(string1));
|
|
END.
|