【delphi11】delphi基础探索【二、 Delphi 的基本语法:变量声明、数据类型、控制语句】

一、变量声明

        在 Delphi 中,变量声明是一个重要的概念。变量可以在程序的不同部分声明,例如在全局范围、局部范围或在类的定义中。以下是 Delphi 中各种变量声明方式的详细介绍:

1. 全局变量声明

        全局变量在程序的单元(Unit)中声明,位于 interface 部分或 implementation 部分的 var 关键字之后。全局变量在整个单元中都可见。

unit UnitName;interfacevarglobalVar1: Integer;globalVar2: String;implementationvarglobalVar3: Boolean;end.

2. 局部变量声明

        局部变量在程序的特定部分(如过程或函数)内声明。它们只在声明它们的代码块内可见。

procedure MyProcedure;
varlocalVar1: Integer;localVar2: String;
begin// 这里可以使用 localVar1 和 localVar2
end;

3. 类型变量声明

        在定义类时,可以在类的定义中声明变量。这些变量作为类的属性存在。

typeTMyClass = classprivateclassVar1: Integer;publicclassVar2: String;end;

4. 记录(Record)变量声明

        在 Delphi 中,可以使用记录(Record)类型来声明复合变量。

typeTPerson = recordName: String;Age: Integer;end;varpersonVar: TPerson;

 

5. 数组变量声明

        数组是存储一系列同类型数据的变量。

vararrayVar: array[1..10] of Integer;

6. 动态数组变量声明

        动态数组的大小可以在运行时改变。

vardynamicArrayVar: array of Integer;

7. 枚举类型变量声明

        枚举类型允许声明一组命名的常量。

typeTDays = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);vartoday: TDays;

8. 指针变量声明

        指针变量用于存储内存地址。

varptrVar: ^Integer;

9. 集合类型变量声明

        集合类型用于存储不重复的元素集合。

typeTNumbers = set of 1..10;varnumberSet: TNumbers;

10. 文件类型变量声明

        文件类型用于文件操作。

varfileVar: File;

11. Variant 类型变量声明

        Variant 类型是一种特殊的类型,可以存储不同类型的数据

varvariantVar: Variant;

总结

        变量类型:

  1. 整型 (Integer, ShortInt, LongInt, Byte 等)

    • Integer:常用的整数类型,占用 4 个字节。
    • ShortInt:较小的整数,占用 1 个字节。
    • LongInt:较大的整数,占用 4 个字节。
    • Byte:无符号的小整数,占用 1 个字节。
  2. 浮点型 (Real, Double, Extended 等)

    • Real:单精度浮点数。
    • Double:双精度浮点数。
    • Extended:扩展精度的浮点数。
  3. 字符串类型 (String, Char)

    • String:字符串类型,用于存储文本。
    • Char:字符类型,存储单个字符。
  4. 布尔型 (Boolean)

    • Boolean:布尔类型,表示真 (True) 或假 (False)。
  5. 其他类型Variant, Array 等。

二、控制语句 

If 语句

if 条件表达式 then
begin// 条件为真时执行的代码
end
else
begin// 条件为假时执行的代码
end;

Case 语句 

case 变量 of值1: 执行语句1;值2: 执行语句2;...else 执行默认语句;
end;

For 循环 

 

for 变量 := 初始值 to 结束值 do
begin// 循环体
end;

While 循环 

 

while 条件表达式 do
begin// 循环体
end;

Repeat-Until 循环 

repeat// 循环体
until 条件表达式;

总结 

        控制结构分为if类型和循环体结构,其中if判断控制有  if else  、 case等。而循环结构大致有五种下面为实例代码:

