From 9073d5bd15c9e706b7c2e22468d84cb5a33db849 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 11 Feb 2010 15:34:06 +0200 Subject: Fix compiler waring about unreachable code. --- docview/components/richtext/RichTextView.pas | 3 --- 1 file changed, 3 deletions(-) (limited to 'docview/components/richtext') diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 390ac376..5272eee3 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -1666,9 +1666,6 @@ Procedure TRichTextView.InsertText( CharIndexToInsertAt: longword; var NewText: PChar; begin - if CharIndexToInsertAt < 0 then - exit; - NewText := StrAlloc( StrLen( FText ) + StrLen( TextToInsert ) + 1 ); StrLCopy( NewText, FText, CharIndexToInsertAt ); StrCat( NewText, TextToInsert ); -- cgit v1.2.3-70-g09d2