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;