jow
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:66 回覆:751 積分:1253 註冊:2002-03-13
發送簡訊給我
|
![](/images/msn/002.gif) [code delphi] procedure TForm1.TestClick(Sender: TObject); var S, S1, S2: string; begin S := 'AS2mRa819wx'; S1 := Copy(S, 1, 4); S2 := Copy(S, 5, Length(S)-4); ShowMessage(S1); ShowMessage(S2); end;
[/code]
|