文档章节

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

涂孟超
 涂孟超
发布于 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
深圳
程序员
老刘坐诊“如何搞定老板” 之二

aha45发表于 2011-10-21 09:24:44第 14 楼 刘老师,您好! 我在生产型企业做了6年IT,现在在一家伪外资,但各种服务器都在总部,我看不到也摸不到,在Branch里只是一个打杂和Reporter, 总是接...

刘博的博客
2011/10/26
0
0
Redis 通讯协议分析

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

IamOkay
01/15
5
0
VC++常用数据类型及其操作详解

一.VC常用数据类型列表 二.常用数据类型转化 2.1数学类型变量与字符串相互转换 2.2 CString及string,char 与其他数据类型的转换和操作 ●CString,string,char的综合比较 ●数学类型与CString...

晨曦之光
2012/03/09
0
0
VC++常用数据类型及其操作详解(非常经典,共同分享)

友情提示: 为了方便你更好的学习和阅读,也更好的体现尊重原创作者的劳动成果,请您直接查看转载原本链接: http://snailflying.blog.hexun.com/8219350d.html ==========================...

长平狐
2013/01/06
1K
0
JavaScript 运算符规则与隐式类型转换详解

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

王下邀月熊
2017/09/04
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

qduoj~前端~二次开发~打包docker镜像并上传到阿里云容器镜像仓库

上一篇文章https://my.oschina.net/finchxu/blog/1930017记录了怎么在本地修改前端,现在我要把我的修改添加到部署到本地的前端的docker容器中,然后打包这个容器成为一个本地镜像,然后把这...

虚拟世界的懒猫
今天
1
0
UML中 的各种符号含义

Class Notation A class notation consists of three parts: Class Name The name of the class appears in the first partition. Class Attributes Attributes are shown in the second par......

hutaishi
今天
1
0
20180818 上课截图

小丑鱼00
今天
1
0
Springsecurity之SecurityContextHolderStrategy

注:下面分析的版本是spring-security-4.2.x,源码的github地址是: https://github.com/spring-projects/spring-security/tree/4.2.x 先上一张图: 图1 SecurityContextHolderStrategy的三个......

汉斯-冯-拉特
今天
1
0
LNMP架构(Nginx负载均衡、ssl原理、生成ssl密钥对、Nginx配置ssl)

Nginx负载均衡 网站的访问量越来越大,服务器的服务模式也得进行相应的升级,比如分离出数据库服务器、分离出图片作为单独服务,这些是简单的数据的负载均衡,将压力分散到不同的机器上。有时...

蛋黄_Yolks
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部