做一个返回数组的函数(例子)
2003-12-26 11:41
369 查看
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;
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;
相关文章推荐
- 做一个返回数组的函数(例子)
- 一个简单的oracle函数返回数组的例子[zz]
- 一个简单的oracle函数返回数组的例子
- 一个oracle函数返回数组的例子
- 面试题-->写一个函数,返回一个数组中所有元素被第一个元素除的结果
- C语言 通过指针从函数返回一个数组
- 让c++ 函数返回一个数组
- 【转载】让c++ 函数返回一个数组
- 【php数组函数序列】之prev() - 移动数组内部指针到上一个元素的位置,并返回该元素值
- 题目是:写一个函数,返回一个数组中所有元素被第一个元素除的结果
- C++做一个返回数组指针的函数
- 让c++ 函数返回一个数组
- shell 向函数传递数组和从函数返回数组的一个细节问题
- 修改 anyCommonElements(_:_:) 函数来创建一个函数,返回一个数组,内容是两个序列的共有元素
- 实现函数 makeClosures,调用之后满足如下条件: 1、返回一个函数数组 result,长度与 arr 相同 2、运行 result 中第 i 个函数,即 result[i](),结果与 fn
- 题目是:写一个函数,返回一个数组中所有元素被第一个元素除的结果
- 过程抽象和返回一个值的函数(例子代码)
- 从函数返回一个数组的2种方法 (C专家编程 p230)
- 使用数组指针从函数中返回一个数组
- 做一个返回数组的函数 DELPHI