var
inputList: TStrings;
text:String
text:=GSP*PL*0001*123*456
inputList := TStringList.Create;
inputList.Delimiter:='*' ;
inputList.DelimitedText:=STRINGREPLACE(text,' ','*',[rfReplaceAll]);
使用:
inputList.Strings[1]+''','''+inputList.Strings[2]+''','''+inputList.Strings[3]+''','''+inputList.Strings[4]+
本文介绍了一种使用 Delphi 或类似的 Pascal 语言进行字符串处理的方法。通过创建 TStringList 并设置分隔符,可以将带有特定分隔符的字符串拆分成多个部分。此外,还演示了如何使用 STRINGREPLACE 函数替换字符串中的空字符,确保字符串可以正确地被拆分。最终,通过组合 TStringList 中的不同元素来实现所需的数据格式。
388

被折叠的 条评论
为什么被折叠?



