Initial check in rtl

2026-01-03 18:32:50 +01:00
parent ee130973e2
commit b20cd8e688
23 changed files with 4929 additions and 0 deletions
@@ -0,0 +1,123 @@
+unit dpgrtl.stringmap;
+
+interface
+uses
+   System.Classes;
+
+type
+   TStringMap = class
+      strict protected
+         fData : TStringList;
+
+      private
+         function    GetCaseSensitive     : boolean;
+         function    GetValue(Name:AnsiString): integer;
+
+         procedure   SetCaseSensitive(       Value: boolean);
+         procedure   SetValue( Name:AnsiString;  Value: integer);
+
+      public
+         procedure   AfterConstruction; override;
+         procedure   BeforeDestruction; override;
+
+         procedure   Clear;
+         procedure   Sort;
+
+      public
+         property    CaseSensitive           : boolean   read  GetCaseSensitive
+                                                         write SetCaseSensitive;
+
+         property    Value[Name:AnsiString]   : integer  read  GetValue
+                                                         write SetValue; default;
+   end;
+
+implementation
+uses
+   System.SysUtils;
+
+{ TStringMap }
+
+// ================================================================================================
+// After Construction
+// ================================================================================================
+procedure TStringMap.AfterConstruction;
+begin
+   inherited;
+   fData := TStringList.Create
+end;
+
+// ================================================================================================
+// Before Destruction
+// ================================================================================================
+procedure TStringMap.BeforeDestruction;
+begin
+   fData.Free;
+   inherited
+end;
+
+// ================================================================================================
+// Get CaseSensitive
+// ================================================================================================
+function TStringMap.GetCaseSensitive: boolean;
+begin
+   result := fData.CaseSensitive
+end;
+
+// ================================================================================================
+// Get Value
+// ================================================================================================
+function TStringMap.GetValue(Name: AnsiString): integer;
+var
+   idx: integer;
+
+begin
+   idx := fData.IndexOfName(String(Name));
+
+   if idx >= 0
+      then result := StrToIntDef( fData.ValueFromIndex[idx], -1)
+      else result := -1
+end;
+
+
+// ================================================================================================
+// Set CaseSensitive
+// ================================================================================================
+procedure TStringMap.SetCaseSensitive(Value: boolean);
+begin
+   fData.CaseSensitive := Value
+end;
+
+// ================================================================================================
+// Set Value
+// ================================================================================================
+procedure TStringMap.SetValue(Name: AnsiString; Value: integer);
+var
+   idx: integer;
+   val: string;
+
+begin
+   idx := fData.IndexOfName(String(Name));
+   val := IntToStr(Value);
+
+   if idx >= 0
+      then fData.ValueFromIndex[idx] := val
+      else fData.Add(String(Name)+'='+val)
+end;
+
+// ================================================================================================
+// Clear
+// ================================================================================================
+procedure TStringMap.Clear;
+begin
+   fData.Clear
+end;
+
+// ================================================================================================
+// Sort
+// ================================================================================================
+procedure TStringMap.Sort;
+begin
+   fData.Sort
+end;
+
+end.