jow
尊榮會員
發表:66 回覆:751 積分:1253 註冊:2002-03-13
發送簡訊給我
|
[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]
|