Einzelnen Beitrag anzeigen

Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#12

Re: Record und in File speichern

  Alt 11. Mär 2007, 14:07
die fehlermeldungen sind noch immer die gleichen ich kenn mich gar nicht mehr aus


Delphi-Quellcode:
Steuer = record
  st_bez : string[30];
  st_jahr : array [0..11] of Integer;
  st_vert : string[10];
  st_aufk : array [0..11] of longint;
end;

Modell = record
  und_bez : string[30];
  und_st : array [0..31] of Steuer;
end;


Alles= record
  Vert_ast : array [0..30] of array [0..22] of string ;
  vert_datum : array [0..31] of Vert_ent;
  mod_ : array [0..15] of Modell; // mod ist ein reserviertes wort! modular - rest ..
end;

.
.
.

procedure TMain.Speichern1Click(Sender: TObject);
var
  stream : TFileStream;
  filename : string;
begin
  filename := ChangeFileExt (Application.ExeName, '.ext'); // Filename setzen
  stream := TFileStream.Create (filename, fmCreate); // Stream erzeugen
  try
    stream.WriteBuffer (Alles, SizeOf (Alles));
  finally
    stream.Free; // Stream wieder freigeben
  end;
end;

end.
Nico Müller
  Mit Zitat antworten Zitat