博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
Delphi基础语法
阅读量:5304 次
发布时间:2019-06-14

本文共 1736 字,大约阅读时间需要 5 分钟。

1、LowerCase(const s:string):string、UpperCase(const s:string):string

2、CompareStr(const s1,s2:string):Integer 本函数区分大小写,是对比字母ASCII的值,得出值的差,是从第一个字母开始对比,如果对比的差为0则一直往后面字母进行对比,直至比较不为0;CompareText(const s1,s2:string):Integer 本函数不区分大小写

3、Length(s):Integer 返回字符串的长度

4、Delphi 中不等于用<> 

5、Delphi语法不区分大小写

6、pos(s1,s2)Integer :查找s1在s2中的位置,如果s2中不存在s1,则结果为0

7、AppendStr(var s1,const s2):string :功能相当s1:=s1+s2,但是效率更快

8、Copy(str,m,n):string :在字符串str中截取从第m个字符开始长度为n的子字符串,并作为函数的返回值,若m大于字符串的长度则返回空字符串;

9、Delete(str,m,n) :在字符串str中删除从第m个字符开始长度为n的子字符串,没有返回值

10、Insert(str1,str,k):将字符串str1插入到字符串str的第k个位置处,没有返回值;

11、IntToStr(m):string; StrToInt(s):Integer; FloatToStr(f):string; StrToFloat(s):Extended;

12、if语句:

//1、单分支语句if(条件) then        语句1;//2、双分支语句if(条件) then        语句1    //没有分号else         语句2;   //这个if判断结束之后必须有分号//3、如果分支下是多语句,必须使用begin  endif(条件) thenbegin    语句1;    语句2;endelsebegin    语句3;    语句4;end;

 13、Case语句

Case (表达式)of    值1:语句1;    值2:语句2;    值3,值3:语句3;else//else语句之前的可以有分号;    语句n;end

 14、while语句

while(循环条件)dobegin    循环体;end; //循环体中如果遇到break会直接跳出循环;如果遇到continue程序会停止本次循环,重新判断循环条件,根据循环条件的值,决定是否继续执行循环; //在Repeat语句与For语句都可以使用这两个语句;

 15、Repeat语句

Repeat    循环体;//循环体中的语句不需要使用begin...endUntil(循环条件);//先执行循环体,然后再判断循环条件,如果条件为FALSE继续执行循环体,为TRUE则退出循环;

 16、For语句

For 循环变量:=初始值 To(DownTo) 终止值 DObegin    循环体;end;//To是递增,判断循环变量是否大于终止值,如果是则结束循环,如果不是则执行循环体,每次循环之后循环变量自动递增1;DownTo是递减,判断循环变量是否小于终止值,如果是则结束循环,如果不是则执行循环体,每次循环之后循环变量自动递减1;循环体中也可以使用break或continue语句;

 17、数组

//一维静态数组定义格式Type    数组类型名=Array[下标类型] of 基类型;//例如Type    number=Array[1..10] of Integer;//定义(声明)数组变量var    num1:number;//也可以使用更为简单的方法来定义数组变量var    num1:Array[1..10] of Integer;//引用数组元素的格数数组名[下标]//例如For i:=1 To 10 Do    num1[i]=i;

 

          

转载于:https://www.cnblogs.com/allen0/p/8531742.html

你可能感兴趣的文章
在编译安装程序时候遇到/usr/bin/ld: cannot find -lxxx的时候的解决办法。
查看>>
使用 INSERT 和 SELECT 子查询插入行
查看>>
ubuntu重装mysql
查看>>
English trip -- VC(情景课)1 C What's your name?(review)
查看>>
redirect的错误用法asp.net怎么使用自定义错误
查看>>
在MyEclipse下统计工程的代码(package、行数、类个数)
查看>>
Erlcron分析学习
查看>>
idea 快捷键
查看>>
菜鸟运维笔记:Windows上用Xshell管理你的云主机
查看>>
JavaScript中的this
查看>>
jsp
查看>>
03 基本数据结构 - 栈
查看>>
Hyper-V虚拟机上安装一个图形界面的Linux系统
查看>>
微信小程序之随笔
查看>>
ios蓝牙详解
查看>>
React Native在Android平台运行gif的解决方法转载
查看>>
Mybatis RowBounds 是逻辑分页
查看>>
hdu 3341(ac自动机+状态压缩)
查看>>
51单片机之蓝牙遥控小车_效果展示+单片机知识+完整蓝牙电车代码
查看>>
Sql Server中REPLACE函数的使用
查看>>