Array of Byte til IniFil

Dette eksempel virker.. du burde hurtigt kunne tilpasse det til det du ønsker! :)

var
test:array[0..15] of byte;
i:integer;
f:file;
begin
    for i:=0 to 15 do test[i]:=65+i;
    assignfile(f,'c:\test.ini');
    rewrite(f,1);
    blockwrite(f,test,16);
    closefile(f);
end;

Stream.Write(CfgData,SizeOf(CfgData));

og

Stream.Read(CfgData1,SizeOf(CfgData1));

Et lille eksemple:

procedure TForm1.Button1Click(Sender: TObject);
var
  CfgData: Array[0..1023] of Byte;
  CfgData1: Array[0..1023] of Byte;
  Stream:TMemoryStream;
begin
CfgData[0]:=100;
CfgData[1]:=99;
Stream:=TMemoryStream.Create;
Stream.Write(CfgData,SIZEOF(CfgData));
Stream.Read(CfgData1,sizeof(CfgData1));
ShowMessage('CfgData[0] = ' + IntToStr(CfgData[0]) + #10 +'CfgData[1] = ' + IntToStr(CfgData[1]));
Stream.Free;
end;

Morten >>

Kan du ikke bare gemme det som en Pchar ?

Jens B