Adressen in Stringgrid Feld schreiben

[ibp]

so oder du schreibst gleich in das stringgrid (dann in options goediting ansehen!)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.colcount:=6;  
  StringGrid1.rowcount:=1;  
  StringGrid1.Cells [1,0]:='name';
  StringGrid1.Cells [2,0]:='vorname';
  StringGrid1.Cells [3,0]:='strasse';
  StringGrid1.Cells [4,0]:='hausnummer';
  StringGrid1.Cells [5,0]:='wohnort';
  StringGrid1.Cells [6,0]:='telefonnummer';
end;

procedure TForm1.Button1Click(Sender: TObject);
var inzeile:integer;
begin
  inzeile:=StringGrid1.rowcount+1
  StringGrid1.rowcount:=inzeile;    

  StringGrid1.Cells [1, inzeile]:=edit1.text;
  StringGrid1.Cells [2, inzeile]:=edit2.text;
  StringGrid1.Cells [3, inzeile]:=edit3.text;
  StringGrid1.Cells [4, inzeile]:=edit4.text;
  StringGrid1.Cells [5, inzeile]:=edit5.text;
  StringGrid1.Cells [6, inzeile]:=edit6.text;
end;