Hallo Technikus,
ich finde deine binäre Ausgabe nicht gut - die Ausgabe im
CSV-Format oder als
XML-Datei fände ich dem Anwendungsfall angemessener - aber so sollte es funktionieren:
Delphi-Quellcode:
type
TLeistung= record
nr: byte;
Spannung, Strom, Leistung: double;
end;
procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var
Messwert: TLeistung;
Buffer: array [1..SizeOf(TLeistung)] of byte absolute Messwert;
...
begin
...
fs.WriteBuffer(Buffer, Sizeof(Buffer));
...
end;
Grüße vom marabu