Hallo!
Danke nochmal an shmia
ich bin mit meinem Problem noch nicht einen cm weitergekommen.[Delphi 2005 Prof.]
Kann mir bitte jemand helfen? Das Compilieren hängt an der Stelle fs.writebuffer...
Delphi-Quellcode:
type TLeistung= record
nr: byte;
Spannung, Strom, Leistung: double;
end;
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;
In der Hilfe finde ich z.B. den Syntax
[Delphi] public procedure WriteBuffer(const Buffer: array of Byte, Count: Integer);
Damit kann ich aber nichts anfangen.
Vielleicht weiß jemand, was ich wie ändern muss.
Danke
Technikus