Вытаскивание строк из Stringtable.ini

[HellMercenariess]

 var i:Integer;
       stbuff:string;
if OpenDialog1.Execute then
 begin

  multipleIni:=TIniFIle.Create(OpenDIalog1.FileName);
  justOpened:=OpenDIalog1.FileName;
Cleared.Delimiter:=';';
//Cleared.NameValueSeparator:='';
Cleared.StrictDelimiter:=True;
buffered.LoadFromFile(OpenDIalog1.FileName);
ProgressBar1.Max:=buffered.Count-1;

ProgressBar1.Visible:=True;
 for I := 0 to buffered.Count-1 do
  begin
   Caption:=IntToStr(i);
 Cleared.Clear;
 Cleared.DelimitedText:=multipleini.readString('LocAdmin_Strings',schmutzige.Strings[i],'-');
   if SpinEdit2.Value>cleared.Count then
    Continue;
    stbuff:=cleared.Strings[spinedit2.Value];
  if spinedit2.Value<cleared.Count then
  NewTxt(schmutzige.Strings[i],stbuff);
  ProgressBar1.Position:=I;

строчки располагаются в файле примерно так:

[LocAdmin_Languages]
Languages=English;Italian;French;Ge rman;Spanish;Czech;Hungarian;Polish ;Russian;TRC
CurrentLanguage=English
CurrentRevision=0
[LocAdmin_Strings]
ATTRIB_ALC=Alchemy;;Alchimia;;Alchi mie;;Alchemie;;Alquimia;;Alchymie;; Alkímia;;Alchemia;;Алхимия;;煉金術;
ATTRIB_DEX=Hunting skill;;Abilità nella caccia;;Compétence de chasse;;Jagdgeschick;;Habilidad de caza;;Lov;;Vadászat;;Zdolności łowieckie;;Ловкость;;狩獵技能;
ATTRIB_HP=Life energy;;Energia vitale;;Énergie vitale;;Lebensenergie;;Energía vital;;Životy;;Életerő;;Energia życiowa;;Жизненная энергия;;生命能量;
ATTRIB_HPMax=Max. life energy;;Energia vitale massima;;Vitalité maximale;;Max. Lebensenergie;;Energía vital máxima;;Max. životy;;Max életenergia;;Maks. Siły życiowej;;Максимальная жизнен. энергия;;最大生命能量;
ATTRIB_INT=Ancient knowledge;;Antica conoscenza;;Savoir des Anciens;;Altes Wissen;;Conocimiento antiguo;;Znalosti Prastarých;;Ősi tudás;;Prastara wiedza;;Древнее знание;;遠古知識;

при попытке считать строчки на русском ListIndex out of Bounds (9)

при начале изьятия строк, есть несоовтетсвие отображаемого языка и его номера к реальным строкам, например немецкий идет 4м тоесть цыфра 3, реально немецкие ситрочки извлекаются при значение спин эдита = 7, при этом при прокрутке больше 6 постоянно ошибка об выходе индекса из "боундс"

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
   Begin
   multipleIni:=TIniFIle.Create(JustOpened);
Cleared.Delimiter:=';';
Cleared.StrictDelimiter:=True;

 Cleared.Clear;
 Cleared.DelimitedText:=multipleini.readString('LocAdmin_Languages','Languages','unknown');
  if  (SpinEdit2.Value<Cleared.Count) then
 CurrLang:=Cleared[spinedit2.Value];
 Caption:= CurrLang;

   End;

[StriderX]

Меня иероглифы смущают, я бы переписал код на TMemIniFile, чтобы явно указывать чем файл закодирован. Например:
TMemIniFile.Create(filename, TEncoding.UTF8);
PS: Обратил внимание, что ini-файл больше 64кб - это тоже повод отказаться от TIniFIle, который не умеет работать с большими файлами.

[Stilet]

По-моему StringList так и не научился работать с юникодом. Как бы там ни было у меня тоже не получалось японские тексты прочитать в переменную этого типа, как бы я не конвертировал.

HellMercenariess

Если просто получить строку multipleini.readString('LocAdmin_La nguages','Languages','unknown'); и вывести ее в какой нить Эдит или посмотреть в отладке - значения там все будут на месте?

есть возможность разделить строки на разные ключи, чтоб не было ";" ?

[StriderX]

Сообщение от Stilet

По-моему StringList так и не научился работать с юникодом. Как бы там ни было у меня тоже не получалось японские тексты прочитать в переменную этого типа, как бы я не конвертировал.