program LoopExample;{$APPTYPE CONSOLE}usesSysUtils, Generics.Collections;varnumbers: array[1..5] of Integer = (2, 4, 6, 8, 10);total, i, threshold: Integer;number: Integer;reversedNumbers: TList<Integer>;begin// For 循环WriteLn('For 循环输出:');for i := 1 to Length(numbers) doWriteLn('numbers[', i, '] = ', numbers[i]);// While 循环threshold := 5;i := 1;WriteLn('While 循环,找到第一个大于 ', threshold, ' 的数字:');while (i <= Length(numbers)) and (numbers[i] <= threshold) doInc(i);if i <= Length(numbers) thenWriteLn('找到的数字: ', numbers[i]);// Repeat-Until 循环i := 1;total := 0;repeattotal := total + numbers[i];Inc(i);until i > Length(numbers);WriteLn('Repeat-Until 循环,数组总和: ', total);// For-In 循环WriteLn('For-In 循环,翻倍数组元素:');for number in numbers doWriteLn(number * 2);// Foreach 循环(类似于 For-In)reversedNumbers := TList<Integer>.Create;tryfor number in numbers doreversedNumbers.Insert(0, number);WriteLn('Foreach 循环,逆序输出数组元素:');for number in reversedNumbers doWriteLn(number);finallyreversedNumbers.Free;end;ReadLn;  // 等待用户按键
end.

        if和case的程序实例:

program MenuSystem;{$APPTYPE CONSOLE}usesSysUtils;varchoice: Integer;beginrepeat// 显示菜单WriteLn('菜单系统');WriteLn('1. 打印消息');WriteLn('2. 检查数字');WriteLn('3. 退出');Write('请输入您的选择 (1-3): ');ReadLn(choice);// 主菜单逻辑case choice of1: beginWriteLn('您选择了打印消息。');// 可以添加更多的 if 逻辑end;2: beginWrite('请输入一个数字: ');ReadLn(choice);// 嵌套 if 语句if choice < 0 thenWriteLn('这是一个负数。')else if choice = 0 thenWriteLn('数字是零。')elseWriteLn('这是一个正数。');// 在 if 中使用 caseif choice >= 0 thenbegincase choice of0: WriteLn('零是一个特殊的数字。');1..10: WriteLn('这个数字位于 1 到 10 之间。');else WriteLn('这个数字大于 10。');end;end;end;3: WriteLn('退出程序。');elseWriteLn('无效选择,请输入 1 到 3 之间的数字。');end;until choice = 3;WriteLn('程序结束。');ReadLn;
end.

三、数据类型

标准类型

  1. 整数类型

    • ShortInt: 8 位有符号整数。大小:1 字节(32 位和 64 位)。
    • Byte: 8 位无符号整数。大小:1 字节(32 位和 64 位)。
    • SmallInt: 16 位有符号整数。大小:2 字节(32 位和 64 位)。
    • Word: 16 位无符号整数。大小:2 字节(32 位和 64 位)。
    • Integer: 32 位有符号整数。大小:4 字节(32 位和 64 位)。
    • Cardinal: 32 位无符号整数。大小:4 字节(32 位和 64 位)。
    • LongInt: 与 Integer 相同。大小:4 字节(32 位和 64 位)。
    • LongWord: 与 Cardinal 相同。大小:4 字节(32 位和 64 位)。
    • Int64: 64 位有符号整数。大小:8 字节(32 位和 64 位)。
    • UInt64: 64 位无符号整数。大小:8 字节(32 位和 64 位)。
  2. 浮点类型

    • Real: 与 SingleDouble 相同,根据平台和编译器设置而定。
    • Single: 单精度浮点数。大小:4 字节(32 位和 64 位)。
    • Double: 双精度浮点数。大小:8 字节(32 位和 64 位)。
    • Extended: 扩展精度浮点数。大小:10 字节(32 位),16 字节(64 位)。
    • Comp: 64 位浮点数。大小:8 字节(32 位和 64 位)。
    • Currency: 固定小数点,用于财务计算。大小:8 字节(32 位和 64 位)。
  3. 字符类型

    • Char: 16 位字符。大小:2 字节(32 位和 64 位)。
    • WideChar: 与 Char 相同。
    • AnsiChar: 8 位字符。大小:1 字节(32 位和 64 位)。
  4. 字符串类型

    • String: Unicode 字符串。大小:32 位系统中为 4 字节(指针大小),64 位系统中为 8 字节。
    • AnsiString: 非 Unicode 字符串。大小:与 String 相同。
    • WideString: 宽字符串,使用 COM。大小:与 String 相同。
    • ShortString: 长度有限的字符串。最大长度 255 字节。
  5. 布尔类型

    • Boolean: 布尔值。大小:1 字节(32 位和 64 位)。
    • ByteBool: 与 Byte 相同。
    • WordBool: 与 Word 相同。
    • LongBool: 与 LongInt 相同。
  6. 变体类型

    • Variant: 任何类型的数据。大小:16 字节(32 位),24 字节(64 位)。
    • OleVariant: 类似于 Variant,用于 OLE 自动化。大小与 Variant 相同。
  7. 指针类型

    • Pointer: 通用指针类型。大小:32 位系统中为 4 字节,64 位系统中为 8 字节。
  8. 其他类型

    • TDateTime: 日期和时间类型。大小:8 字节(32 位和 64 位)。

