Convert to UTF-8

Author: Tango600

CompressUnit.pas

@@ -1,7 +1,7 @@
-Unit CompressUnit;
+Unit CompressUnit;
 {$I DefineType.pas}
-// Ìîäóëü LZW ïàêîâùèêà è ðàñïàêîâùèêà
-// òðåáóåò ìîäóëÿ FileBuffer
+// Модуль LZW паковщика и распаковщика
+// требует модуля FileBuffer
 interface
 
 uses SysUtils,
@@ -80,7 +80,7 @@ implementation
   Begin
     If Dict[s].Up=ClearDictValue then
     Begin
-      // Íèêîãî íåò íà ýòîé íîäå
+      // Никого нет на этой ноде
       Dict[s].Up:=DictPos;
       Dict[DictPos].Up:=ClearDictValue;
       Dict[DictPos].Left:=ClearDictValue;
@@ -90,11 +90,11 @@ implementation
     End
     Else
     Begin
-      // Êòî-òî æèâ¸ò òóò
+      // Кто-то живёт тут
       If C>Dict[Dict[s].Up].AddChar then
       Begin
-        // Ñìîòðèì êóäà ïîäàòüñÿ
-        // Âïåð¸ä
+        // Смотрим куда податься
+        // Вперёд
         dc:=Dict[s].Up;
         While Dict[dc].Right<>ClearDictValue do
           dc:=Dict[dc].Right;
@@ -108,7 +108,7 @@ implementation
       End
       Else
       Begin
-        // Íàçàä
+        // Назад
         dc:=Dict[s].Up;
         While Dict[dc].Left<>ClearDictValue do
           dc:=Dict[dc].Left;

DefineType.pas

@@ -1,6 +1,6 @@
-//{$DEFINE FileType} // сейчас файлы
-// Для типа доступа Файлы использовать директиву FileType
-// Для типа Потоки использовать директиву StreamType
+//{$DEFINE FileType} // сейчас файлы
+// Для типа доступа Файлы использовать директиву FileType
+// Для типа Потоки использовать директиву StreamType
 {$DEFINE StreamType}
 {$IFDEF FPC}
 {$MODE DELPHI}

FileBuffer.pas

@@ -1,8 +1,8 @@
-Unit FileBuffer;
+Unit FileBuffer;
 {$I DefineType.pas}
-// Ìîäóëü áóôåðèçèðîâàííîãî ââîäà/âûâîäà, ðåàëüíî óñêàðÿåò ôàéëîâûå
-// îïåðàöèè èç çà ââîäà/âûâîäà â ïàìÿòü, à òîëüêî ïîòîì, êàê áóôåð
-// ïåðåïîëíèòñÿ, â ôàéë.
+// Модуль буферизированного ввода/вывода, реально ускаряет файловые
+// операции из за ввода/вывода в память, а только потом, как буфер
+// переполнится, в файл.
 
 interface
 
@@ -166,18 +166,18 @@ implementation
 var
   B: Word;
 begin
-  { Ïîêà â áóôåðå íå õâàòàåò áèò - ÷èòàåì èõ èç ôàéëà }
+  { Пока в буфере не хватает бит - читаем их из файла }
   While ReadCounterBit<NumBits do
   Begin
     B:=GetBytes(F);
     ReadBitsBuffer:=ReadBitsBuffer or(B shl ReadCounterBit);
-    { Äîáàâëÿåì åãî â áóôåð }
+    { Добавляем его в буфер }
     Inc(ReadCounterBit, 8);
   End;
   BitRead:=Word(ReadBitsBuffer and((1 shl NumBits)-1));
-  { Ïîëó÷àåì èç áóôåðà íóæíîå êîë-âî áèò }
+  { Получаем из буфера нужное кол-во бит }
   ReadBitsBuffer:=ReadBitsBuffer shr NumBits;
-  { Îò÷èùàåì áóôåð îò âûäàííûõ áèò }
+  { Отчищаем буфер от выданных бит }
   Dec(ReadCounterBit, NumBits);
 end;
 
@@ -193,14 +193,14 @@ implementation
   Begin
   BitBuffer:=Num;
   WriteBitsBuffer:=WriteBitsBuffer or(BitBuffer shl WriteCounterBit);
-  { Äîáàâëÿåì â áóôåð íîâûå áèòû }
+  { Добавляем в буфер новые биты }
   Inc(WriteCounterBit, NumBits);
   While (WriteCounterBit>=8) do
   Begin
-    B:=Byte(WriteBitsBuffer and $FF); { Ïîëó÷àåì ïåðâûé áàéò èç áóôåðà }
+    B:=Byte(WriteBitsBuffer and $FF); { Получаем первый байт из буфера }
     OutputBytes(F, B);
     WriteBitsBuffer:=WriteBitsBuffer shr 8;
-    { Îò÷èùàì áóôåð îò çàïèñàííûõ áèò }
+    { Отчищам буфер от записанных бит }
     Dec(WriteCounterBit, 8);
   End;
   End;
@@ -235,7 +235,7 @@ implementation
     Result:=InBuffer[SeekPos-((BufsCount-1)*BufLength)]
   Else
   Begin
-    // íå ïîâåçëî íå ïîïàëè â áóôåð
+    // не повезло не попали в буфер
 
 {$IFDEF StreamType}
     OldPos:=F.Position;

ProgressUnit.pas

@@ -1,6 +1,6 @@
-unit ProgressUnit;
+unit ProgressUnit;
 
-// Ìîäóëü îòîáðàæåíèÿ ïðîãðåñà â òåðìèíàëå
+// Модуль отображения прогреса в терминале
 interface
 
 uses SysUtils;