有一组字符串如下:
adf---ASDF
cdgjk---ERT三个---号前的字符数是任意的,同样三个---号后的字符数也是任意的。
1、截取---前的字符串。
2、截取---后的字符串。
adf---ASDF
cdgjk---ERT三个---号前的字符数是任意的,同样三个---号后的字符数也是任意的。
1、截取---前的字符串。
2、截取---后的字符串。
解决方案 »
- QuickReport.v5.04.D2009 安装问题
- 如何汉化QuickReport中的预览界面
- 请问ActionList控件是干吗用的?
- showModalDialog这类弹窗怎么拦截,有代码
- 发布一个小工具,欢迎大家帮忙测试:)
- 搞定问题500分:熟悉GifImage.pass的进,不熟顶也有分
- fastReport关于套大的问题!大家都可以进来看看····· 来了都给分!
- 您好,请问如何滤掉字符串中的单引号? 谢谢
- 关于listview控件内实现多个选项(图标)拖动的问题?
- 如何做成“上一步,下一步”那样的向导对话框?
- 请问VISTA和WIN7编程需要注意什么?
- 来一个大家都会的。。。
s1: string;
slist: TStringList;
begin
s1 := 'adf---ASDF';
// s1 := 'cdgjk---ERT'; slist := TStringList.Create;
s1 := StringReplace(s1, '---', '-', [rfReplaceAll]);
slist.Delimiter := '-';
slist.DelimitedText := s1;
ShowMessage(slist[0] + ' ' + slist[1]);
slist.Free;
var
i : Integer;
begin
R := '';
T := '';
i := Pos('---', S);
if i > 0 then
begin
R := Copy(S, 1, i - 1);
T := Copy(S, i + 3, Length(S) - i - 2);
end;
end;
调用的例子:var
R, T: String;
begin
SplitString('adf---ASDF', R, T);
ShowMessage(R + ' , ' + T);
end;