record speichern

[rossmann]

type
TMod = record
modname : string;
moddesc : string;
modbemerkungen : string;
modversion : string[200];
modforversion : string;
author : string[200];
authormail : string;
authorpage : string;
end;

TModAction = record
cstr1 : string;
cstr2 : string;
insreturn : boolean;
datei : string;
end;



TForm1 = class(TForm)
Button1 : TButton;
procedure Button1Click(Sender : TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
Hi Theomega

vieleicht so !


var
Form1 : TForm1;
actions : array of TModAction;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender : TObject);
var s : TMemoryStream;
x : integer;
begin
x := Length(actions);
s := TMemoryStream.Create;
s.WriteBuffer(Actions, x);
s.SaveToFile('c:\action.rec');
end;