Dancing with Strings

http://baskent.edu.tr/~tkaracay/etudio/ders/prg/pascal/PasHTM1/pas/pasl1007.html

Hi ! We meet again ! Now, I would like to discuss about strings in depth.
How are you doing ? Well, I'm having health problem this day and I need a
rest. I am still able to write this to you. Cheer !
Topics discussed this time are :

  1. String as array of char
  2. Limited length string
  3. String manipulation commands :
    Length, Copy, Pos, Val, Str, Concat, Insert, Delete, Fillchar
  4. String as a pointer of characters (PChar), introduction

Let's begin !

Actually, string is an array of characters. So, suppose s is a string. s[1]
is equal to the first character of s. s[2] is the second character, and so on. Look at this :


var
s : string;
begin
s:='Hello, dear';
writeln(s);
s[1]:='J'; { Replace the first character with J }
s[5]:='y'; { Replace the fifth character with y }
writeln(s); { Jelly, dear }
writeln('The length of s is ',ord(s[0]));
end.

Zeroth character is the character form of the length of that string. So, ord(s[0]) denotes the actual length of s. You may replace it with length(s) which gives the same effect.

Normally, strings would hold 80 characters in maximum. Suppose you would have a set of strings that is about 10 characters long. Declaring each as normal string would be a waste of space. Pascal provides facility to limit the string length. If you would like to have a string that has maximum limit of 10 characters, you would write :

var
s : string[10];

Pascal also provides routines to manipulate string :

  1. Length : return string length.
    Syntax : length(s)
    Example : n:=length(s);
    Suppose s:='Who are you ?'; n would be 13.
  2. Copy : get an excerpt from a string.
    Syntax : copy(s,from,howmuch)
    Example : st:=copy(s,5,3);
    Get an excerpt of 3 characters from s, beginning from the 5th character.
    Suppose s:='Who are you ?'; st will be 'are'.
    Note that if index from is greater than the length of s, st would be
    empty, example :
    st:=copy(s,15,4); { empty string }
    If howmuch exceed the end of the string s, it returns the remainder
    of the string, example :
    st:=copy(s,9,10); st would be equal to 'you ?'
  3. Pos : get the position of a substring from a string.
    Syntax : Pos(substr,s)
    Example : n:=pos('are','Who are you ?'); { n:=5; }
    If the substring is not found, it returns 0.
  4. Val : converts strings to numeric.
    Syntax : val(strvar,numvar,errorcode)
    strvar is a string variable to be converted,
    numvar is any numeric variable either integer or real, and
    errorcode is an integer variable that holds the error code.
    If errorcode is 0, conversion success. Otherwise, it points at the position
    of strvar that cause failure. Example :

    var
    s : string;
    e : integer;
    r : real; begin
    write('Enter a number : '); readln(s);
    val(s,r,e);
    if e<>0 then
    writeln('Error at position : ',e);
    else
    writeln('That was : ',r:4:3);
    end.

  5. Str : converts numeric into strings.
    Syntax : str(numvar,strvar)
    Example :

    var
    s : string;
    i : integer;
    begin
    write('Input an integer : '); readln(i);
    str(i,s);
    writeln('That was : ',s);
    end.

    Note that if you deal with real, you may format it before you convert it into strings. Suppose r is a real variable, s can be like this :

          str(r:4:3,s);
    

    s consists of 4 digits before the decimal point of r, and 3 digits after the decimal point. Example :


    var
    s : string;
    r : real;
    begin
    write('Input a real : '); readln(r);
    str(r:4:3,s);
    writeln('That was : ',s);
    end.

  6. Concat : Concatenates two or more strings
    Syntax : concat(s1,s2,...,sn)
    Example : st:=concat(s1,s2);
    If s1='ABC' and s2='DEF', st would be 'ABCDEF'
    st:=concat('Borland ','Pascal ','ver. ','7.0');
    Would be 'Borland Pascal ver. 7.0'
    You may put as many parameters to concat as possible. If the
    resulting string length is more than 255, it will be truncated
    to 255.
    Concat is the same if we use plus sign (+). For example :
    st:=concat('ABC','DEF'); is the same as
    st:='ABC'+'DEF';
  7. Insert : Insert a string inside another string from indexth character
    Syntax : insert(source,target,index)
    Example :

    var
    s1, s2 : string;
    begin
    s1:='not ';
    s2:='I do love you';
    insert(s1,s2,6);
    writeln(s2); { I do not love you }
    end.

    If the result string length is more than 255, it will be truncated into 255 as well.
  8. Delete : Deletes n characters from string s starting from index i.
    Syntax : delete(s,i,n);
    If index i is greater than length of s, s is unchanged. If n specifies
    more characters than remain (starting from i), the remainder of the
    string is deleted. Example :

    var
    s : string;
    begin
    s:='I am not responsible for that !';
    delete(s,6,3);
    writeln(s); { I am responsible for that }
    end.

  9. Fillchar : fill string s with character c until s is n-1 char long.
    Syntax : fillchar(s,n,c);
    Beware : s[0] is overrided, so don't forget to add s[0]:=chr(n-1); to
    normalize it.

    var
    s : string;
    begin
    fillchar(s,51,'=');
    s[0]:=chr(50);
    end.

Actually, those procedures or functions can be read from Pascal's help. So, refer to Borland Pascal help if you want working examples. You can even make your own string functions. If you don't understand, e-mail me.

As Borland Pascal 7.0 arrives, we know that C style string is adopted in. In C, we view strings either as an array of characters or a pointer of characters. Pointer will be discussed in second lesson. The main reason is that Pascal can not maintain strings larger than 255. Then a new type of string is employed : PChar, a pointer of character.

