From 2b672a5525f73014b727efffbc7d91134ae378bb Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 22 May 2007 07:01:26 +0000
Subject: [PATCH]  + Add GetLineCount method to TMemoryTextFile object

git-svn-id: trunk@7418 -
---
 ide/whtml.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ide/whtml.pas b/ide/whtml.pas
index d93a61a377..43493f5444 100644
--- a/ide/whtml.pas
+++ b/ide/whtml.pas
@@ -30,7 +30,8 @@ type
       constructor Init;
       procedure   AddLine(const S: string); virtual;
       function    GetLine(Idx: sw_integer; var S: string): boolean; virtual;
-      function GetFileName : string; virtual;
+      function    GetFileName : string; virtual;
+      function    GetLineCount : sw_integer;
       destructor  Done; virtual;
     private
       Lines : PUnsortedStrCollection;
@@ -142,6 +143,11 @@ begin
   GetFileName:='unknown';
 end;
 
+function TMemoryTextFile.GetLineCount : sw_integer;
+begin
+  GetLineCount:=Lines^.Count;
+end;
+
 procedure TMemoryTextFile.AddLine(const S: string);
 begin
   Lines^.Insert(NewStr(S));
@@ -617,7 +623,9 @@ var Found: boolean;
     InStr: boolean;
     I: sw_integer;
 begin
-  Found:=false; Name:=UpcaseStr(Name);
+  Found:=false;
+  Name:=UpcaseStr(Name);
+  Value:='';
   S:=TagParams;
   repeat
     InStr:=false;