Changeset 577 for Common/Common.pas

Timestamp:

Aug 2, 2024, 9:14:09 AM (3 months ago)

Author:

chronos

Message:

• Modified: Updated Common packaged.
• Fixed: Fullscreen switching on Linux and Windows with newer Lazarus version.

File:

• Common/Common.pas (modified) (2 diffs)

Common/Common.pas

@@ -53 +53 @@
 function ComputerName: string;
 procedure DeleteFiles(APath, AFileSpec: string);
+function EndsWith(Text, What: string): Boolean;
 function Explode(Separator: Char; Data: string): TStringArray;
 procedure ExecuteProgram(Executable: string; Parameters: array of string);
@@ -87 +88 @@
 procedure SearchFiles(AList: TStrings; Dir: string;
   FilterMethod: TFilterMethod = nil; FileNameMethod: TFileNameMethod = nil);
+procedure SortStrings(Strings: TStrings);
 function SplitString(var Text: string; Count: Word): string;
 function StripTags(const S: string): string;
+function StartsWith(Text, What: string): Boolean;
 function TryHexToInt(Data: string; out Value: Integer): Boolean;
 function TryBinToInt(Data: string; out Value: Integer): Boolean;
-procedure SortStrings(Strings: TStrings);
 
 
 implementation
+
+function StartsWith(Text, What: string): Boolean;
+begin
+  Result := Copy(Text, 1, Length(Text)) = What;
+end;
+
+function EndsWith(Text, What: string): Boolean;
+begin
+  Result := Copy(Text, Length(Text) - Length(What) + 1, MaxInt) = What;
+end;
 
 function BinToInt(BinStr : string) : Int64;