文档章节

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

涂孟超
 涂孟超
发布于 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
Redis 通讯协议分析

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

IamOkay
01/15
5
0
老刘坐诊“如何搞定老板” 之二

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

刘博的博客
2011/10/26
0
0
VC++常用数据类型及其操作详解(非常经典,共同分享)

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

长平狐
2013/01/06
1K
0
VC++常用数据类型及其操作详解

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

晨曦之光
2012/03/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

springboot 上传图片(多张和单张都可以)

@RequestMapping("/upload")@ResponseBodypublic String handleFileUpload(HttpServletRequest request) { MultipartHttpServletRequest params = ((MultipartHttpServletRequest) req......

MrBoyce
14分钟前
4
0
Android Studio 3.X打开DDMS

Android Studio更新到3.0版本以后Tools菜单变成了这样了 DDMS入口找不到了 在设置里找到SDK的路径 打开tools文件夹 双击打开 monitor.bat文件 会出来一个黑色命令行框,稍等一下,熟悉的DDM...

lanyu96
18分钟前
3
0
js 进一法、四舍五入法、舍去法 保留两位小数

function format_number(num,len) { len = len > 0 && len <= 20 ? len : 2; var result = parseFloat(num); num=isNaN(result)?0:result; var numpow=Math.pow(10,len)......

xiaogg
25分钟前
2
0
Node.js中的不安全跳转如何防御详解

Node.js中的不安全跳转如何防御详解 导语: 早年在浏览器大战期间,有远见的Chrome认为要运行现代Web应用,浏览器必须有一个性能非常强劲的Java引擎,于是Google自己开发了一个高性能的开源的...

开元中国2015
26分钟前
4
0
国内首个区块链试验区在海南成立

据新华社报道,10月8日,海南自贸区(港)区块链试验区正式在海南生态软件园授牌设立,这也是目前为止国内第一个区块链试验区。 该试验区位于海南生态软件园,与试验区同一天成立还有2家研究...

问题终结者
28分钟前
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部