Changeset 25

Timestamp:

May 14, 2010, 7:12:13 AM (15 years ago)

Author:

george

Message:

• Přidáno: Třída TStringListEx rozšiřující možnosti třídy TStringList.
• Přidáno: Třída AppliactionInfo.

Files:

• ApplicationInfo (added)
• ApplicationInfo/UApplicationInfo.pas (added)
• MemoryStreamEx/UMemoryStreamEx.pas (modified) (6 diffs)
• StringListEx (added)
• StringListEx/UStringListEx.pas (added)

MemoryStreamEx/UMemoryStreamEx.pas

@@ -60 +60 @@
   StringLength: Longint;
 begin
-  Read(StringLength, SizeOf(StringLength));
+  ReadBuffer(StringLength, SizeOf(StringLength));
   SetLength(Result, StringLength);
   if StringLength > 0 then begin
-    Read(Result[1], StringLength);
+    ReadBuffer(Result[1], StringLength);
   end;
 end;
@@ -69 +69 @@
 function TMemoryStreamEx.ReadByte: Byte;
 begin
-  Read(Result, SizeOf(Byte));
+  ReadBuffer(Result, SizeOf(Byte));
 end;
 
 function TMemoryStreamEx.ReadCardinal: Cardinal;
 begin
-  Read(Result, SizeOf(Cardinal));
+  ReadBuffer(Result, SizeOf(Cardinal));
   if SwapData then Result := Swap(Result);
 end;
@@ -80 +80 @@
 function TMemoryStreamEx.ReadInt64: Int64;
 begin
-  Read(Result, SizeOf(Int64));
+  ReadBuffer(Result, SizeOf(Int64));
   if SwapData then Result := Swap(Result);
 end;
@@ -88 +88 @@
   Count: Byte;
 begin
-  Read(Count, 1);
+  ReadBuffer(Count, 1);
   SetLength(Result, Count);
-  Read(Result[1], Count);
+  ReadBuffer(Result[1], Count);
 end;
 
@@ -99 +99 @@
   if Count > 0 then begin
     SetLength(Buffer, Count);
-    Read(Buffer[0], Count);
+    ReadBuffer(Buffer[0], Count);
     Stream.Size := Count;
     Stream.Position := 0;
@@ -118 +118 @@
 function TMemoryStreamEx.ReadDouble: Double;
 begin
-  Read(Result, SizeOf(Double));
+  ReadBuffer(Result, SizeOf(Double));
 end;
 
 function TMemoryStreamEx.ReadSingle: Single;
 begin
-  Read(Result, SizeOf(Single));
+  ReadBuffer(Result, SizeOf(Single));
 end;
 
 function TMemoryStreamEx.ReadWord: Word;
 begin
-  Read(Result, SizeOf(Word));
+  ReadBuffer(Result, SizeOf(Word));
   if SwapData then Result := Swap(Result);
 end;