Deine Hinzufügen Funktion ist nicht nur unperformant (da du die selbe Schleife mehrfach ausführst sondern auch gefährlich.
Hast du z.B. 4 Zeilen, aber in der 4. keine Alter angegeben, und fügst jetzt einen neuen Datensatz hinzu, dann werden Name, Ort und Tel in Zeile 5 geschrieben, Alter aber in Zeile 4, weil das die erste Zeile ist in der Spalte Alter leer ist. Besser wäre so:
Delphi-Quellcode:
procedure TForm1.HinzuBtnClick(Sender: TObject);
var CurrentRow:Integer
begin
CurrentRow:=GetFirstEmptyRow
AdresseGrid.Cells[1, CurrentRow] := Name.Text;
AdresseGrid.Cells[2, CurrentRow] := Alter.Text;
AdresseGrid.Cells[3, CurrentRow] := Wohnort.Text;
AdresseGrid.Cells[4, CurrentRow] := Tel.Text;
end;
function TForm1.GetFirstEmptyRow:Integer;
begin
Result:=0;
for i := 1 to AdresseGrid.RowCount-1 do
if AdresseGrid.Cells[1, i] = '' then
begin
Result:=i;
break;
end;
if Result=0 then
begin
// AdresseGrid.AddRow //oder wie auch immer man eine Zeile anfügt
Result:=AdresseGrid.RowCount-1;
end;
end;
Noch schöner aber wie gesagt, die eigentlichen Daten einer Person in einem Objekt/Record halten und alle diese Objekte/Records dann in einer (Objekt-)Liste/Array,...