From a5ab9db03dffa30f29e309d222f14fd57e308479 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 15:08:36 +0000
Subject: DeleteLastLetter uses the more convenient UTF8Copy() now

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1867 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/menu/UMenuText.pas | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'unicode/src/menu')

diff --git a/unicode/src/menu/UMenuText.pas b/unicode/src/menu/UMenuText.pas
index d3bd213e..276f961b 100644
--- a/unicode/src/menu/UMenuText.pas
+++ b/unicode/src/menu/UMenuText.pas
@@ -246,16 +246,8 @@ begin
 end;
 
 procedure TText.DeleteLastLetter;
-var
-  Str: UCS4String;
-  Len: integer;
 begin
-  Str := UTF8ToUCS4String(TextString);
-  Len := Length(Str);
-  if (Len > 0) then
-    SetLength(Str, Len-1);
-
-  SetText(UCS4ToUTF8String(Str));
+  SetText(UTF8Copy(TextString, 1, LengthUTF8(TextString)-1));
 end;
 
 procedure TText.Draw;
-- 
cgit v1.2.3