文档章节

如何把字符串覆给数组 - 回复"刘那"

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 258
阅读 8
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/05/11/1089344.html#1191871
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{把字符串给静态(字符)数组}
procedure TForm1.Button1Click(Sender: TObject);
const
  str = '万一的 Delphi 博客';
var
  StaticArr: array[0..255] of Char;
begin
  {直接赋值即可}
  StaticArr := str;

  {显示}
  ShowMessage(StaticArr); {万一的 Delphi 博客}
end;


{把字符串给动态(字符)数组}
procedure TForm1.Button2Click(Sender: TObject);
const
  str = '万一的 Delphi 博客';
var
  DynamicArr: array of Char;
  i: Integer;
begin
  {设置动态数组大小}
  SetLength(DynamicArr, Length(str));

  {把字符串赋给动态数组}
  for i := 0 to Length(DynamicArr) - 1 do
    DynamicArr[i] := str[i+1];

  {显示动态数组中的字符}
  ShowMessage(PChar(@DynamicArr[0])); {万一的 Delphi 博客}
end;


{数组元素可不一定都是字符}
procedure TForm1.Button3Click(Sender: TObject);
const
  str = '万一的 Delphi 博客';
var
  DynamicArr: array of string;
begin
  SetLength(DynamicArr, 1);
  DynamicArr[0] := str;
  ShowMessage(DynamicArr[0]); {万一的 Delphi 博客}
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/11/1192113.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Redis进阶实践之十七 Redis协议的规范

Redis进阶实践之十七 Redis协议的规范 一、介绍 Redis客户端使用RESP(Redis的序列化协议)协议与Redis的服务器端进行通信。 虽然该协议是专门为Redis设计的,但是该协议也可以用于其他 客户...

morpheusWB
09/13
0
0
UVa 10082 - WERTYU 解题报告 - C语言

1.题目大意: 输入一个错位的字符串(字母全为大写),输出原本想打出的句子。 2.思路: 如果将每个输入字符所对应的应输出字符一一使用if或者switch,则过于繁琐。因此考虑使用常量数组实现。...

rgvb178
2016/10/09
0
0
Redis 通讯协议分析

简介 Redis本质上是一个Key-Value类型的内存数据库,很像memcached,整个数据库统统加载在内存当中进行操作,定期通过异步操作把数据库数据flush到硬盘上进行保存。Redis的性能非常出色,每秒...

IamOkay
01/15
5
0
JavaScript 运算符规则与隐式类型转换详解

JavaScript 运算符规则与隐式类型转换详解 从属于笔者的现代 JavaScript 开发:语法基础与工程实践系列文章,主要探讨 JavaScript 中令人迷惑的加减乘除与比较等常见运算中的规则与隐式类型转...

王下邀月熊
2017/09/04
0
0
深入理解C指针chap7

CERT组织 地址空间布局随机化(Address Space Layout Randominzation):会把应用程序的数据区域随机放置在内存中,这些数据区域包括代码,栈和堆。 数据执行保护(Data Execution Prevention) +...

im天行
2016/01/05
49
0

没有更多内容

加载失败,请刷新页面

加载更多

Linux 设备驱动--- 阻塞型字符设备驱动 --- O_NONBLOCK --- 非阻塞标志

阻塞: 在设计简单字符驱动程序时,要注意一个重要问题. 当一个设备无法立刻满足用户的读写请求时应当如何处理? 例如:调用 read 时没有数据可读,但以后可能会有; 或者一个进程试图向设备写...

天王盖地虎626
12分钟前
0
0
作用域、作用域链精解

首先来几个名词解释: 作用域[scope]:每一个js函数都是一个对象,对象中有些属性我们可以访问,但有些不可以,这些属性仅供js引擎存取,[[scope]]就是对象其中一个属性。[[scope]]指的就是我...

IrisHuang
12分钟前
0
0
etcd集群备份和数据恢复

etcd是一个分布式k-v数据库,在kubernetes中使用其管理集群的元数据。这里介绍etcd集群数据的备份和数据恢复的方法和步骤。 本文来自于:https://www.maideliang.com/index.php/archives/25/...

openthings
26分钟前
1
0
「阿里面试系列」面试加分项,从JVM层面了解线程的启动和停止

文章简介 这一篇主要围绕线程状态控制相关的操作分析线程的原理,比如线程的中断,线程的通信等,内容比较多,可能会分两篇文章 阿里面试系列导读:关注我的技术公众号【架构师修炼宝典】一周...

Java架构资源分享
33分钟前
4
0
centos安装confluence全攻略

https://blog.csdn.net/qwer026/article/details/51439076

happyeveryday32
47分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部