Fixes a potential crash in TStrings.SaveToStream · 8b6e8079ec - Gogs

Fixes a potential crash in TStrings.SaveToStream

git-svn-id: trunk@16187 -

sekelsenmat 15 years ago

parent

7e5ff8ca89

commit

8b6e8079ec

1 changed files with 1 additions and 0 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 0
						
rtl/objpas/classes/stringl.inc
							 
								View File
							
				@@ -851,6 +851,7 @@ Var
			
				   S : String;
			
				 begin
			
				   S:=Text;
			
				+  if S = '' then Exit;
			
				   Stream.WriteBuffer(Pointer(S)^,Length(S));
			
				 end;