本文整理自网络,侵删。
procedure TForm1.Button2Click(Sender: TObject);vars: array [0..99] of char;p: integer;begins := 'Delphi World';p := pos('W', s); //获取W 之后的字符串包括WForm1.Caption := copy(s, p, Length(s) - p);end;
相关阅读 >>
Delphi利用微软sapi实现语音控制(Delphi,tts,sr,灰色代码)_
Delphi getmodulefilename函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
Delphi f1026 file not found: ''quickrpt.dcu''解决方法
更多相关阅读请进入《Delphi》频道 >>