其他常用类型

  1. 集合类型

    • Set of [EnumType]: 枚举类型的集合。大小取决于枚举类型中元素的数量,最多可以有 256 个布尔值(最大 32 字节)。
  2. 枚举类型

    • EnumType: 用户定义的枚举。大小通常为 1 字节,但可能更大,取决于枚举值的数量。
  3. 记录(Record)类型

    • Record: 用户定义的复合类型,大小取决于包含的字段。
  4. 动态数组

    • Array of [Type]: 动态数组。数组指针的大小在 32 位系统中为 4 字节,在 64 位系统中为 8 字节,数组元素的总大小取决于元素类型和数量。
  5. 静态数组

    • Array [Range] of [Type]: 静态数组,大小取决于元素类型和数量。
  6. 文件类型

    • File, TextFile, BinaryFile: 文件操作类型。大小不固定,取决于文件内容和文件系统。
  7. 接口类型

    • Interface: COM 接口。指针大小在 32 位系统中为 4 字节,在 64 位系统中为 8 字节。
  8. 类类型

    • Class: 用户定义的类。类实例的大小取决于其字段和方法。
  9. 方法指针类型

    • Procedure/Function of object: 方法指针。大小通常在 32 位系统中为 8 字节,在 64 位系统中为 16 字节。
  10. 变体数组

    • Variant array: 动态变体类型的数组。大小取决于数组元素的数量和类型。
  11. GUID 类型

    • TGUID: 全局唯一标识符。大小固定为 16 字节。

总结:查看每种类型占用大小

