Fix: Result variable was not initialized in toStr method

[winbottle/winbottle.git] / bottleclient / HeadValue.pas

diff --git a/bottleclient/HeadValue.pas b/bottleclient/HeadValue.pas
index 7442ebe..4b49333 100755 (executable)
--- a/bottleclient/HeadValue.pas
+++ b/bottleclient/HeadValue.pas
@@ -133,6 +133,7 @@ function THeadValue.ToStr: String;
 var i, max: integer;
 begin
   max := FStrList.Count div 2 - 1;
+  Result := '';
   for i := 0 to max do begin
     Result := Result + Format('%s: %s', [FStrList[i*2], FStrList[i*2+1]]);
     if i <> max then Result := Result + #13#10;