Changeset 510 for Common/UCommon.pas

Timestamp:

Apr 11, 2018, 11:22:58 AM (7 years ago)

Author:

chronos

Message:

• Added: Basic TStringTable class.
• Fixed: Removed various compiler warnings.

Location:

Common

Files:

• . (modified) (1 prop)
• UCommon.pas (modified) (3 diffs)

Common

@@ -1 +1 @@
 lib
 backup
+*.lrj

@@ -1 +1 @@
 lib
 backup
+*.lrj

Common/UCommon.pas

@@ -74 +74 @@
 procedure SearchFiles(AList: TStrings; Dir: string;
   FilterMethod: TFilterMethodMethod);
+function GetStringPart(var Text: string; Separator: string): string;
 
 
@@ -531 +532 @@
     try
       repeat
-        if (SR.Name = '.') or (SR.Name = '..') or not FilterMethod(SR.Name) then Continue;
+        if (SR.Name = '.') or (SR.Name = '..') or not FilterMethod(SR.Name) or
+          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name) then Continue;
         AList.Add(Dir + SR.Name);
         if (SR.Attr and faDirectory) <> 0 then
@@ -541 +543 @@
 end;
 
+function GetStringPart(var Text: string; Separator: string): string;
+var
+  P: Integer;
+begin
+  P := Pos(Separator, Text);
+  if P > 0 then begin
+    Result := Copy(Text, 1, P - 1);
+    Delete(Text, 1, P - 1 + Length(Separator));
+  end else begin
+    Result := Text;
+    Text := '';
+  end;
+  Result := Trim(Result);
+  Text := Trim(Text);
+end;
+
+
 
 initialization

@@ -1 +1 @@
 lib
 backup
+*.lrj