本文整理自网络，侵删。
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利用getprocessmemoryinfo获取进程占用内存大小
Delphi获取flash文件的影片时长,原始尺寸,帧数等信息
Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己
Delphi 中 findwindow 和 findwindowex 的语法和用法
更多相关阅读请进入《Delphi》频道 >>