Pascal string consists of : one byte for its length then the contents. In PChar, just like C, we don't recognize the length. All we know is when the string stops -- that is when we encounter ASCII 0 (NULL). That null stop style makes the C style of string called NULL TERMINATED STRING.

All string manipulation routines for PChar are adopted from C. If you would like to know each one of it, you should learn C, where it came from. Nevertheless, you could even learn it in Borland Pascal help too.

The details of pointers and this type of string could be found in my second lesson of Pascal.


You could compare two strings just like numbers, too ! Suppose s1 and s2 are strings, you could do like this :

    if s1 < s2 then .... (and so on ...)

That's all for this time.


Where to go ?

Back to main page
Back to Pascal Tutorial Lesson 1 contents
To the quiz
Back to Chapter 7 about arrays
To Chapter 9 about records
My page of programming link
Contact me here


By : Roby Joehanes, © 1996, 2000

Pascal 字符串的更多相关文章

  1. 用结构体解析Pascal字符串

    来源:https://www.cnblogs.com/qiuyuwutong/p/8708844.html 1.什么是柔性数组? 柔性数组既数组大小待定的数组, C语言中结构体的最后一个元素可以是大小 ...

  2. Inno Setup, Pascal 字符串带双引号如何写

    Windows 的路径中如果有空格,就需要用双引号括起来.只能填 ASCII-Code-Number (decimal),不能用一般的 escape 方法. # + path + # 查询这个表的第一 ...

  3. Delphi字符串的基本操作与常用函数

    参考:http://www.cnblogs.com/pchmonster/archive/2011/12/16/2290034.html 结合这个博客一起学习:http://www.cnblogs.c ...

  4. Delphi中的各种字符串、String、PChar、Char数组

    参考博客:http://www.cnblogs.com/pchmonster/archive/2011/12/14/2287686.html 其中的所有代码均在Delphi7下测试通过. Delphi ...

  5. Delphi反汇编内部字符串处理函数/过程不完全列表

    Delphi反汇编内部字符串处理函数/过程不完全列表 名称 参数 返回值 作用 等价形式 / 备注   _PStrCat EAX :目标字符串 EDX :源字符串 EAX 连接两个 Pascal 字符 ...

  6. Delphi反汇编内部字符串处理函数不完全列表

    Delphi反汇编内部字符串处理函数/过程不完全列表 名称 参数 返回值 作用 等价形式 / 备注 _PStrCat EAX :目标字符串 EDX :源字符串 EAX 连接两个 Pascal 字符串 ...

  7. C++字符串之一(字符表示)

    在C++中有两种类型可以用于表示字符,char和wchar_t. 但是字符串格式的标准却有很多种,如ASCII,UTF8,UTF16,UTF32等等.字符串的格式和char/wchar_t 的关系是什 ...

  8. delphi 怎么将一个文件流转换成字符串(String到流,String到文件,相互转化)

    //from   http://kingron.myetang.com/zsfunc0d.htm (*//   标题:充分利用pascal字符串类型   说明:和PChar不同,string可以保存# ...

  9. 关于Delphi中的字符串的浅析(瓢虫大作,里面有内存错误的举例)

    关于Delphi中的字符串的浅析 只是浅浅的解析下,让大家可以快速的理解字符串. 其中的所有代码均在Delphi7下测试通过. Delphi 4,5,6,7中有字符串类型包括了: 短字符串(Short ...

随机推荐

  1. 延时对象promise的使用

    promise是ES6(ECMA Script6)的新标准,只能在支持ES6的浏览器中使用 Promise是一个延时对象,创建延时对象时需要传入一个函数类型的参数 这个函数有两个参数:resolve和 ...

  2. H - 覆盖的面积(线段树-线段扫描 + 离散化(板题))

    给定平面上若干矩形,求出被这些矩形覆盖过至少两次的区域的面积. Input 输入数据的第一行是一个正整数T(1<=T<=100),代表测试数据的数量.每个测试数据的第一行是一个正整数N(1 ...

  3. VAuditDemo-文件包含漏洞的审计

    包含漏洞 include.require等先关函数,include($file) 文件包含漏洞的问题在于参数可控(路径.文件名.后缀) include($path.$filename.$ext) 包含 ...

  4. vue渲染src

  5. MYSQL索引类型。MYSQLc储存引擎

                                                            MYSQL索引类型,MYSQLc储存引擎 MySQL索引创建与删除 MySQL存储引擎的 ...

  6. 数据库服务概述,构建MYSQL服务器,数据库基本管理,mysql数据类型,表结构的调整

                                                            数据库的发展前引 MySQL的起源与发展过程 最为著名.应用最广泛的开源数据库软件 最早 ...

  7. STM32CubeMX工程定时器配置

    STM32CubeMX生成工程 选择自己的芯片型号 配置RCC寄存器时钟为外部晶振 单击芯片配置GPIO,选择输出方式,重命名标签等 进入时钟配置,本人使用的为8M外部晶振作为时钟源,PLL时钟源选择 ...

  8. Quil-delta-enhanced 简介

    Quill 是一款时下非常热门的富文本编辑器,它拥有非常强大的扩展能力,可以让开发者根据自己的需要编写插件,使编辑器支持的内容类型更加丰富.它之所以能够拥有这么强大的扩展能力,一方面是因为它的架构和 ...

  9. PHP获取当天、本周、本月、本季度、本年度时间

    function get_date($date, $t = 'd', $n = 0) { if ($t == 'd') { $firstday = date('Y-m-d 00:00:00', str ...

  10. JS入门系列(1)-原型-函数原型

    实例1: 首先定义一个Persion类或者说是函数 var p1 = Persion();:表示,作为普通函数调用 var p2 = new Persion();:表示,作为构造器调用 创建函数之后, ...