帕斯卡 - 弦乐

---

Pascal 中的字符串实际上是具有可选大小规范的字符序列。字符可以是数字、字母、空格、特殊字符或所有字符的组合。Extended Pascal 根据系统和实现提供多种类型的字符串对象。我们将讨论程序中使用的更常见的字符串类型。

您可以通过多种方式定义字符串 -

• 字符数组- 这是一个字符串，它是用单引号括起来的零个或多个字节大小的字符的序列。

• 字符串变量- 字符串类型的变量，如 Turbo Pascal 中定义。

• 短字符串- 具有大小规范的字符串类型变量。

• 空终止字符串- pchar类型的变量。

• AnsiStrings - Ansistrings 是没有长度限制的字符串。

Pascal 只提供一种字符串运算符，即字符串连接运算符 (+)。

例子

以下程序打印前四种字符串。我们将在下一个示例中使用 AnsiStrings。

program exString;
var
   greetings: string;
   name: packed array [1..10] of char;
   organisation: string[10];
   message: pchar;

begin
   greetings := 'Hello ';
   message := 'Good Day!';
   
   writeln('Please Enter your Name');
   readln(name);
   
   writeln('Please Enter the name of your Organisation');
   readln(organisation);
   
   writeln(greetings, name, ' from ', organisation);
   writeln(message); 
end.

当上面的代码被编译并执行时，它会产生以下结果 -

Please Enter your Name
John Smith
Please Enter the name of your Organisation
Infotech
Hello John Smith from Infotech

以下示例使用了更多函数，让我们看看 -

program exString;
uses sysutils;
var
   str1, str2, str3 : ansistring;
   str4: string;
   len: integer;

begin
   str1 := 'Hello ';
   str2 := 'There!';
   
   (* copy str1 into str3 *)
   str3 := str1;
   writeln('appendstr( str3, str1) :  ', str3 );
   
   (* concatenates str1 and str2 *)
   appendstr( str1, str2);
   writeln( 'appendstr( str1, str2) ' , str1 );
   str4 := str1 + str2;
   writeln('Now str4 is: ', str4);
   
   (* total lenghth of str4 after concatenation  *)
   len := byte(str4[0]);
   writeln('Length of the final string str4: ', len); 
end.

当上面的代码被编译并执行时，它会产生以下结果 -

appendstr( str3, str1) : Hello
appendstr( str1, str2) : Hello There!
Now str4 is: Hello There! There!
Length of the final string str4: 18

Pascal 字符串函数和过程

Pascal 支持多种操作字符串的函数和过程。这些子程序在实施方面有所不同。在这里，我们列出了 Free Pascal 提供的各种字符串操作子程序 -