Delphi 逐个分解后字符串加载到StringGrid1


本文整理自网络,侵删。

 

procedure TForm1.sEdit1Change(Sender: TObject);
procedure TForm1.sEdit1Change(Sender: TObject);
var
  i: integer;
  str: string;
  c: char;
  arr: array[0..200, 0..200] of string;
  A, j: integer;
begin
  str := sedit1.text;
  for i := 0 to length(str) do
  begin
    c := str[i];
   //ShowMessage(c);
    arr[0][0] := '分解后字符串';
    arr[1][0] := '索引';
    arr[2][0] := '切片时索引';
    StringGrid1.RowCount := 3;      //这个是行数
    StringGrid1.ColCount := i + 2;   //这个是列数  (列数+1才对啊)
    StringGrid1.ColWidths[0] := 0;
    StringGrid1.ColWidths[1] := 130;
 
    arr[0][i] := c;             //这个是分解后的单个字符中的第1行
    arr[1][i] := IntToStr(i - 1);  //这个是分解后对应的索引,也就是第2行
 
    arr[2][i] := '-' + IntToStr(length(str) - i + 1);


  end;
//ShowMessage(IntToStr(i - 1));
  for A := Low(arr) to High(arr) do                  //这个是调整表格,隐藏第一列的!
    for j := Low(arr[A]) + 1 to High(arr[A]) + 1 do
    begin
      StringGrid1.Cells[j, A] := arr[A][j - 1]
    end;
end;

来源:https://www.52pojie.cn/thread-1296701-1-1.html

相关阅读 >>

Delphi webbrowser设置自己定义user-agent

firemonkey使用android的路径信息

Delphi xe 制作的萤光时钟,可改作屏保

Delphi实现注册表的操作

Delphi map file

Delphi 为数字补充前缀0

Delphi 搜索指定目录下的文件

Delphi 设置打印机 纸张大小! 也可以获取纸张大小

Delphi firdac 对 sqlite 数字, int64也会被截断,会出现负数情况处理

Delphi memo1 高亮行的范围

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...