Changeset 200 for trunk/Packages/Common/UCommon.pas

Timestamp:

Aug 31, 2018, 3:38:01 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common package files.
• Fixed: Autosize coolbar during main form resize.

File:

• trunk/Packages/Common/UCommon.pas (modified) (4 diffs)

trunk/Packages/Common/UCommon.pas

@@ -72 +72 @@
 function MergeArray(A, B: array of string): TArrayOfString;
 function LoadFileToStr(const FileName: TFileName): AnsiString;
+procedure SaveStringToFile(S, FileName: string);
 procedure SearchFiles(AList: TStrings; Dir: string;
   FilterMethod: TFilterMethodMethod = nil);
 function GetStringPart(var Text: string; Separator: string): string;
+function StripTags(const S: string): string;
 function PosFromIndex(SubStr: string; Text: string;
   StartIndex: Integer): Integer;
@@ -527 +529 @@
 end;
 
+procedure SaveStringToFile(S, FileName: string);
+var
+  F: TextFile;
+begin
+  AssignFile(F, FileName);
+  try
+    ReWrite(F);
+    Write(F, S);
+  finally
+    CloseFile(F);
+  end;
+end;
+
 procedure SearchFiles(AList: TStrings; Dir: string;
   FilterMethod: TFilterMethodMethod = nil);
@@ -561 +576 @@
   Result := Trim(Result);
   Text := Trim(Text);
+end;
+
+function StripTags(const S: string): string;
+var
+  Len: Integer;
+
+  function ReadUntil(const ReadFrom: Integer; const C: Char): Integer;
+  var
+    J: Integer;
+  begin
+    for J := ReadFrom to Len do
+      if (S[j] = C) then
+      begin
+        Result := J;
+        Exit;
+      end;
+    Result := Len + 1;
+  end;
+
+var
+  I, APos: Integer;
+begin
+  Len := Length(S);
+  I := 0;
+  Result := '';
+  while (I <= Len) do begin
+    Inc(I);
+    APos := ReadUntil(I, '<');
+    Result := Result + Copy(S, I, APos - i);
+    I := ReadUntil(APos + 1, '>');
+  end;
 end;
 
@@ -608 +654 @@
 end;
 
+
 initialization