program DataTypeSizes;{$APPTYPE CONSOLE}usesSysUtils;typeTMyEnum = (meOne, meTwo, meThree);TMySet = set of TMyEnum;TMyRecord = recordIntValue: Integer;StrValue: String;end;TMyArray = array[1..10] of Integer;TMyDynArray = array of Integer;varShortIntVar: ShortInt;ByteVar: Byte;SmallIntVar: SmallInt;WordVar: Word;IntegerVar: Integer;CardinalVar: Cardinal;LongIntVar: LongInt;LongWordVar: LongWord;Int64Var: Int64;UInt64Var: UInt64;SingleVar: Single;DoubleVar: Double;ExtendedVar: Extended;CompVar: Comp;CurrencyVar: Currency;CharVar: Char;WideCharVar: WideChar;AnsiCharVar: AnsiChar;StringVar: String;AnsiStringVar: AnsiString;WideStringVar: WideString;ShortStringVar: ShortString;BooleanVar: Boolean;ByteBoolVar: ByteBool;WordBoolVar: WordBool;LongBoolVar: LongBool;VariantVar: Variant;OleVariantVar: OleVariant;PointerVar: Pointer;DateTimeVar: TDateTime;MyEnumVar: TMyEnum;MySetVar: TMySet;MyRecordVar: TMyRecord;MyArrayVar: TMyArray;MyDynArrayVar: TMyDynArray;FileVar: File;TextFileVar: TextFile;BinaryFileVar: File of Byte;InterfaceVar: IInterface;ClassVar: TObject;MethodPointerVar: TMethod;VariantArrayVar: array of Variant;GUIDVar: TGUID;begin// 初始化动态数组SetLength(MyDynArrayVar, 10);SetLength(VariantArrayVar, 10);// 打印各类型的大小WriteLn('ShortInt: ', SizeOf(ShortIntVar), ' bytes');WriteLn('Byte: ', SizeOf(ByteVar), ' bytes');WriteLn('SmallInt: ', SizeOf(SmallIntVar), ' bytes');WriteLn('Word: ', SizeOf(WordVar), ' bytes');WriteLn('Integer: ', SizeOf(IntegerVar), ' bytes');WriteLn('Cardinal: ', SizeOf(CardinalVar), ' bytes');WriteLn('LongInt: ', SizeOf(LongIntVar), ' bytes');WriteLn('LongWord: ', SizeOf(LongWordVar), ' bytes');WriteLn('Int64: ', SizeOf(Int64Var), ' bytes');WriteLn('UInt64: ', SizeOf(UInt64Var), ' bytes');WriteLn('Single: ', SizeOf(SingleVar), ' bytes');WriteLn('Double: ', SizeOf(DoubleVar), ' bytes');WriteLn('Extended: ', SizeOf(ExtendedVar), ' bytes');WriteLn('Comp: ', SizeOf(CompVar), ' bytes');WriteLn('Currency: ', SizeOf(CurrencyVar), ' bytes');WriteLn('Char: ', SizeOf(CharVar), ' bytes');WriteLn('WideChar: ', SizeOf(WideCharVar), ' bytes');WriteLn('AnsiChar: ', SizeOf(AnsiCharVar), ' bytes');WriteLn('String: ', SizeOf(StringVar), ' bytes');WriteLn('AnsiString: ', SizeOf(AnsiStringVar), ' bytes');WriteLn('WideString: ', SizeOf(WideStringVar), ' bytes');WriteLn('ShortString: ', SizeOf(ShortStringVar), ' bytes');WriteLn('Boolean: ', SizeOf(BooleanVar), ' bytes');WriteLn('ByteBool: ', SizeOf(ByteBoolVar), ' bytes');WriteLn('WordBool: ', SizeOf(WordBoolVar), ' bytes');WriteLn('LongBool: ', SizeOf(LongBoolVar), ' bytes');WriteLn('Variant: ', SizeOf(VariantVar), ' bytes');WriteLn('OleVariant: ', SizeOf(OleVariantVar), ' bytes');WriteLn('Pointer: ', SizeOf(PointerVar), ' bytes');WriteLn('TDateTime: ', SizeOf(DateTimeVar), ' bytes');WriteLn('TMyEnum: ', SizeOf(MyEnumVar), ' bytes');WriteLn('TMySet: ', SizeOf(MySetVar), ' bytes');WriteLn('TMyRecord: ', SizeOf(MyRecordVar), ' bytes');WriteLn('TMyArray: ', SizeOf(MyArrayVar), ' bytes');WriteLn('TMyDynArray: ', SizeOf(MyDynArrayVar), ' bytes');WriteLn('File: ', SizeOf(FileVar), ' bytes');WriteLn('TextFile: ', SizeOf(TextFileVar), ' bytes');WriteLn('BinaryFile: ', SizeOf(BinaryFileVar), ' bytes');WriteLn('Interface: ', SizeOf(InterfaceVar), ' bytes');WriteLn('Class: ', SizeOf(ClassVar), ' bytes');WriteLn('MethodPointer: ', SizeOf(MethodPointerVar), ' bytes');WriteLn('VariantArray: ', SizeOf(VariantArrayVar), ' bytes');WriteLn('TGUID: ', SizeOf(GUIDVar), ' bytes');ReadLn;
end.

 

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/219628.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

路由器静态路由的配置

