做一个返回数组的函数(例子)

最新推荐文章于 2023-06-15 20:12:45 发布

hch_45

最新推荐文章于 2023-06-15 20:12:45 发布

阅读量854

点赞数

本文链接：https://blog.csdn.net/hch_45/article/details/15505

版权

type
TArray = array of string;

procedure TrimChar(s:string;var sRet : TArray);
function CountChar(s:string; c:char):integer;
var
    i : integer;
begin
    result := 0;
    for i := 1 to Length(s) do
      if s[i] = c then Inc(result);
end;
var
iPos : integer;
i    : integer;

begin
SetLength(sRet, CountChar(s, ',') + 1);
iPos := Pos(',', s);
i := 0;
while iPos > 0 do
begin
    sRet[i] := Copy(s, 1, iPos - 1);
    Delete(s, 1, iPos);
    iPos := Pos(',', s);
    Inc(i);
end;
sRet[i] := s;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sA : TArray;
s : string;
i : integer;
begin
s := 'abc,cd,mm,44';
sA := nil;
TrimChar(s, sA);
for i := Low(sA) to High(sA) do
    Memo1.Lines.Add(sA[i]);
end;