1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type Gesellschaft = record
  NameB: string;
  GeTag: integer;
  GeMonat: integer;
  GeJahr: integer;
  NameComp: string;
  Gruendung: integer;
  Kapital: integer;
  Flughafen: string;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type Gesellschaft = record
  NameB: string;
  GeTag: integer;
  GeMonat: integer;
  GeJahr: integer;
  NameComp: string;
  Gruendung: integer;
  Kapital: integer;
  Flughafen: string;
end;

Procedure Save(Filename:String;data:Gesellschaft);
var f:Tfilestream;
begin
  f:= Tfilestream.create(Filename,fmcreate or fmopenwrite);
  f.write(data,sizeof(data));
  f.free;
end;

Function Load(Filename:String):Gesellschaft;
var f:Tfilestream;
begin
  f:= Tfilestream.create(Filename,fmopenread);
  f.read(result,sizeof(result));
  f.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Procedure WriteStringToStream( Const M:Tstream; Data:String);
var I:integer;
    c:Char;
begin
  i := Length(Data);
  m.write(i,sizeof(i));
  for i := 1 to Length(data) do begin
    c := data[i];
    m.write(c,sizeof(c));
  end;
end;

function ReadStringFromStream( Const M:Stream):String;
var I,j:integer;
    c:Char;
begin
  Result := '';
  m.read(i,sizeof(i));
  for j := 1 to i do begin
    m.read(c,sizeof(c));
    Result := Result + c;
  end;
end;