Changeset 65 for trunk/NewView/StringUtilsUnit.pas

Timestamp:

Jan 25, 2007, 9:08:08 PM (19 years ago)

Author:

RBRi

Message:

more fixes for the link handling

File:

• trunk/NewView/StringUtilsUnit.pas (modified) (4 diffs)

trunk/NewView/StringUtilsUnit.pas

@@ -62 +62 @@
   Function StrEndsWithIgnoringCase(const aString: String; const anEndString: String): Boolean;
 
+  Function BoolToStr(const aBoolean : boolean ): string;
+
 
 Implementation
 
+  uses
+    DebugUnit;
+
   constructor TSerializableStringList.Create;
   begin
+    LogEvent(LogObjConstDest, 'TSerializableStringList createdestroy');
+
     inherited Create;
     stringList := TStringList.Create;
@@ -74 +81 @@
   destructor TSerializableStringList.Destroy;
   begin
-    stringList.Destroy;
+    LogEvent(LogObjConstDest, 'TSerializableStringList destroy');
+    if Nil <> stringList then stringList.Destroy;
+
     inherited Destroy;
   end;
@@ -112 +121 @@
     if (length(aSerializedString) < 1) then exit;
 
-    stringList.destroy;
+    LogEvent(LogObjConstDest, 'readValuesFromSerializedString');
+    stringList.Destroy;
+    LogEvent(LogObjConstDest, 'readValuesFromSerializedString destroy done');
     stringList := TStringList.Create;
     StrExtractStrings(stringList, aSerializedString, ['&'], '\');
@@ -277 +288 @@
   end;
 
+  Function BoolToStr(const aBoolean : boolean ): string;
+  begin
+    if aBoolean then
+      Result := 'True'
+    else
+      Result := 'False';
+  end;
+
 END.