~纹之心

1、截取字符串 procedure TForm1.Button1Click(Sender: TObject); var tempString: String; begin tempString := 'String\a'; showMessage(copy(trim(tempString),1,pos('\',tempString)-1));//String s...

可能有些过时，可以作为一个参考