摘要: procedure TForm1.btn1Click(Sender: TObject);var constr,str,str1,str2,str3,str4:string; strs :TStrings; i:Integer;beginconstr:='1-2-3';strs := TStringL 阅读全文
posted @ 2022-05-11 17:21 Zhao's_Blog 阅读(233) 评论(0) 推荐(0)