Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
Delphi 2006 Architect
|
Re: Record und in File speichern
28. Feb 2007, 15:39
ich hab dasselbe problem
Delphi-Quellcode:
Vert_Ent = record
vtjahr : Integer;
vtproz : array [0..11] of Integer;
end;
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;
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 (TAlles^, SizeOf (TAlles)); // hier kommt eine fehelrmeldung dass nach TAlles^ eine klammer fehlt ( und
// dass eine anweisung erforderlich ist aber ein integer gefunden wurde
finally
stream.Free; // Stream wieder freigeben
end;
end;
was mach ich falsch?
lg nico
Nico Müller
|
|
Zitat
|