Проспал момент, когда всё поголовно в дельфях было дописано под TEncoding, но суть в том, что практически все методы работы с файлами имеют overload вариант куда его надо передать.
TStrings.LoadFromFile соответственно тоже может его использовать.

[Stilet]

TStrings.LoadFromFile соответственно тоже может его использовать.

Так в том то и проблема что ТС данные не из файла загружает
Я кагбэ не совсем правильно выразился - мне не удалось работать если данные берутся из другой переменки, или считываются из базы. По поводу загрузки да там можно кодировку указать.
А вообще надо в хелпе Эмбаркадэро глянуть есть ли у StringList отдельное свойство для указания кодировщика.

[StriderX]

Сообщение от Stilet

Так в том то и проблема что ТС данные не из файла загружает
Я кагбэ не совсем правильно выразился - мне не удалось работать если данные берутся из другой переменки, или считываются из базы. По поводу загрузки да там можно кодировку указать.
А вообще надо в хелпе Эмбаркадэро глянуть есть ли у StringList отдельное свойство для указания кодировщика.

Это меня запутывает. Условно можно считать String нейтральным форматом. StringList работает с нейтралью, что ей скормят, то там и будет. Она и не должна отвечать за кодирование. Если данные пришли из базы, значит их надо предварительно привести к нейтральному формату (с помощью того же энкодера - он же просто с байтами работает).
Ну то есть, сам энкодер - это и есть отдельный кодировщик для StringList, в моём понимании.

[Stilet]

Условно можно считать String нейтральным форматом.

Вот собственно он в последних юникодных делфи как-то плавает. Я уже и сам толком не пойму как там устроена работа с юникодом, поэтому везде где есть такая необходимость стараюсь использовать ansistring.

[StriderX]

Сообщение от Stilet

Вот собственно он в последних юникодных делфи как-то плавает. Я уже и сам толком не пойму как там устроена работа с юникодом, поэтому везде где есть такая необходимость стараюсь использовать ansistring.

По факту там строка с фиксированными двумя байтами на символ. По работе постоянно с RAW приходится иметь дело, никаких проблем с кодировками туда-сюда не было.
С другой стороны, если невнимательно писать код, то можно очень часто залетать на сужающих преобразованиях (это implicit касты когда происходят) - они будут производиться согласно выставленным настройкам локали (они в свою очередь по-умолчанию выставятся исходя из настроек ОС).

[HellMercenariess]

Немного переделал

multipleIni:=TmemIniFIle.Create(OpenDIalog1.FileName,TEncoding.UTF8);
  justOpened:=OpenDIalog1.FileName;
Cleared.Delimiter:=';';
Cleared.StrictDelimiter:=True;
buffered.LoadFromFile(OpenDIalog1.FileName);

 for I := 0 to schmutzige.Count-1 do
  begin
 Cleared.Clear;
 Cleared.DelimitedText:=multipleini.readString('LocAdmin_Strings',schmutzige.Strings[i],'-');
   Hinter.Clear;
  for Ix := 0 to cleared.Count - 1 do
    begin
     Hinter.Items.Add(cleared[ix]);
    stbuff:=cleared.Strings[ix];
  NewText(schmutzige.Strings[i],stbuff,ix);
    end;

procedure NewText(FullNomo:string; Text:string; Numer:integer);
 var
   f: Textfile;
    TmpFile:string;
 begin

  try
   TmpFile:='E:\Russ\Folder'+IntToStr(numer)+'\'+FullNomo;
   AssignFile(f,TmpFile);
   ReWrite(f);

   write(f, #$EF+#$BB+#$BF);
   Writeln(f,UTF8Encode(Text));

   Closefile(f); 
    finally
 end;
 end;

Содержимое папок:

Folder0
English
Folder1
<Empty>
Folder2
Insegnami a produrre delle frecce avvelenate.
Folder3
<Empty>
Folder4
Apprends-moi à fabriquer des flèches empoisonnées !
Folder5
<Empty>
Folder6
Zeig mir, wie ich Giftpfeile herstellen kann. (German)
Folder7
<Empty>
Folder8
Enséñame a fabricar flechas venenosas.
Folder9
<Empty>
Folder10
Ukaž mi, jak vyrobit otrávené šípy.
Folder11
<Empty>
Folder12
Mutasd meg, hogyan tudok mérgezett nyilakat készíteni!
Folder13
<Empty>
Folder14
Pokaż mi, jak produkować zatrute strzały.

[HellMercenariess]

Создал еще 2 папки 15 и 16
Folder16

Чтобы вернуть себе человеческий облик, нажмите ENTER или просто подождите, пока действие магии не закончится.