Registriert seit: 2. Aug 2005
46 Beiträge
|
Re: typisierte Datei zum Speichern fehlerhaft
22. Aug 2005, 18:04
Hallo marabu,
jetzt meldet er, dass er nicht mit dem "absolute" zurechkommt.
Delphi-Quellcode:
type TLeistung= record
nr: byte;
Spannung, Strom, Leistung: double;
end;
procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var Messwert: TLeistung;
Buffer: array [1..32] of byte absolute Messwert;
{E1030 Ungültige Compileranweisung: 'absolute'}
i, anzahl: integer;
fs : TFileStream;
begin
anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
fs := TFileStream.Create('solarz.dat', fmCreate);
try
for i:= 1 to anzahl do
with Messwert do
begin
nr:= i;
Spannung:= StrToFloat(StringGrid1.Cells[1,i]);
Strom:= StrToFloat (StringGrid1.Cells [2,i]);
Leistung:=StrToFloat (StringGrid1.Cells [3,i]);
end;
fs.WriteBuffer(Buffer,Sizeof(Buffer));
finally
fs.Free;
end;
end;
Gruß Technikus
|
|
Zitat
|