我正在尝试制作程序以从句子或短语中删除所有元音。我没有听到语法错误,但是当我添加一个像'Cool'这样的词或者两个以上的元音相邻的元音时,并不是所有元音都会被删除。为什么是这样? 这里是我的代码: procedure TForm1.btnProcessClick(Sender: TObject);
Var Sentence: string;
K : integer;
Begin
Sent
我的应用程序有一个Tclientsocket构件实现连接到服务器正常 但是当服务器关机并重新运行 我的应用程序不知道连接到它 我用这个代码来解决问题 if not ClientSocke.active then
begin
clintsocke.open();
end
else
Exit();
但是这个代码不解决我的问题,积极属性为false总是 我