From 52a056f0dc469303190f1f91ec417b8b1f5f083f Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 2 Oct 2009 17:10:02 +0200
Subject: topic.gettext now uses a String type instead of PChar.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
---
 src/frm_main.pas | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/frm_main.pas b/src/frm_main.pas
index 20cad3ff..5b98b3e8 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -492,7 +492,7 @@ end;
 
 procedure TMainForm.DisplayTopic;
 var
-  text: PChar;
+  lText: String;
   ImageIndices: TList;
   LinkIndex: longint;
   Link: THelpLink;
@@ -520,20 +520,19 @@ Begin
 
   if HelpFile.HighlightWords <> nil then
     ProfileEvent('highlightwords is ok');
-  Text := nil;
+  lText := '';
   ProfileEvent('Debug = ' + BoolToStr(Debug));
   if ImageIndices <> nil then
     ProfileEvent('ImageIndices initialized');
   Topic.GetText(HelpFile.HighlightWords,
                 Debug,
-                Text,
+                lText,
                 ImageIndices );
 
   { TODO -oGraeme : We do not support images yet }
   ImageIndices.Free;
 
-  Memo1.Lines.Text := Text;
-  StrDispose( Text );
+  Memo1.Lines.Text := lText;
 end;
 
 procedure TMainForm.ResetProgress;
-- 
cgit v1.2.3-70-g09d2