小编Kro*_*ica的帖子

删除在运行时创建的TLabel

如何删除创建的标签,我google了很长时间但没有出现!,我尝试FindComponent但faild,我要做什么?我应该将父母设置为其他组件,如TPanel或什么?我感到很困惑!

procedure TForm1.Button1Click(Sender: TObject);
var
  lblLink: TLabel;
begin
   for i := 0 to stringtList.Count-1 do
   begin 
     lblLink := TLabel.create(self);

     with lblLink do
     begin
       name:='lblLink'+inttostr(i);
       caption:inttostr(i);
       Parent := self;
       font.style := [fsUnderline];
       cursor := crHandPoint;
       color := clBlue;
       font.Color := clBlue;
     end;
   end;
end;
Run Code Online (Sandbox Code Playgroud)

delphi vcl runtime

4
推荐指数
1
解决办法
5574
查看次数

写入系统驱动器C上的文件:在Delphi中没有管理员权限

我试图在Windows 8中的Delphi XE3中将Memo文本写入.txt文件,但出于某种原因,当我在IDE中运行该程序时它工作(临时.exe在我的D:驱动器上)但是当我复制时我的程序到C:\ Myprogram.exe它给出错误"访问被拒绝"所以我不能写在C:\的任何地方

我已经尝试制作清单,但是没有用.

PS:我不想以管理员身份运行程序,当我以管理员身份运行时,它可以运行.

windows delphi admin-rights

4
推荐指数
1
解决办法
1689
查看次数

Delphi xe3 Mainform隐藏

我一直试图用hiden主表单启动我的应用程序,但没有运气.它编译和一切,但当我运行它时,我得到运行时错误.当我使用计时器并将其设置为1毫秒然后调用Application.MainForm.Hide它隐藏但它闪烁我不希望这发生

program Project1;
uses
  FMX.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.MainForm.Visible := false;
  Form1.Visible:=false;
  Application.Run;
end.
Run Code Online (Sandbox Code Playgroud)

forms delphi hide firemonkey delphi-xe3

4
推荐指数
1
解决办法
1663
查看次数

德尔福如何与Detours图书馆互动?

我正在寻找Delphi样本,但我只能找到C++示例代码.

例如,如何在Delphi中定义下面的钩子?

DETOUR_TRAMPOLINE(int   WINAPI SetScrollInfoT(HWND, int, LPCSCROLLINFO, BOOL), SetScrollInfo)
Run Code Online (Sandbox Code Playgroud)

delphi detours

4
推荐指数
1
解决办法
1327
查看次数

选择值等于给定值或更低且最接近给定值的行

抱歉标题令人困惑。请告诉,是否可以通过数据库请求来完成。假设我们有下表

   ind_id      name                 value       date
----------- -------------------- ----------- ----------
1           a                    10          2010-01-01
1           a                    20          2010-01-02
1           a                    30          2010-01-03
2           b                    10          2010-01-01
2           b                    20          2010-01-02
2           b                    30          2010-01-03
2           b                    40          2010-01-04
3           c                    10          2010-01-01
3           c                    20          2010-01-02
3           c                    30          2010-01-03
3           c                    40          2010-01-04
3           c                    50          2010-01-05
4           d                    10          2010-01-05
Run Code Online (Sandbox Code Playgroud)

我需要查询所有行以包含ind_id给定日期的每个行,如果给定日期没有ind_id,则取最近的较低日期,如果没有任何较低日期,则返回 ind_id + name (名称/ind_id 对相等)与空值。例如,日期是 2010-01-04,我期望以下结果:

ind_id      name                 value       date
----------- -------------------- ----------- ---------- …
Run Code Online (Sandbox Code Playgroud)

sql database sql-server-2008

4
推荐指数
1
解决办法
4273
查看次数

Highcharts X-Axis标签为Text

在这个小提琴中,{"apple","orange","mango"}无需更改系列数据,是否可以将x轴标签显示为文本,即代替小数,即{0,1,2}不将标签与JSON分开并将其提供给类别.

$(function () {
    $('#container').highcharts({
        chart: {
        },
        xAxis: {

            labels: {
                enabled: true
            }
        },

        series: [{
            data: [["apple",29.9], ["orange",71.5], ["mango",106.4]]        
        }]
    });
});
Run Code Online (Sandbox Code Playgroud)

javascript highcharts

4
推荐指数
2
解决办法
2万
查看次数

Laravel 4在控制器中进行测试

我在Laravel 4中测试控制器时遇到问题.

我有下一个代码:

public function getRemind()
{
    $status = \Session::get('status');
    $error = \Session::get('error');
    $email = \Session::get('email');

    return \View::make('admin/reminds/remind_form', compact('status', 'error', 'email'));
}
Run Code Online (Sandbox Code Playgroud)

我想测试控制器在视图中传递的正确数据:

public function testGetRemind()
{
    \Session::set('status', 'status');
    \Session::set('error', 'error');
    \Session::set('email', 'email');
    $response = $this->action('GET', 'Admin\RemindersController@getRemind');
    $this->assertTrue($response->isOk(), 'Get remind action is not ok');
    $this->assertViewHas('status', 'status');
    $this->assertViewHas('error', 'error');
    $this->assertViewHas('email', 'email');
}
Run Code Online (Sandbox Code Playgroud)

但这不起作用.

另外我不能模拟Session-class,因为框架不允许 - 当我尝试这样做时会有很多错误.

session phpunit laravel-4

4
推荐指数
1
解决办法
3150
查看次数

如何在 openGL 中进行矩阵相乘

如何在没有 GLUT 或其他扩展包的情况下在基本 openGL 中进行矩阵乘法?比如说,我要计算T*M的结果,T和M都是矩阵。如何在openGL中实现呢?

我知道这是一个名为glMultMatrix*()的函数。但它只是用结果替换当前的模型矩阵。而且这不是直接计算矩阵的方法。

c++ opengl matrix

4
推荐指数
1
解决办法
1万
查看次数

我可以使用 OTL 来并行化嵌套循环吗?

我想知道我是否可以使用 OTL 来并行化这个循环。

我有以下代码。

for i := 1 to XRes do
 begin
   for j := 1 to XRes do
     begin
       GridMat.Elem[i,j] := StrToFloat(ListOfValues[(i-1)+((j-1)*Xres)]);
     end;
   Invalidate;
 end;
Run Code Online (Sandbox Code Playgroud)

是否可以将 GridMat(来自 SDL_matrix.TMatrix)作为参数传递给所有并行 ForEach 并将值添加到它。

delphi omnithreadlibrary

4
推荐指数
1
解决办法
237
查看次数

Delphi 7中For..in循环的替代方案?

编译此代码链接时,我在循环中遇到Delphi 7错误

procedure GetProcessorInfo;
Var
  SMBios             : TSMBios;
  LProcessorInfo     : TProcessorInformation;
  LSRAMTypes         : TCacheSRAMTypes;
begin
  SMBios:=TSMBios.Create;
  try
      WriteLn('Processor Information');
      if SMBios.HasProcessorInfo then
      for LProcessorInfo in SMBios.ProcessorInfo do // <-- Error here
      begin
        ...
      end;
  ...
end;
Run Code Online (Sandbox Code Playgroud)

错误信息:

[Error] Project1.dpr(52):运算符不适用于此操作数类型

还有其他办法吗?或者我该如何解决?

delphi delphi-7

4
推荐指数
1
解决办法
1512
查看次数