ich habe diesen code hier genommen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TFileStream;
begin
f := TFileStream.Create('C:\mod.mod',fmCreate);
moder.modname := 'xxx';
moder.moddesc := 'xxx';
moder.modbemerkungen := '-';
moder.modversion := '1';
moder.modforversion := '2.81';
moder.author := 'xxx';
moder.authormail := 'xxx';
moder.authorpage := 'http://www.thewiggle.org/';
moderaction[0].action := mawinsertbefore;
moderaction[0].cstr1 := 'TEXT01';
moderaction[0].cstr2 := 'TEXT02';
moderaction[0].insreturn := true;
moderaction[0].datei := 'templates/default/frame.html';
moderaction[1].action := mawinsertafter;
moderaction[1].cstr1 := 'TEXT12';
showmessage(inttostr(sizeof(moderaction)));
//f.Write(moder,sizeof(TMod));
f.WriteBuffer(moderaction,sizeof(moderaction));
f.Free;
end;
Und hier sieht man schon. Das showmessage gibt 4 aus. Das Array soll also nur 4 bytes groß sein.