如果提取字符 ( 积分: 100 )

erp-hrp@abc
如何分成ERP HRP ABC三个字符?

ExtractString(['-', '@'], [' '], PChar('erp-hrp@abc
'), tmpStrings);

顺序读取也可以处理。
看你的条件

我的格式都是固定的,如何写这样一个函数,一次返回三个字符串?

function TranString: TStrings;
begin
Result := TStringList.Create;
ExtractString(['-', '@'], [' '], PChar('erp-hrp@abc'), Result);
end;

因为你说你的格式是固定的，所以我没有考虑特殊情况，具体应用还要参考实际情况。
方法1：=================================
function SplitS(S: String):TStrings;
begin
Result := TStringList.Create;
Result.StrictDelimiter := True
Result.Delimiter := ' ';
Result.DelimitedText := S;
end;

方法2：=================================
TData = Record
a: String;
b: String;
c: String;
End;
function SplitS(S: String): TData;
Var
T,L : integer;
begin
T := PosEx(' ',1,S);
Result.a := copy(S,1,T-1);
L := T+1;
T := PosEx(' ',L,S);
Result.b := Copy(S,L,T-L);
Result.c := Copy(S.T+1,Length(S)-T);
end;

多人接受答案了。