Daten aus einem StringGrid in einer Datei speichern

[Technikus]

Hallo!

Ich kann die Daten eines StringGrids in einer Datei nicht speichern.[Delphi 2005 Prof.]
Kann mir bitte jemand helfen? Das Compilieren hängt an der Stelle fs.writebuffer...
>>E2250 Es gibt keine überladene Version von 'WriteBuffer', die man mit diesen Argumenten aufrufen kann<<

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));{hier kommt die Fehlermeldung}
  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) und ähnliches;

Vielleicht weiß jemand, was ich wie ändern muss.
Danke
Technikus

[alzaimar]

Typcasting sollte funktionieren. Und die Delphi Hilfe. Und die Beispiele.

[marabu]

Das zugrundeliegende Problem wurde zwar schon in einem Parallel-Thread gelöst, aber weil der Titel hier so schön ist - ein 5-Zeiler zum Speichern als CSV-Datei:

Delphi-Quellcode:

procedure SaveGrid(grid: TStringGrid; fileName: string);
var
  iRow: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  for iRow := 0 to Grid.RowCount - 1 do
    sl.Add(Grid.Rows[iRow].CommaText);
  sl.SaveToFile(fileName);
  sl.Free;
end;

Grüße vom marabu