Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix error in TReadr.ReadString. Fixes issue #40652

Michaël Van Canneyt 1 year ago
parent
f6ce76b638
commit
9000f8742d
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/objpas/classes/reader.inc

+ 1 - 1
rtl/objpas/classes/reader.inc
View File 

@@ -1729,7 +1729,7 @@ end;
 
 function TReader.ReadString: rawbytestring;
 
 function TReader.ReadString: rawbytestring;
 
 
 
 begin
 
 begin
 
-  DoReadString(FDriver.ReadValue);
 
+  Result:=DoReadString(FDriver.ReadValue);
 
 end;
 
 end;