Icy's Blog

Hi, 请登录

Delphi TStringDynArray 使用,分割字符串.

我公司的使用不使用自己的库,把我的TStringArray的部分函数处理 分割出来了 。

如果您那边有我的Night的小扩展库 就可以直接使用 Ary:  TStringArray;  Ary.Add(S);  这杨用即可 不然请看下面。

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 即可 记得放掉哦.

相关推荐

评论

  • 昵称 (必填)
  • 邮箱
  • 网址