Считать пробел значения из INI

[Shouldercannon]

В Delphi при работе с INI файлами специально предусмотрено не считывание пробела в конце Value у Key_Name? Как это можно исправить?
[Settings]
Value=pop_
_ - обозначен пробел

[psycho-coder]

Ответьте на вопрос: Для чего вам это нужно?
Может придумаем другой вариант.

[Shouldercannon]

INI использую для хранения языков. Есть места, где нужно фразу гружить с пробелом на конце.

[psycho-coder]

А структуру файла приведите. Если подходит - предложу более удобный вариант

[Shouldercannon]

procedure TFormServerInfo.SetLanguage(Language: string);
var
  INIFile: TINIFile;
begin
  INIFile := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'plugins\avp2\Language.ini');
  Caption := INIFile.ReadString(Language, 'Caption', '');
  PCInfoAboutServer.Pages[0].Caption := INIFile.ReadString(Language, 'PCInfoAboutServer.Pages[0].Caption', '');
  PCInfoAboutServer.Pages[1].Caption := INIFile.ReadString(Language, 'PCInfoAboutServer.Pages[1].Caption', '');
  PCInfoAboutServer.Pages[2].Caption := INIFile.ReadString(Language, 'PCInfoAboutServer.Pages[2].Caption', '');
  RVServerAddress := INIFile.ReadString(Language, 'RVServerAddress', '');
  RVServerName := INIFile.ReadString(Language, 'RVServerName', '');
  RVMapName := INIFile.ReadString(Language, 'RVMapName', '');
  RVGameType := INIFile.ReadString(Language, 'RVGameType', '');
  RVPlayers := INIFile.ReadString(Language, 'RVPlayers', '');
  RVNotResponding := INIFile.ReadString(Language, 'RVNotResponding', '');
  RVRace := INIFile.ReadString(Language, 'RVRace', '');
  RVNumberOfPlayers := INIFile.ReadString(Language, 'RVNumberOfPlayers', '');
  LVPlayers.Column[1].Caption := INIFile.ReadString(Language, 'LVPlayers.Column[1].Caption', '');
  LVPlayers.Column[2].Caption := INIFile.ReadString(Language, 'LVPlayers.Column[2].Caption', '');
  LVPlayers.Column[3].Caption := INIFile.ReadString(Language, 'LVPlayers.Column[3].Caption', '');
  LVPlayers.Column[4].Caption := INIFile.ReadString(Language, 'LVPlayers.Column[4].Caption', '');
  LVInfoRules.Columns[0].Caption := INIFile.ReadString(Language, 'LVInfoRules.Columns[0].Caption', '');
  LVInfoRules.Columns[1].Caption := INIFile.ReadString(Language, 'LVInfoRules.Columns[1].Caption', '');
  PBBRefresh.Caption := INIFile.ReadString(Language, 'PBBRefresh.Caption', '');
  INIFile.Free;
end;

Language.ini
[Русский]
Caption=Информация о сервере
PCInfoAboutServer.Pages[0].Caption=Основное
PCInfoAboutServer.Pages[1].Caption=Скриншот
PCInfoAboutServer.Pages[2].Caption=Дополнительно
RVServerAddress=Адрес сервера:
RVServerName=Имя сервера:
RVMapName=Имя карты:
RVGameType=Тип игры:
RVPlayers=Игроки:
RVNotResponding=< Сервер не отвечает >
RVRace=Раса
RVNumberOfPlayers=Количество игроков
LVPlayers.Column[1].Caption=Игрок
LVPlayers.Column[2].Caption=Раса
LVPlayers.Column[3].Caption=Пинг
LVPlayers.Column[4].Caption=Счёт
LVInfoRules.Columns[0].Caption=Параметр
LVInfoRules.Columns[1].Caption=Значение
PBBRefresh.Caption=Обновить

[psycho-coder]

ага. Отлично. Я предложу вариант, а вы тогда решите что лучше.
1. Костыль.
Заменить пробелы на _ при сохранении и обратно на пробел при чтении
2.
Использовать TSrtringList

Загрузка

var
  langFile: TStringList;
begin
  langFile := TStringList.Create();
  langFile.LoadFromFile('language.lng');
  PCInfoAboutServer.Pages[0].Caption := langFile.values['AboutServer0'];
  PCInfoAboutServer.Pages[1].Caption := langFile.values['AboutServer1'];
  PCInfoAboutServer.Pages[2].Caption := langFile.values['AboutServer2'];
  RVServerAddress := langFile.values['RVServerAddress'];
  RVServerName := langFile.values['RVServerName'];
  RVMapName := langFile.values['RVMapName'];
  RVGameType := langFile.values['RVGameType'];
  RVPlayers := langFile.values[''RVPlayers'];
  RVNotResponding := langFile.values['RVNotResponding'];
  RVRace := langFile.values['RVRace'];
  RVNumberOfPlayers := langFile.values['RVNumberOfPlayers'];
  LVPlayers.Column[1].Caption := langFile.values['LVPlayers1'];
  LVPlayers.Column[2].Caption := langFile.values['LVPlayers2'];
  LVPlayers.Column[3].Caption := langFile.values['LVPlayers3'];
  LVPlayers.Column[4].Caption := langFile.values['LVPlayers4'];
  LVInfoRules.Columns[0].Caption := langFile.values['LVInfoRules0'];
  LVInfoRules.Columns[1].Caption := langFile.values['LVInfoRules1'];
  PBBRefresh.Caption := langFile.values['PBBRefresh'];
  langFile.Free();
end;

Сохранение

var
  langFile: TStringList;
begin
  langFile := TStringList.Create();
  langFile.LoadFromFile('language.lng'); // Опционально
  langFile.values['AboutServer0'] := PCInfoAboutServer.Pages[0].Caption;
  langFile.values['AboutServer1'] := PCInfoAboutServer.Pages[1].Caption;
  langFile.values['AboutServer2'] := PCInfoAboutServer.Pages[2].Caption;
  langFile.values['RVServerAddress'] := RVServerAddress;
  langFile.values['RVServerName'] := RVServerName ;
  langFile.values['RVMapName'] := RVMapName ;
  langFile.values['RVGameType'] := RVGameType ;
  langFile.values[''RVPlayers'] := RVPlayers ;
  langFile.values['RVNotResponding'] := RVNotResponding ;
  langFile.values['RVRace'] := RVRace ;
  langFile.values['RVNumberOfPlayers'] := RVNumberOfPlayers;
  langFile.values['LVPlayers1'] := LVPlayers.Column[1].Caption ;
  langFile.values['LVPlayers2'] := LVPlayers.Column[2].Caption ; 
  langFile.values['LVPlayers3'] := LVPlayers.Column[3].Caption ;
  langFile.values['LVPlayers4'] := LVPlayers.Column[4].Caption ;
  langFile.values['LVInfoRules0'] := LVInfoRules.Columns[0].Caption ; 
  langFile.values['LVInfoRules1'] := LVInfoRules.Columns[1].Caption ;
  langFile.values['PBBRefresh'] := PBBRefresh.Caption ;
  langFile.SaveToFile('language.lng');
  langFile.Free();
end;

Причем если некий параметр, например langFile.values['PBBRefresh'] уже есть, он не задвоится а будет перезаписан)

Но решение принимать вам.

upd
Забыл сказать, параметр сохраняется и загружается с пробелами, сколько бы их не было в строке

3. Добавлять пробел где нужно вручную