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

推荐分享