小编War*_* P的帖子

我有一个字符串

/bus-stops/ 

任何人都可以用正则表达式帮助我删除转义斜杠并仅提供字符串吗？

我正在处理具有两个列表框的应用程序.我使用值加载两个列表框,当我继续单击列表框中的项目时,我在调试时收到以下错误.

运行exe会导致应用程序关闭.有时我会收到"访问冲突"消息.

那么我该如何摆脱我的应用程序中的这个错误呢？

编辑

..

主窗体具有刷新所有控件的计时器timer_RefreshCOntrol(intervali 1).

当editBox_one被修改(值)时,调用此函数

Procedure TStringSetting.SetValue (const AValue : String);
  Begin
   ...
    If FValueControl <> Nil then
    Begin
     FValueControl.OnChange := VoidNotifyEvent;
     FValueControl.Text := NewValue;
     FValueControl.OnChange := EditChange;        //<--here the stackoverflow error comes....
    end;
  end;




 Procedure EditChange (Sender: TObject);
   Begin
       Value := FValueControl.Text;
       If Not EditIsValid then FValueControl.Font.Color := clRed
       else If Dirty  then FValueControl.Font.Color := clBlue
                  else FValueControl.Font.Color := clWindowText;

       If @OldCustomEditChange <> Nil then OldCustomEditChange(Sender);
    end;`


   the EditChange (Sender: TObject); <--keeps geting called and the …

我有一个显示联系地址的mdi表格.由于它是Mdi,我可以打开表格的多个副本.然而,显然所使用的变量在表格中被"复制".因此,在下面的代码中,ContactTypeId将具有基于创建的最后一个表单的值.

implementation

uses DataModule, MainForm;

{$R *.dfm}

var ModuleUserLevel, ContactId, ContactTypeId : Integer;
  EditMode, EditAccess, AddAccess, DeleteAccess  : Boolean;
  ContactName : String;

constructor TContactDetailsFrm.Create(AOwner:TComponent; InContactTypeId, InContactId : Integer);
Begin
  Inherited Create(AOwner);
  ContactId := InContactId;
  ContactTypeId := InContactTypeID;
End;

我怎么能避免这个？

提前致谢

好吧,我有一个程序和一个网站,网站必须分开最新消息,只用CSS3等格式化.我不知道如何在我的delphi程序中显示最新消息,因为TWebBrowser不透明,无法渲染CSS3和HTML5,还有其他一些方法吗？

当然,TOleContainer可以像Word文档一样插入OLE对象.但它似乎不适用于ActiveX.当然,我知道Delphi的IDE创建ActiveX包装器的能力.如果我想在不创建包装器的情况下创建控件并在运行时将其安装到IDE中,该怎么办？

控件已注册,因此与此问题不同,我不需要免注册com.我只需要一些关于如何启动动态ActiveX容器的想法或一些示例.

我有一个问题,当我使用TRegEx对长文本和长文本来自网络!,我使用Indy获取网页源,然后我使用正则表达式找到链接!但正则表达式不能正常工作的问题!

我的正则表达式:

'/stream_map=(.[^&]*?)&/i'

资源:

const HTTP_RESPONSE_OK = 200;

function GetPage(aURL: string): string;
var
  Response: TStringStream;
  HTTP: TIdHTTP;
begin
  Result := '';
  Response := TStringStream.Create('');
  try
    HTTP := TIdHTTP.Create(nil);
    try
      HTTP.Get(aURL, Response);
      if HTTP.ResponseCode = HTTP_RESPONSE_OK then begin
        Result := Response.DataString;
      end else begin
        // TODO -cLogging: add some logging
      end;
    finally
      HTTP.Free;
    end;
  finally
    Response.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
    var 
    regex : TRegEx;
    exper : string;
    result : string;
    fmatch : TMatchCollection;
    begin

    //Edit1.Text = http://www.youtube.com/watch?v=rzADrNmwYI0&feature=player_embedded 
    Memo1.Text := GetPage(Edit1.Text); …

我有一个MFC Visual C++应用程序似乎无法在类向导中工作,但是,我有一个视图(CServerView),我想添加一个WM_TIMER事件处理程序.

我已经想出了如何打电话CWnd::SetTimer,CWnd::KillTimer但十多年来我没有做过的就是修改消息地图.我不确定我应该为我的CView子类修改的地图是ServerView.cpp文件的这部分,还是ServerView.h中的某些部分:

BEGIN_MESSAGE_MAP(CServerView, CListView)
    //{{AFX_MSG_MAP(CServerView)
    ON_COMMAND(ID_DRIVER_START, OnDriverStart)
    ON_UPDATE_COMMAND_UI(ID_DRIVER_START, OnUpdateDriverStart)
        ...
    // Standard printing commands
END_MESSAGE_MAP()

这可能是一件微不足道的事情,但我面临的两个复杂问题是,关于这一点的在线文档都是针对最近的Visual Studio版本的,我在Visual C++ 6.0中坚持这样做

我可以将我的Delphi代码包装在{$finiteFloat OFF|ON}如下所示的未记录的编译器指令中,以在函数期间禁用浮点异常吗？

{$finiteFloat OFF}
a := 5.0;
b := 0.0;
c := a/b;  // do not raise exception here!
{$finiteFloat ON}

我知道我可以在{$ J}的常量的情况下,但我不认为{$ finiteFloat}可以做到这一点,因为它的范围是全局的.谁能确认一下？

我在Windows7 64位机器上使用Delphi 10 Seattle.

这是问题所在:

为了为我的软件创建测试环境,我创建了一个小应用程序,将环境变量添加到Windows注册表下

HKEY_CURRENT_USER\Environment

我在我的包和主项目的搜索路径中使用这些变量,以便能够将项目设置提交到源代码控制中,并轻松地从生产切换到测试分支等...

现在,问题是,在创建环境变量之后,Delphi不会更新其"内部系统变量存储"

Tools --> Options --> Environment Variables

而且项目没有编译.

即使重新启动Delphi也没有带来预期的效果.我必须完全重启Windows才能使其正常工作.

有没有办法在我的应用程序中更新Delphi中的系统变量？我错过了别的什么吗？

非常感谢!

我做了一个小程序,就像一个webbrowser.我想做什么,比如IE和大多数程序.在程序顶部创建一个名为tools的选项卡,然后在其中的某个选项中.从这里开始,我需要知道该怎么做.我想要一个小弹出菜单来允许我填写主页,例如可能做更多.在delphi应用程序中是否需要使用新的表单或单元？

我需要知道的是,如何才能获得此弹出窗口.也许有人知道一个网站上有一些教程或指南.关键词会让我前进.每个程序都有一个工具菜单,允许它们在程序中播放和替换变量.这就是我想要做的.如果你认为我需要更多的探索.请告诉我!

关心所有人