å¨ delphi ä¸ï¼ä½ å¯ä»¥æå符串å½ä½æ°ç»æ¥å¤çï¼å æ¤ï¼ååºå
¶ä¸çå个å符ï¼å¯ä»¥ç¨ strTest[10] è¿ç§æ¥å¾å°ã
示ä¾ä»£ç ï¼
procedure TfrmMain.btnTestClick(Sender: TObject);
var
strTest,s:string;
i: Integer;
begin
strTest := 'abcd1234';
s := '';
for i := Low(strTest) to High(strTest) do
s := s+ '- ' + strTest[i];
ShowMessage(s);
end;
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/e850352ac65c1038fe6656c9b5119313b07e89a5?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)