Changeset 245 for oup/current/Global/Functions.pas

Timestamp:

Aug 18, 2007, 5:51:42 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/Functions.pas (modified) (2 diffs)

oup/current/Global/Functions.pas

@@ -15 +15 @@
 function MakeDatLink(FileID: Integer): Integer;
 
+function ReadString(Stream: TStream; Offset: Integer): String;
+
 function StringSmaller(string1, string2: String): Boolean;
 
@@ -142 +144 @@
 begin
   Result := FileID * 256 + 1;
+end;
+
+
+
+
+function ReadString(Stream: TStream; Offset: Integer): String;
+var
+  i: Integer;
+  c: Char;
+begin
+  if Assigned(Stream) then
+  begin
+    if Offset >= 0 then
+    begin
+      Result := '';
+      Stream.Seek(Offset, soFromBeginning);
+      repeat
+        Stream.Read(c, 1);
+        if Ord(c) > 0 then
+          Result := Result + c;
+      until Ord(c) = 0;
+    end;
+  end;
 end;