5,928
社区成员
发帖
与我相关
我的任务
分享如何分解字符串？
如何将字符串 string = 'AAAAA;BBBB;CCC;DDDD';
分解为个字符串 A = 'AAAAA';
B = 'BBBB';
C = 'CCC';
D = 'DDDD';
分解为个字符串 A = 'AAAAA';
B = 'BBBB';
C = 'CCC';
D = 'DDDD';
...全文
请发表友善的回复…
发表回复
lwk_hlj 2002-12-14
- 打赏
- 举报
学习
myy 2002-12-14
- 打赏
- 举报
用不着那么麻烦：
function StrToStrList(SourceStr): TStringList;
var
begin
Result := TStringList.Create;
Result.Text:=StringReplace(SourceStr,';',#10,rfReplaceAll);
end;
function StrToStrList(SourceStr): TStringList;
var
begin
Result := TStringList.Create;
Result.Text:=StringReplace(SourceStr,';',#10,rfReplaceAll);
end;
ePing 2002-12-13
- 打赏
- 举报
SourceStr源字符串，SepChar分隔符，这里填写"；"
function StrToStrList(SourceStr, SepChar: String): TStringList;
var
SepPos: Integer;
TempStr: String;
Len: Integer;
begin
Result := TStringList.Create;
TempStr := SourceStr;
while Pos(SepChar, TempStr) <> 0 do
begin
Len := Length(TempStr);
SepPos := Pos(SepChar, TempStr);
Result.Add(Copy(TempStr, 1, SepPos - 1));
TempStr := Copy(TempStr, SepPos + 1, Len - SepPos);
end;
Result.Add(TempStr);
end;
以上函数，得到少少启发
function StrToStrList(SourceStr, SepChar: String): TStringList;
var
SepPos: Integer;
TempStr: String;
Len: Integer;
begin
Result := TStringList.Create;
TempStr := SourceStr;
while Pos(SepChar, TempStr) <> 0 do
begin
Len := Length(TempStr);
SepPos := Pos(SepChar, TempStr);
Result.Add(Copy(TempStr, 1, SepPos - 1));
TempStr := Copy(TempStr, SepPos + 1, Len - SepPos);
end;
Result.Add(TempStr);
end;
以上函数，得到少少启发
