16,748
社区成员
发帖
与我相关
我的任务
分享
var
s: string;
i: Integer;
Count: Integer;
Position: Integer;
begin
Count := 0;
s := 'a;b;c;d';{ÀýÈçÕâÑùµÄ×Ö·û´®}
for i := 1 to Length(s) do
begin
if s[i] = ';' then
begin
Inc(Count);
end;
if Count = 3 then
begin
Position := i;
ShowMessage(IntToStr(i));
Break;
end;
end;
end;
function GetPosion(str : string): Integer;
var
I ,nCount: Integer;
begin
Result := 0;
nCount := 0;
for I := 1 to Length(str) do
begin
if str[I] = ';' then
begin
inc(nCount);
if nCount = 3 then
begin
Result := I;
exit;
end;
end;
end;
end;