ini файл

← →
shaman (2012-01-23 01:19) [0]

Подскажите, возможно ли в ini файле хранить многострочное значение?

← →
Германн © (2012-01-23 01:21) [1]

Нет.

← →
Самуилыч (2012-01-23 05:24) [2]

Можно, если применить искусственный прием - заменить разделители строк каким-нибудь спецсимволом (например #7)

← →
Dimka Maslov © (2012-01-23 09:31) [3]

Можно даже двоичные данные, если применить base64 кодирование

← →
RWolf © (2012-01-23 09:40) [4]

TStringList.CommaText, как вариант.

← →
Anatoly Podgoretsky © (2012-01-23 09:42) [5]

> Самуилыч (23.01.2012 05:24:02) [2]

Все равно споткнется на длине строке, она очень маленькая. Но решение есть
заменить многострочный однострочным.

> Но решение есть

не использовать ini-файл в целях, для которых он не предназначен.

← →
i2e (2012-01-23 13:36) [7]

Как вариант применения, значения массива записал как строку с разделителями-точками между значениями.

Например, запись:
Str := "1.1.2.55.0.0"; Ini.WriteString ("TabSheet5", "spCheck", Str);

Для чтения написал такую функцию:

function SelectNextNmr(Sx:string): integer; var cmPos: integer; begin S1 := Sx; cmPos := Pos(".", Sx); // найти "." if cmPos <> 0 then begin Delete(S1, 1, cmPos); // удалить от начала до первой "." -> S1 для последующ обработки Delete(Sx, cmPos, Length(Sx)); // удалить от первой "." до конца end else begin // "." не найдена if (Length(Sx) > 0) then SelectNextNmr := StrToInt(Sx) else SelectNextNmr := 0; S1 := ""; Exit; end; SelectNextNmr := StrToInt(Sx); end;

Чтение:
... S1 := Ini.ReadString ("TabSheet5", "spCheck", ""); for N1 := 1 to s2 do spCheck[N1] := SelectNextNmr(S1);

> [7]

sl:=TStringList.Create; sl.CommaText:=Ini.ReadString ("TabSheet5", "spCheck", "0,0,0,0,0,0"); for i := 1 to s2 do spCheck[i] := StrToIntDef(sl[i], 0); sl.Free;

ini файл Найти похожие ветки