From 23c2490ac554a3acda3b83d324dcb4455949d21c Mon Sep 17 00:00:00 2001 From: naru Date: Sat, 4 Jan 2003 06:27:13 +0000 Subject: [PATCH] Minor fix --- bottleclient/Logs.pas | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas index b64580a..0748fad 100755 --- a/bottleclient/Logs.pas +++ b/bottleclient/Logs.pas @@ -260,11 +260,9 @@ procedure TBottleLogList.HttpSuccess(Sender: TObject); var Stream: TStringStream; StrList: TStringList; begin - StrList := nil; - Stream := nil; + Stream := TStringStream.Create(FHttpThread.RecvString); + StrList := TStringList.Create; try - Stream := TStringStream.Create(FHttpThread.RecvString); - StrList := TStringList.Create; StrList.Text := Stream.DataString; if StrList[0] <> 'Result: OK' then begin if Assigned(FOnLoadFailure) then -- 2.11.0