Question

delphi 截取某个字符之前的字段,，如 1234567-9，要分别得到 - 之前的字符串和 - 之后的字符串

Answer 1

copy(string,1,pos('-',string)-1)
copy(string,pos('-',string)+1,length(string)-pos('-',string))

Answer 2

全球通用
TStringList类

Delimiter:='-' DelimitedText:='1234567-9'

返回的就是你需要的字符串

当然其他朋友的答案也可以, 只是处理复杂字符串的时候就显得Hold不住了

Answer 3

copy(string,1,pos('-',string)-1)
copy(string,pos('-',string)+1,length(string)-pos('-',string))

Answer 4

copy(名，1，7)这是截取的前面的数字，
copy（名，8，9）后面的数字