小编Fra*_*anz的帖子

我必须比较2个stringlist,我想知道第二个stringlist中的第一个stringlist是否是执行此问题的唯一或推荐版本

我的代码就是这样的

var
  aFirstStrList: TStringList ;
  aSecondStringList: TStringList; 
  MissingElement_firstElement_not_inside_second: TStringList;
  MissingElement_SecondElement_not_inside_First: TStringList;

...

for i := 0 to aFirstStrList.Count - 1 do
begin
  if aSecondStringList.IndexOf(aFirstStrList[i] < 0 ) then
  begin
    // react on not found elements 
    ....
    MissingElement_firstElement_not_inside_second.add(...);
  end;
end;
// and now same code just opposite search direction .... 
....

Delphi中是否有任何内置函数可以删除TStringList空的所有字符串？

如何遍历列表以删除这些项目？

我可以通过Delphi源代码更改已编译的exe文件和输出文件夹的名称.我知道我可以通过手动编辑"项目设置"来改变它.我想编译dunit测试用例,每当我使用GUItestrunner时,我更喜欢不同的输出文件夹和exe文件名

{$ifdef guitestrunner}
CONST
   exename = ......
   exeoutfolder = ....
{$else}
   ....
{$ifend}

如果我能找到解决这个问题的方法.有没有机会通过一键鼠标创建/编译两个可执行文件？

我可以使用DELPHI,dbgo数据库组件和SQL Server数据库服务器编写SQL查询,这些查询在处理时间方面受到限制吗？

喜欢

select * from table where ......  

和process_time_limit = 5 sec？

最好在一个时间限制内给出10%的行,而不是等待完整的查询数据集

按照我之前的问题,我试图从其中一个答案中编译代码.

 type 
   TSearchableObjectList<T> = class(TObjectList<T>)
   end;

编译器不会编译它并报告此错误消息:

[dcc32 Error]: E2511 Type parameter 'T' must be a class type

这个错误消息意味着什么,我该如何修复代码？

在将软件开发从VCL框架工作改为Firemonkey的时候,我无法理解TPagecontrol组件从优质的旧VCL框架中脱颖而出.

我已经在我的表格上放了一个TTabControl并添加了几个Tabitemn,现在我找不到TPagecontrol的替代品了.

我收到一个错误:

[DCC错误] Unit_TProcessClass.pas(334):E2010不兼容类型:'TBitmap'和'tagBITMAP'

该类定义为

TMyClass = Class 
private
  MyBMP : TBitmap;
  property aBMP : TBitmap read MyBMP write MyBMP;

代码就像

processABitmap(aMyClass.aBMP) ;  -> here is the compile error !!! 

我正在设计一个面板后代组件,它上面有一个按钮控件:

THidePanel = class(TPanel)
private
  TActivateButton: TButton;
public
  constructor Create(aOwner: TComponent); override;
  procedure WMSize(var Msg: TWMSize); message WM_SIZE;
  procedure HideComponents;
end;

该组件如何处理其TActivateButton控件的OnClick事件？

我想创建一个函数,将某个类的所有名称作为字符串列表返回.基于之前的解决方案/问题,我尝试使用此代码但没有成功

function  GetClassElementNames (TObject ) : TStringlist ;
var
  LCtx : TRttiContext;
  LMethod : TRttiMethod;
begin
  try
    LCtx:=TRttiContext.Create;
    try
      // list the methods for the any class  class
      for LMethod in  LCtx.GetType(TObject).GetMethods do
        result.add(LMethod.Name);
    finally
      LCtx.Free;
    end;
  except
    on E: Exception do
      result.add (E.ClassName + ': ' +  E.Message);
  end;
end;

在上一个(从列表中删除空字符串)问题我询问有关从字符串列表中删除空字符串

....
// Clear out the items that are empty
for I := mylist.count - 1 downto 0 do
begin
  if Trim(mylist[I]) = '' then
    mylist.Delete(I);
end;
....

从代码设计和重用的角度来看,我现在更喜欢一个更灵活的解决方案:

 MyExtendedStringlist = Class(TStringlist)

 procedure RemoveEmptyStrings;

 end;

问:在这种情况下我可以使用类助手吗？与上面设计一个新课程相比,这会是什么样子？