鱼C论坛

 找回密码
 立即注册
查看: 1941|回复: 0

[技术交流] 实现 mmo1向mmo2 每秒复制一个文字 终于解决了数组问题~~~

[复制链接]
发表于 2016-9-6 17:26:19 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 半半半半半 于 2016-9-6 17:27 编辑

实现  mmo1向mmo2 每秒复制一个文字  暂不支持中文  (如果把copy 变量改为2可支持中文)  不支持中文英文混输入

经验总结在结尾

代码如下:



  1. // 两个memo 控件 一个time控件 四个button
  2. // 已改name 属性

  3. unit Unit1;

  4. interface

  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls;

  8. type
  9.   TForm1 = class(TForm)
  10.     pnl1: TPanel;
  11.     mmo1: TMemo;
  12.     mmo2: TMemo;
  13.     btn1: TButton;
  14.     btn2: TButton;
  15.     btn3: TButton;
  16.     btn4: TButton;
  17.     tmr1: TTimer;
  18.     procedure tmr1Timer(Sender: TObject);
  19.     procedure btn1Click(Sender: TObject);
  20.     procedure btn2Click(Sender: TObject);
  21.     procedure btn4Click(Sender: TObject);
  22.     procedure btn3Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;

  28. var
  29.   Form1: TForm1;
  30.   nnum : array of string ;
  31.   i : Integer ;
  32.   j : BOOL = True ;

  33. implementation

  34. {$R *.dfm}

  35. procedure TForm1.tmr1Timer(Sender: TObject);
  36. begin
  37.   //载入判断机制,限制  i 的长度 否则 运行到最后报错
  38.   if j then
  39.   begin
  40.     if i < Length(mmo1.Lines.Text) then
  41.     begin
  42.       mmo2.Lines.Text := mmo2.Lines.Text+ nnum[i] ;
  43.       i := i +1 ;
  44.     end
  45.     else
  46.     tmr1.Enabled := False ;
  47.   end ;


  48. end;

  49. procedure TForm1.btn1Click(Sender: TObject);
  50. begin          // 数组赋值 time 控件开始执行
  51.   if  tmr1.Enabled = True  then
  52.     MessageBox(Handle, '正在运行,请暂停或停止!', '提示' , MB_OK)
  53.   else
  54.     if  mmo1.Lines.Text= ''  then
  55.      MessageBox(Handle ,'请在左框内输入字符!', '提示' , MB_OK)
  56.     else
  57.     begin
  58.       btn2.Caption:= '暂停执行';
  59.       SetLength(nnum, Length(mmo1.Lines.Text)) ;
  60.       tmr1.Enabled:= True ;
  61.       for i := 1 to Length(mmo1.Lines.Text  ) do
  62.         nnum[i-1]:= Copy(mmo1.Lines.Text , i , 1 );
  63.     end;
  64.   i := 0  ;
  65. end;

  66. procedure TForm1.btn2Click(Sender: TObject);
  67. begin      // 可暂停程序
  68.     if tmr1.Enabled= True then
  69.       begin
  70.         btn2.Caption:= '暂停执行';
  71.         tmr1.Enabled := False ;
  72.       end
  73.     else
  74.       begin
  75.         btn2.Caption:= '继续执行';
  76.         tmr1.Enabled := True;
  77.       end ;


  78. end;

  79. procedure TForm1.btn4Click(Sender: TObject);
  80. begin
  81.   Form1.Close;
  82. end;

  83. procedure TForm1.btn3Click(Sender: TObject);
  84. begin           //恢复原始状态
  85.   tmr1.Enabled:= False;
  86.   j := False;
  87.   for i := 1 to Length(nnum) do
  88.     nnum[i-1]:= '';
  89.   mmo1.Text:= '';
  90.   mmo2.Text:= '';

  91. end;

  92. end.
复制代码


数组问题纠结了好几天时间  对数组赋值一直报错
终于在今天下午想出问题所在

1、动态数组下标从0开始  要先对数组的首个值赋值  就是 nnum[0]  所以用到了 nnum[i-1]
2、在数组赋值前 必须先对数组界定大小  不然就报错~~~

暂时总结这两点  感觉总结的有问题  有没有高手指点一下
是不是可以不用从0开始赋值   或者 不用提前给数组界定大小  可以在运行当中对数组赋值???
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 14:38

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表