typisierte Datei zum Speichern fehlerhaft

[shmia]

Zitat von Technikus:

ich weiß mit den drei Punkten nichts anzufangen. Was kommt dort rein, was muss ich aus meinem Quellcode weglassen.

Statt write schreibst du fs.WriteBuffer.
Wenn du's anschaust... da wärst du bestimmt seblst drauf gekommen.

Delphi-Quellcode:

procedure TForm1.Button1_SpeichernClick(Sender: TObject); 
var Messwert: TLeistung; 
    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(Messwert, Sizeof(Messwert)); 
  finally
     fs.Free;
  end;
end;