delphi-2009

问题 I have the following code: var sl: THashedStringList; begin sl:= THashedStringList.Create; sl.Duplicates := dupIgnore; sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); ShowMessage(IntToSTr(sl.Count)); end; But when I see sl.Count , it gives me 7. What is the bug in this? 回答1: You need to set the Sorted property to TRUE in order to have the list ignore duplicates. The property is inherited from TStringList , and if you look

问题 I have the following code: var sl: THashedStringList; begin sl:= THashedStringList.Create; sl.Duplicates := dupIgnore; sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); sl.Add('12345'); ShowMessage(IntToSTr(sl.Count)); end; But when I see sl.Count , it gives me 7. What is the bug in this? 回答1: You need to set the Sorted property to TRUE in order to have the list ignore duplicates. The property is inherited from TStringList , and if you look

问题 I am using Delphi 2010 to create a Windows service that will monitor several registry keys, and perform an action when a change occurs. I am using RegMonitorThread from delphi.about.com, and my issue is that my main service thread never receives the message that is sent from the TRegMonitorThread. type TMyService = class(TService) procedure ServiceExecute(Sender: TService); procedure ServiceShutdown(Sender: TService); procedure ServiceStart(Sender: TService; var Started: Boolean); private

问题 I made a custom TObjectList descendant designed to hold subclasses of a base object class. It looks something like this: interface TMyDataList<T: TBaseDatafile> = class(TObjectList<TBaseDatafile>) public constructor Create; procedure upload(db: TDataSet); end; implementation constructor TMyDataList<T>.Create; begin inherited Create(true); self.Add(T.Create); end; I want each new list to start out with one blank object in it. It's pretty simple, right? But the compiler doesn't like it. It says

问题 After upgrading a project from Delphi 2007 to Delphi 2009 I'm getting an Unknown memory leak, so far I've been tryin to track it down using fastMM, here is what fastMM stack trace reports: A memory block has been leaked. The size is: 20 This block was allocated by thread 0x111C, and the stack trace (return addresses) at the time was: 40339E [System.pas][System][@GetMem][3412] 534873 [crtl][_malloc] 56D1C4 [canex.cpp][MidasLib][DllGetDataSnapClassObject][3918] 56D316 [canex.cpp][MidasLib]

问题 I've tried my best and cannot figure out what happened here. It worked fine in Delphi 4. After upgrading to Delphi 2009, I don't know if this is the way it is supposed to work, or if it's a problem: This is what my program's menu looks like in Design Mode under Delphi 2009: Notice that every word in the Main Menu and the File submenu have one letter underlined. It is supposed to be like this. This underlined letter is called the Accelerator Key and is standard in Windows applications so that

问题 I've tried my best and cannot figure out what happened here. It worked fine in Delphi 4. After upgrading to Delphi 2009, I don't know if this is the way it is supposed to work, or if it's a problem: This is what my program's menu looks like in Design Mode under Delphi 2009: Notice that every word in the Main Menu and the File submenu have one letter underlined. It is supposed to be like this. This underlined letter is called the Accelerator Key and is standard in Windows applications so that

问题 This problem is related to this question, which I've asked earlier. The code provided by @RRUZ is working but it seems that not quite correctly or I am doing something wrong. After executing GetSharedFiles strange thing is happening in instance of TMyObject . The field FMyEvent which was (and it should be) nil points to some random data. What I've discovered just 5 minutes ago is that if I turn off the optimization in compiler options it works fine after rebuild. So maybe this is some

问题 I have been struggling to get the MSBuild to successfully build my .dproj file for the last few days on a build machine. First, I needed the EnvOptions.proj file from the developer's machine, which got me clear of the missing system.pas file, but now I am getting a compile error for a missing .dcu C:\Program Files\CodeGear\RAD Studio\6.0\Bin\CodeGear.Delphi.Targets(123,3): error : myproject.dpr(17) Fatal: F1026 File not found: 'mymissing.dcu' Now the path to "mymissing.dcu" is included in the

问题 i have a list of class instances of various kinds. i need to be able to create a new instance of a class without knowing for sure what to create. all the objects involved have the same ancestor. the actual copying of the object's member variables is easy...it's the creation of the new object where i have a problem. admittedly i could do something like this: case MyObjectTypeInstance.MyTypeEnum of obj1: Result:=TObjectType1.Create; obj2: Result:=TObjectType2.Create; obj3: Result:=TObjectType3