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.