From e520f12663f97a3ca7e609d0d6f6bf91dc88e675 Mon Sep 17 00:00:00 2001 From: tobigun Date: Thu, 6 Nov 2008 00:10:46 +0000 Subject: - IsNumericChar/... and other character class type functions moved to UUnicodeUtils.pas - UCS4 to UTF8 converters added. Nice for changing single characters (e.g. MyString[i] := 'de') - Player names are now UTF8 - DeleteLastLetter is UTF8 now git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1504 b956fd51-792f-4845-bead-9b4dfca2ff2c --- unicode/src/base/UIni.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'unicode/src/base/UIni.pas') diff --git a/unicode/src/base/UIni.pas b/unicode/src/base/UIni.pas index 3a4d6129..f50f95ce 100644 --- a/unicode/src/base/UIni.pas +++ b/unicode/src/base/UIni.pas @@ -925,12 +925,12 @@ begin IniFile := TIniFile.Create(Filename); //Name Templates for Names Mod - for I := 1 to 12 do - IniFile.WriteString('Name', 'P' + IntToStr(I), Name[I-1]); - for I := 1 to 3 do - IniFile.WriteString('NameTeam', 'T' + IntToStr(I), NameTeam[I-1]); - for I := 1 to 12 do - IniFile.WriteString('NameTemplate', 'Name' + IntToStr(I), NameTemplate[I-1]); + for I := 0 to High(Name) do + IniFile.WriteString('Name', 'P' + IntToStr(I+1), Name[I]); + for I := 0 to High(NameTeam) do + IniFile.WriteString('NameTeam', 'T' + IntToStr(I+1), NameTeam[I]); + for I := 0 to High(NameTemplate) do + IniFile.WriteString('NameTemplate', 'Name' + IntToStr(I+1), NameTemplate[I]); IniFile.Free; end; -- cgit v1.2.3