用copy就行了,具体用法查帮助就行了。
解决方案 »
- 组件的资源占用
- 如何得到TDBGrid中某一格或者某一列的数据?
- 我的一个处理数据的方式,大家帮我看看
- 如何为Query建立虚拟字段(类似于内存表),并且可编辑?
- 菜鸟问题:delphi7 中程序中Rave如何直接运行打印预览(
- 高人指点,有关spcom控件编程的棘手问题。
- Delphi开发图书馆触摸屏查询系统
- 如何动态地进行字段编辑呢?(很急。。。)
- !!!!!!!!!请教关于构造函数Create的问题!!!!!!!!!!!
- 關于自動編號問題----->在線等待----->進者有分---->謝謝!
- 怎样通过编程得到insert,home,方向键等键的ascII码呢?
- 有谁知道珠海天心?给个意见哈!
这个本身就有问题,如果email是数字开头的怎么区分?
var
I: Integer;
begin
Result := '';
for I := 1 to Length(mStr) do begin
if mStr[I] in mSysCharSet then Break;
Result := Result + mStr[I];
end;
end; { ZsGoto }function ZsTogo(mStr: string; mSysCharSet: TSysCharSet): string;
var
I: Integer;
begin
Result := '';
for I := 1 to Length(mStr) do
if mStr[I] in mSysCharSet then begin
Result := Copy(mStr, I, MaxInt);
Break;
end;
end; { ZsTogo }procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := '李三[email protected]';
Memo1.Clear;
Memo1.Lines.Add(ZsGoto(S, ['0'..'9']));
S := ZsTogo(S, ['0'..'9']);
Memo1.Lines.Add(ZsGoto(S, ['a'..'z', 'A'..'Z']));
S := ZsTogo(S, ['a'..'z', 'A'..'Z']);
Memo1.Lines.Add(S);
end;