zoukankan      html  css  js  c++  java
  • 如何把字符串覆给数组 回复"刘那"

    问题来源: 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.
    
  • 相关阅读:
    vue loading 插件编写与实战
    vue tab切换的几种方式
    IOS安卓常见问题
    vue.js 跨域的解决方法(转载)
    vue 根据设计稿rem适配
    vuex 文件夹目录整理
    vue项目优化之路由懒加载
    flutter 环境配置-01
    锚点 定位 导航 滑动
    居中 子元素无固定 宽高
  • 原文地址:https://www.cnblogs.com/del/p/1192113.html
Copyright © 2011-2022 走看看