路由器静态路由的配置步骤如下&#xff1a; 进入系统视图。输入命令sys进入系统视图。配置路由器的接口IP地址。命令格式为int g0/0/0&#xff0c;其中g0/0/0表示路由器的接口&#xff0c;可以根据实际情况进行修改。然后使用命令ip add配置接口的IP地址。配置下一跳地址。在静…

【起草】1-2 讨论 ChatGPT 在自然语言处理领域的重要性和应用价值

【小结&#xff1a;ChatGPT 在自然语言处理领域的八种典型应用】 ChatGPT是一种基于Transformer模型的端到端生成式对话系统&#xff0c;采用自监督学习的方式ChatGPT是一种基于Transformer模型的端到端生成式对话系统&#xff0c;采用自监督学习的方式在海量无标注数据集上进…

PyTorch : torch.cuda.amp: 自动混合精度详解

amp : 全称为 Automatic mixed precision&#xff0c;自动混合精度 amp功能&#xff1a; 可以在神经网络推理过程中&#xff0c;针对不同的层&#xff0c;采用不同的数据精度进行计算&#xff0c;从而实现节省显存和加快速度的目的。 通常&#xff0c;深度学习中使用的精度为…

C# 编写Windows服务程序

1.什么是windows服务&#xff1f; Microsoft Windows 服务&#xff08;即&#xff0c;以前的 NT 服务&#xff09;使您能够创建在它们自己的 Windows 会话中可长时间运行的可执行应用程序。这些服务可以在计算机启动时自动启动&#xff0c;可以暂停和重新启动而且不显示任何用…

Web前端 ---- 【Vue】Vue路由传参(query和params)

目录 前言 为什么用路由 路由route和路由器router Vue中路由的工作原理 安装配置vue-router 使用VueRouter 多级路由 路由传参 query传参 params传参 前言 本文介绍路由相关知识路由传参 为什么用路由 为了单页面应用开发&#xff0c;只更换组件&#xff0c;不频繁刷…

什么软件可以压缩视频大小?超级简单

什么软件可以压缩视频大小&#xff1f;当我们想将视频上传到网上时&#xff0c;有时候会遇到视频因为体积太大而无法上传的问题&#xff0c;这种情况就需要将视频进行压缩了。那什么软件可以压缩视频大小呢&#xff1f;下面小编就来为大家介绍压缩视频的方法&#xff0c;支持批…

django-release-debug-apache-mod-wsgi-原理解析

文章目录 1.django-release2.mod_wsgi2.1.winnt模式2.2.worker模式2.3.preforker模式2.4.小节 3.apache配置参数3.1.全局参数3.2.主机参数 4.总结 1.django-release 由于django处理静态资源的效率偏低&#xff0c;顾在release模式不支持静态资源&#xff0c;这种情况需要在apa…

极新AIGC行业峰会 | 圆桌对话:探索中国AGI迭代之路

“AGI正处在一个巨大的研发范式革命的起点。” 整理 | 周梦婕 编辑 | 小白 出品&#xff5c;极新 2023年11月28日&#xff0c;极新AIGC行业峰会在北京东升国际科学院拉开帷幕&#xff0c;峰会上午的圆桌环节由凡卓资本合伙人王梦菲主持&#xff0c;深势科技战略副总裁何雯…

SpringCache使用配置

项目中引入SpringCache pom文件引入依赖 <dependency><groupId>org.springframework.boot</groupId><artifactId>spring-boot-starter-cache</artifactId> </dependency>配置文件指定缓存类型 spring:cache:type: redis启动类开启缓存注解…

TikTok卖家攻略!如何保证账号安全和多账号防关联?

TIKTOK的火爆程度&#xff0c;大家都有目共睹。随之而来的是越来越多的人在上面开展在线业务。作为TikTok的卖家&#xff0c;保障账号安全和防止多账号关联是非常重要的。在这篇博客文章中&#xff0c;我们将分享一些关于如何保护TikTok账号安全和防止多账号关联的实用建议。 …

Spring Boot 3.x.x Spring Security 6.x.x @PreAuthorize 失效

