From 226843b5d3c171734426756ceecba13817294eb9 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 8 Jun 2008 13:52:16 +0200
Subject: Internal viewer: detect file encoding from the first 100 lines only

---
 UCoreUtils.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'UCoreUtils.pas')

diff --git a/UCoreUtils.pas b/UCoreUtils.pas
index 1781a41..f297fe0 100644
--- a/UCoreUtils.pas
+++ b/UCoreUtils.pas
@@ -128,6 +128,7 @@ function UTF8ToStr(s: PChar): PChar; overload;
 function EnsureUTF8String(s: PChar): PChar; overload;
 
 
+function Min(Val1, Val2: longint): longint;
 
 //  Calculate CRC32 Checksum, CRC is default $FFFFFFFF,
 //  After calc you must inverse Result with NOT
@@ -1424,6 +1425,13 @@ begin
 end;
 
 
+(********************************************************************************************************************************)
+function Min(Val1, Val2: longint): longint;
+begin
+  if Val1 < Val2 then Result := Val1
+                 else Result := Val2;
+end;
+
 (********************************************************************************************************************************)
 {$IFDEF CPU64}
 function CRC32(CRC: LongWord; Data: Pointer; DataSize: LongWord): LongWord;
-- 
cgit v1.2.3