Hi Leute,
ich hab mich mal nen bissl hier umgesehen und nach einer Lösung für mein Problem gesucht. Da ich nichts gefunden habe, frag ich euch mal direkt.
Ich habe eine Datenstruktur aus Zahlen(byte) und Strings und die soll in einen FileStream. Zur Verdeutlichung mal mein Record:
Delphi-Quellcode:
type fach = Record
Name:string[20];
elf1:byte;
elf1_einbringen:boolean;
//...
end;
Punkte = Record
Name:String[40];
GebDatum:String[10];
GebOrt:String[30];
Wohnort:String[30];
SK:String[5];
SKL:string[40];
Grundfach:array[1..11] of fach;
Seminarfach:Semi;
end;
var Leistungen:Punkte;
Der Stream wird folgendermaßen gespeichert:
Delphi-Quellcode:
procedure TForm1.Speichernunter1Click(Sender: TObject);
var Datei:TFileStream;
begin
if Speichern.Execute then
begin
try
datei:=TFileStream.Create(Pchar(speichern.FileName),fmCreate);
Datei.WriteBuffer(Leistungen,Sizeof(Leistungen));
finally
freeandnil(Datei);
end;
end;
end;
Das Problem: Im Array "Grundfach" wird von der Variable "Name" nur der allererste Wert gespeichert. Alle folgenden bleiben leer!
Ich hoffe ihr habt einigermaßen verstanden, was ich vor habe und könnt mir weiter helfen.
Grüße Bf