重新问一个字符串操作的问题(20分)

如何交将字符串:aaaa----bbbb----cccc----dddd
转换成:aaaa 格式
aaaa----bbbb 格式。

说明aaaa,bbbb,的长度不定

你描述的我看不明白

哈，最喜欢做这种问题了

procedure TForm1.Button1Click(Sender: TObject);
const
SRC = 'aaaa----bbbb----cccc----dddd';
DEVIDER = '----';
CRLF = #$D#$A;
var
Wrapped: TStringList;
begin
Wrapped := TStringList.Create;
try
Wrapped.Text := StringReplace(SRC, DEVIDER, CRLF, [rfReplaceAll]);
Caption := Wrapped.Strings[0] + DEVIDER + Wrapped.Strings[1];
finally
FreeAndNil(Wrapped);
end;
end;

一次通过

接受答案了.