edit -> stringgrid

[doof]

was für nen befehl brauch ich um das was im edit feld steht nach buttonklick ins stringgrid zu kopiern?
also edit 1 in stringgrid 1,1
edit 2 in stringgrid 1,2

un wie bekomm ich das, was im label steht in die titelleiste vonner stringgrid?

thx.

 

[vop]

Stringgrid1.Cells[Spalte,Zeile]:=edit1.text

Wenn Du als Zeile 0 verwendest, ist das die Titelzeile

vop

 

[doof]

k thx.

wenn ich jeze noch die stringgrid speichern will bzw load mach ich das wie?
mit savetofile?

 

[Patrick Kamin]

-

Schon mal was von "ausprobieren" gehört?

 

[jc-freak]

ich hab hier n schöne Speicher und Lade Prozedur. Funktioniert beides perfekt

//StringGrid speichern (mit einem Stream)
procedure saveGrdToFile(grd: TStringGrid; Pfad : String);
var
  i,j,row,col,len : Word;
begin
  fStream := TFileStream.Create(pfad, fmCreate);
  fStream.Free;
    fStream := TFileStream.Create(pfad, fmOpenWrite);
      col := grd.ColCount -1;
      row := grd.RowCount -1;
      fStream.WriteBuffer(row, SizeOf(Word));
      fStream.writeBuffer(col, SizeOf(Word));
    for i := 0 to row do
      for j := 0 to col do
      begin
        buff := grd.Cells[j,i];
        len := Length(buff);
        fStream.WriteBuffer(len, SizeOf(Word));
        fStream.WriteBuffer(buff[1], len)
      end;
    fStream.Free;
end;

//StringGrid laden (mit einem Stream)
procedure loadGrdFromFile(grd: TStringGrid; Pfad : String);
var i,j,row,col,len : Word;
begin
  fStream := TFileStream.Create(pfad, fmOpenRead);
  fStream.ReadBuffer(row, SizeOf(Word));
  fStream.ReadBuffer(col, SizeOf(Word));
  grd.ColCount := col + 1;
  grd.RowCount := row + 1;
  for i := 0 to row do
    for j := 0 to col do
    begin
      fStream.ReadBuffer(len, SizeOf(Word));
      SetLength(buff, len);
      fStream.ReadBuffer(buff[1], len);
      grd.Cells[j,i] := buff
    end;
    fStream.Free
end;