Einzelnen Beitrag anzeigen

Technikus

Registriert seit: 2. Aug 2005
46 Beiträge
 
#19

Re: typisierte Datei zum Speichern fehlerhaft

  Alt 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
  Mit Zitat antworten Zitat