# 介绍

在窗体表单或对象常规属性中支持 `Delphi` 脚本来实现一些特性化操作

# 脚本编辑器

这是一个编辑、检查脚本的窗体

由主菜单、工具栏、 [控件区](#控件区) 、 [脚本编辑区](#脚本编辑区) 、 [函数/变量区](#函数/变量区) 、 [错误提示区](#错误提示区) 组成，界面如下图：

![image-20240621100850228](assets/image-20240621100850228.png)

## 布局介绍

### 文件

保存或者关闭脚本编辑器

操作：检查语法正确性

查找/替换/查找下一个：TXT文本功能

设置：

1. 修改 Tab 键跳转列数：设置缩进列数
2. 工具栏：显示脚本编辑器常用操作

### 控件区

显示源窗体中的编辑控件，双击控件节点时，在 [脚本编辑器](#脚本编辑器) 的当前光标位置增加控件名称，支持节点拖动

### 脚本编辑区

编辑脚本的地方。 编辑时支持模糊匹 **配控件区** 的控件名和 **函数/变量区** 的函数或变量名；

如果文本是控件名，输入 “ . ” 将提示控件支持的属性或方法

按 “ Tab ” 键支持选择文本的定长缩进

按 “ Shift + Tab ” 键支持选择文本的定长反缩进

支持文本搜索、搜索替换功能

使用的脚本为 `Delphi` 脚本，参考代码如下所示，作用为 [多属性值拼接至另一属性中](999.Delphi脚本记录.md#多属性值拼接至另一属性中) ：

```Delphi
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
var 
  StringList: TStringList;

begin
  // 创建和初始化TStringList
  StringList := TStringList.Create;
  try
  // 如果fedtusr_substrate_id的值不为空，则将值添加到StringList中
    if fedtusr_substrate_id.Text <> '' then
      StringList.Add(fedtusr_substrate_id.Text);
    if fedtusr_substrate_id2.Text <> '' then
      StringList.Add(fedtusr_substrate_id2.Text); 
    if fedtusr_substrate_id3.Text <> '' then
      StringList.Add(fedtusr_substrate_id3.Text);
    if fedtusr_substrate_id4.Text <> '' then
      StringList.Add(fedtusr_substrate_id4.Text);

    // 转换为逗号分隔的字符串
    mmmusr_substrate2.Text := StringList.DelimitedText;  // 默认使用逗号作为分隔符

    // 如果需要指定其他分隔符，可以设置Delimiter属性
    // StringList.Delimiter := ';';  // 设置分隔符为分号
    // Result := StringList.DelimitedText;
  finally
    StringList.Free;
  end;
end.
```

### 函数/变量区

显示系统支持的变量和函数，双击节点时，在 **脚本编辑区** 的当前光标位置增加变量或函数名称，鼠标移到树节点时，提示信息窗显示变量类型或函数原型，支持节点拖动

![](assets/Pasted%20image%2020250225085445.png)

### 错误提示区

执行 **保存** 或 **检查语法正确性** 命令时，如果脚本存在错误，则错误信息被显示在 **错误提示区**，双击错信息行时，在 **脚本编辑区** 中对于的错误行用红色背景标记