TMemo и TIniFile

[Volkogriz]

Доброе время суток!
Проблема такая:
Загружаю Секцию в Memo, редактирую, а вот сохранить не знаю как
В мемо например вот так:

Ident1=Value1
Ident2=Value2
Ident3=Value3
Ident4=Value4
Ident5=Value5
Ident6=Value6
Помогите сохранить плиз
С уважением,
Volkogriz!

[Stilet]

В цикле:

with Memo.Lines do
for i:=0 to Count-1 do ini.WriteString(Секция,Names[i],Values[names[i]]);

[Volkogriz]

Доброе время суток!

with Memo.Lines do
for i:=0 to Count-1 do ini.WriteString(Секция,Names[i],Values[names[i]]);

Неработает правильно, меняет 2 верхних свойства и на этом всё(
//*********************************** *****************
Проблема Такая.

 var
  IniFile: TIniFile;
begin
IniFile := TiniFile.create(extractfilepath(Application.ExeName)+'IniFile.txt');
IniFile.ReadSections(ListBox1.Items);
IniFile.ReadSection(Section,ListBox2.Items);
IniFile.Free;

Не грузит ListBox2 не чего!
Перепробовал всё, перерыл весь поиск, не чего не нашёл

[Volkogriz]

Помогите плиз!!!
С уважением,
Volkogriz!

[phomm]

Ну, а строка, которая лежит в переменной Section на момент чтения из файла, является ли она валидной секцией ини-файла ?
Ну и, если на то пошло,

with Memo.Lines do
 for i:=0 to Count-1 do ini.WriteString(Секция,Names[i],Values[names[i]]);

ничего не меняет, а только пишет

Ну и такой вопрос. Зачем грузить ини-файл в мемо и его там редактировать, коли руками энто делается (хоть в блокноте). Мне как-то мало верится в автоматизацию редактирования сложной логики в строках файла если уже с чтением-записью сложности.

[Volkogriz]

Ну, а строка, которая лежит в переменной Section на момент чтения из файла, является ли она валидной секцией ини-файла ?

Строка заполняется при создании формы!
Состоит перемеру:

Section:=  'Секция';

Ну и, если на то пошло,

Код:
with Memo.Lines do
 for i:=0 to Count-1 do ini.WriteString(Секция,Names[i],Values[names[i]]);

ничего не меняет, а только пишет

Да пишет но всего две верхние строчки из Memo, почему то!
Не всё заполняет!
С уважением,
Volkogriz!

[Кольша]

Почему бы не сохранять в отдельный файл?

[phomm]

Вы как-то неадекватно работаете, суть вопроса была в:

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

является ли она валидной секцией ини-файла ?

это означает , есть ли в файле строка вида

[Секция]

раз уж у Вас в переменную записана строка "Секция"

Если такой в файле нет - то ничего и не будет прочитано.

Насчёт всего остального - откройте для себя отладку

[Volkogriz]

Что именно сохранить, текст из мемо?
Нельзя я ведь редактирую файл игры.
А если секцию то я об этом подумываю но хотелось бы пользоваться одним файлом!

[Volkogriz]

Вы как-то неадекватно работаете, суть вопроса была в:
Цитата:
Сообщение от phomm Посмотреть сообщение
является ли она валидной секцией ини-файла ?
это означает , есть ли в файле строка вида
Код:

[Секция]

Все секции существуют изначально, я их просто зачитываю!
Но зачитать не могу.
Вот пример секции которая должна попасть в ListBox2, но не попадает:

[HouseTypes]
Atreides
Ordos
Harkonnen
Ix
Tleilaxu
Fremen
Imperial
Guild
Incidental

Но вот эта секция грузится на ура:

[General]
Version = 1.23
SpiceValue = 200
FogRegrowRate = 10
RepairRate = 12
RearmRate = 50	
StarportCostUpdateDelay = 1500
StarportCostVariationPercent = 40
StarportStockIncreaseProb = 90
StarportStockIncreaseDelay = 1000
StarportMaxDeliverySingle = 6
FrigateCountdown = 2500

HarvReplacementDelay = 1000

HawkStrikeDuration = 500
LightningDuration = 300
DeviateDuration = 400

SoundStealthOn = StealthOn
SoundStealthOff = StealthOff
SoundShieldOn = ShieldOn
SoundShieldOff = ShieldOff
SoundRadarOn = RadarOn
SoundRadarOff = RadarOff

AdvCarryallPickupEnemyDelay=60
StealthDelay=30
StealthDelayAfterFiring=10
GuardTileRange=12
MinWormRideWaitDelay=100
MaxWormRideWaitDelay=2000
FrigateTimeout=1000
RepairTileRange=10
WormRiderLifespan=1000
MaxBuildingPlacementTileDist=6
MinCarryTileDist=10
BulletGravity = 1.0
SuppressionDelay = 200
SuppressionProb = 5
InfRockRangeBonus = 2
HeightRangeBonus = 1
InfDamageRangeBonus = 50
//WORMS :
MaximumSurfaceWorms = 1
ChanceOfSurfaceWorm = 6000
ChanceOfVerticalWorm = 5000
SurfaceWormMinLife = 600
SurfaceWormMaxLife = 1000
SurfaceWormDisappearHealth = 25
MinimumTicksWormCanAppear = 1000
WormAttractionRadius = 32
// REINFORCEMENTS / RESERVES / INITIAL
UnitValueAttacker = 20
UnitValueDefender = 5
UnitValueReserves = 20
UnitValueInitialReinforcements = 20
UnitValueSubsequentReinforcements = 10
TicksBetweenReinforcements = 6600
TicksBetweenReinforcementsVariation = 600
TicksBeforeReinforcementsForMessage = 100
StormKillChance = 127
StormMinWait = 7500
StormMaxWait = 1500
StormMaxLife = 2500
StormMinLife = 2000
DeviateDuration = 500
CashDeliveryWhenNoSpiceAmountMax = 20000
CashDeliveryWhenNoSpiceAmountMin = 10000
CashDeliveryWhenNoSpiceFrequencyMax = 8000
CashDeliveryWhenNoSpiceFrequencyMin = 4000
CampaignAttackMoney = 5000
CampaignDefendMoney = 2500
ReplicaShouldFire = TRUE
ReplicaFlickerChanceWhenMoving = 0
ReplicaFlickerChanceWhenStill = 0
ReplicaProjectionTime = 20
ReplicaVanishTime = 5
// Difficulty settings (all percentages)
EasyBuildTime = 75
NormalBuildTime = 100
HardBuildTime = 125
EasyBuildCost = 50
NormalBuildCost = 100
HardBuildCost = 125
//------------------
//DECLARATION SECTION
//-----------------------

Но мне нужна только та секция!
На счёт

Вы как-то неадекватно работаете, суть вопроса была в:

Не сплю третье сутки )