for down to 循环 遇到 真条件后，要及时退出，否 一直 到最后一后条件 而不是第一个条件

 

 

for down to 循环 遇到 真条件后，要及时退出，否 一直 到最后一后条件 而不是第一个条件

procedure TForm8.Memo1KeyPress(Sender: TObject; var Key: Char);
 var i,j:integer;   aStr:string;
begin
    for I := Memo1.CaretPos.X  downto 0 do   begin
      if ( Memo1.Lines[Memo1.CaretPos.Y][ I ] in [' ',',','(',')']) then  ;
        exit;    //遇到 分隔符 后 ，要及时退出
     end;
end;