Array of Bytes i en INI-file

Jeg ville vælge at skrive et antal i et felt for sig, og herefter hver værdi med sin egen nøgle:
<SNIP>
[SECTION]
COUNT=3
VALUE1=123
VALUE2=7
VALUE3=47
</SNIP>

pellelil >> Tak for dit svar :o)

Hehe, helt så simpelt er det ikke.
Mit array er 32x8 bytes, så det bliver noget rodet på den måde.
Jeg har set en syntax i stil med dette i en INI-fil, men kan ikke finde en måde at læse/skrive værdien:

<SNIP>
[SECTION]
VALUE=1,2,3,4,5,6,7,8
</SNIP>

Jeg bruger en generel funktion som kan hive et item ud af en liste. Se nederst.

Du kan selv rode videre,hvis det er en multidimensionel array

Når du skal indlæse fra ini filen

s := ini.ReadString('data');
for i := Low(MyArray) to High(MyArray) do
  MyArray[i] := StrToIntDef(GetSubstring(s,i),0);

Når du skal skrive til ini filen

s := IntToStr(MyArray[0]);
for i := 1 to High(MyArray) do
  s := s + ',' + IntToStr(MyArray[i]);

Ini.WriteString('data',s);

ps : er ikke sikker på ini syntaxen, men den kender du sikkert.


function GetSubString(const InStr : string; Index : integer; Sep : char = ',') : string;
var
  p,q : PChar;
  Quote : Char;
begin
  Result := '';
  p := PChar(InStr);
  while p^ in [' '] do Inc(p);
  if p^ = #0 then
    Exit;
  repeat
    while p^ in [' '] do Inc(p);
    q := p;

    if (q^ = '"') or (q^ = '''') then
      begin
        Quote := q^;
        Inc(q);
        while not ((q^ = Quote) or (q^ = #0)) do Inc(q);
      end
    else
      while not (q^ in [Sep,#0]) do Inc(q);

    if Index = 0 then
      begin
        SetString(Result,p,q-p);
        Result := Trim(Result);
        Exit;
      end;
    p := q;
    if p^ = Sep then
      begin
        Dec(Index);
        if Index < 0 then Exit;
        Inc(p);
      end;
  until p^ = #0;
end;

doc404 >> Takker :o)

Efter at have rettet et par småfejl virker det perfekt.

Eftersom ini-filer er ascii-baseret så vil der være tegn der ikke "egner" sig til at blive brugt, så en anden mulighed kunne også være at MIME-Encode dine data direkte.

pellelil >> Det er ikke rigtigt.
Værdierne skrives jo som ASCII-strenge og det er netop derfor jeg vælger at anvende en INI-fil, da brugeren nemlig editere data direkte i Notepad.