Changeset 210 for trunk/Components/ACLDialogs.pas

Timestamp:

Jun 13, 2007, 8:31:36 PM (18 years ago)

Author:

RBRi

Message:

using StringUtilsUnit

File:

• trunk/Components/ACLDialogs.pas (modified) (2 diffs)

trunk/Components/ACLDialogs.pas

@@ -78 +78 @@
 uses
   SysUtils,
-  Forms, Dialogs, StdCtrls, Buttons,
-  ACLStringUtility
+  Forms,
+  Dialogs,
+  StdCtrls,
+  Buttons,
 {$ifdef os2}
-  , ACLLanguageUnit, ControlsUtility
+  ACLLanguageUnit, ControlsUtility,
 {$endif}
-  ;
+  CharUtilsUnit;
 
 // -------------------------------------------------
@@ -101 +103 @@
   TheDialog := TMessageForm.Create( nil );
   TheDialog.Caption := Caption;
-  PMessage := StrDupPas( Message );
+  PMessage := NewPCharAsCopyOfStr(Message);
   TheDialog.TheText := PMessage;