比如我有一个字符串‘aaa|bbb|cccc’,我要根据'|'把它分成‘aaa’,‘bbb’,‘ccc’三个字符串
解决方案 »
- 如何循环webbrowser的html值?
- Delphi代码编译不通过,请帮忙看看是哪的原因。
- 求救!!!!!!
- 哪位兄弟发一份项目计划书的范例给我看看,谢谢!
- 请问,怎么用LISTVIEW点击其COULMN来排序。
- 限制鼠标移动范围??
- ADO+Access sql查询出错
- 在一个FORM中有二个DBGRID一个是显示的是表中工作单位dbgrid1一个是显示人员信息dbgrid2(同一个表)怎么样才可以使点dbgrid中的一个工作单
- 请问在项目选项中加上"Build with runtime packages"有什么用?
- CD播放器的问题
- 黑龙江程序员联盟(13711613)这里高手很多,最好是黑龙江的呀,希望你加入
- 关于GPIB编程
arr=split("字符串","分隔符")
-------------------------------------------------------
http://kmok.cn
str:string;
arr:array[1..5] of char;
begin
str:='aaa,bbb,ccc';
arr:=split(str,',');
end;
提示:
[Error] Unit1.pas(33): Undeclared identifier: 'split'
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
if Source=''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
begin
t:=SplitString('aaa|bbb|ccc','|');
Label1.Caption:=t.Strings[0]; //aaa
end;
var
I: Integer;
begin
I := aPos;
while (I <= Length(aString)) and (aString[I] <> aSeparator) do Inc(I);
Result := Trim(Copy(aString, aPos, I - aPos));
if (I <= Length(aString)) and (aString[I] = aSeparator) then Inc(I);
aPos := I;
end;procedure TForm1.Button1Click(Sender: TObject);
var
lString, lSubString: string;
lPos, j: integer;
begin
lString := '023842394201342|343242423423|342342424|533423|2455';
lPos := 1;
j := 0; while lPos <= Length(lString) do
begin
lSubString := ExtractString(lString, '|', lPos);
inc(j);
end;
end;