Changeset 4 for trunk/UShpFile.pas

Timestamp:

Jan 30, 2016, 12:15:16 AM (8 years ago)

Author:

chronos

Message:

• Added: Not finished class for loading WSA files.

File:

• trunk/UShpFile.pas (modified) (2 diffs)

trunk/UShpFile.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Contnrs, Graphics, UFormat80, Types;
+  Classes, SysUtils, Contnrs, Graphics, UDecode, Types;
 
 type
@@ -39 +39 @@
 implementation
 
-function Format20(Source: TByteDynArray): TByteDynArray;
-var
-  D: Byte;
-  Count: Integer;
-  SourceIndex: Integer;
-  DestIndex: Integer;
-begin
-  SourceIndex := 0;
-  DestIndex := 0;
-  SetLength(Result, Length(Source));
-  while SourceIndex < Length(Source) do begin
-    D := Source[SourceIndex];
-    Inc(SourceIndex);
-    if D = 0 then begin
-      if SourceIndex >= Length(Source) then
-        Break;
-      Count := Source[SourceIndex];
-      if Count = 0 then Break;
-      Inc(SourceIndex);
-      if (DestIndex + Count) >= Length(Result) then
-        SetLength(Result, DestIndex + Count + 1);
-      FillChar(Result[DestIndex], Count, 0);
-      Inc(DestIndex, Count);
-    end else begin
-      if DestIndex >= Length(Result) then
-        SetLength(Result, DestIndex + 1);
-      Result[DestIndex] := D;
-      Inc(DestIndex);
-    end;
-  end;
-end;
 
 { TShpFileItem }