Spring Boot 3.x.x Spring Security 6.x.x PreAuthorize 失效 背景问题解决备注 背景 最近在搞一个后端项目&#xff0c;登录、接口权限、token认证。 版本 Spring Boot 3.2.0 JDK 21 Spring Security 6.2.0 问题 PreAuthorize 失效&#xff0c;没有走认证。 解决 给PreAu…

生成小程序URLlink链接遇到的坑

这里写自定义目录标题 前端生成小程序URL link背景用户打开小程序的常用方法短链接短链接优缺点优点缺点 生成短链接步骤 可能会遇到的问题&#xff1a;其他 注意&#x1f4e2; 前端生成小程序URL link ![h5打开小程序](https://img-blog.csdnimg.cn/direct/a4cfe3ef6d184c6d9…

OfficeWeb365 SaveDraw 文件上传漏洞复现

0x01 产品简介 OfficeWeb365 是专注于 Office 文档在线预览及PDF文档在线预览云服务,包括 Microsoft Word 文档在线预览、Excel 表格在线预览、Powerpoint 演示文档在线预览,WPS 文字处理、WPS 表格、WPS 演示及 Adobe PDF 文档在线预览。 0x02 漏洞概述 OfficeWeb365 Sav…

mapbox修改样式

mapbox有些其实document绘制而成&#xff0c;比如control控件 故而会涉及到样式修改&#xff0c;以适配系统主题 先决条件 必须要安装mapbox-gl&#xff0c;申请access_token yarn add mapbox-gl// or npm install mapbox-gl修改样式 新建一个_mapbox-gl.scss文件&#xff…

[字符串操作]删除单词后缀

删除单词后缀 题目描述 给一组各分别以er、ly和ing结尾的单词&#xff0c; 请删除每个单词的结尾的er、ly或ing&#xff0c; 然后按原顺序输出删除后缀后的单词&#xff08;删除后缀后的单词长度不为0&#xff09;。 关于输入 输入的第一行是一个整数n&#xff08;n≤50&am…

Python 反射

Python 反射是什么&#xff1f; 学习了几天&#xff0c;做个总结留给自己看。 感觉跟 SQL 入门要掌握的原理一样&#xff0c;Python 反射看起来也会做4件事&#xff0c;“增删查获” 增 - 增加属性&#xff0c;方法 setattr 删 - 删除属性&#xff0c;方法 delattr 查 - …

用 MATLAB 实现的计算机CT断层扫描图像重建项目源码

完整源码资源下载链接 计算机断层扫描图像重建 介绍 计算机断层扫描是堆叠在一起的 X 射线图像的集合&#xff0c;以获得作为诊断图像第三维的深度信息。这些“堆叠的” X 射线图像作为正弦图从 CT 机架接收&#xff0c;代表对象单层的 X 射线吸收剖面。该项目的目标是重建该…

Springboot整合篇Druid

一、概述 1.1简介 Druid 是阿里巴巴开源平台上一个数据库连接池实现&#xff0c;结合了 C3P0、DBCP 等 DB 池的优点&#xff0c;同时加入了日志监控。 它本身还自带一个监控平台&#xff0c;可以查看时时产生的sql、uri等监控数据&#xff0c;可以排查慢sql、慢请求&#xff0…

【如何理解select、poll、epoll?】

如何理解select、poll、epoll&#xff1f; select、poll、epollselectpollepoll 知识扩展三者之间的主要区别是什么&#xff1f;epoll的两种模式是什么&#xff1f; select、poll、epoll select、poll、epoll都是Linux中常见的I/O多路复用技术&#xff0c;他们可以用于同时监听…

广西岑溪市火灾通报:1人死亡 AI科技助力预防悲剧

近日&#xff0c;广西岑溪市玉梧大道紫坭工业园一厂房发生一起令人心痛的火灾事件&#xff0c;造成1人不幸丧生。这起悲剧再次提醒我们&#xff0c;火灾的防范工作是多么的重要。在这样的背景下&#xff0c;我想分享一个能够有效预防类似悲剧的技术——北京富维图像公司开发的F…