Delphi TStringDynArray 使用,分割字符串

本文整理自网络，侵删。

 
uses IOUtils, Types;

procedure StringAryDelete(var A: TStringDynArray;const index: Integer);
var
   Count: Integer;
begin
  Count:= Length(A);
  if (Count = 0) or (Index < 0) or (Index >= Count) then Exit;
  Move(A[Index+1], A[Index], (Count-Index)* SizeOf(A[0]));
  SetLength(A, Count - 1);
end;
 
procedure StringAryAdd(var A: TStringDynArray; const S:  string);
var
 C:    Integer;
begin
  C:= Length(A);
  SetLength(A,C+1);
  A[C]:= S;
end;

上面的两个函数一个是用来增加 一个是用来 删除的 。

如果需要分割字符串的话 引用Strutils   使用 SplitString 即可 记得放掉哦

http://www.icy6.com/delphi/split.html
 

相关阅读 >>

Delphi idhttpserver接收http get请求解码问题

Delphi istream与tstream之间的相互转换

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi api 做的 serversocket 例子

Delphi 数据异或校验

Delphi 更改窗体为顶层窗体不闪烁

Delphi 字符串与日期格式互转

Delphi模拟文件拖拽

Delphi xe2创建apple ios程序

android开发-px和dip以及sp的区别

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

转载请注明出处：木庄网络博客 » Delphi TStringDynArray 使用,分割字符串