In einem einfachen Testprojekt (für ein Anfänger-Tutorial) habe ich einen Record mit verschiedenen Feldern für Name, Adresse usw. Alle Manipulationen finden in diesem Record statt. Zur Anzeige in einem Stringgrid dient mir folgende Procedure:
Delphi-Quellcode:
Procedure TFormMain.Eintragen(Nummer: Integer);
begin
IF Anzahl < Nummer THEN Exit;
IF (StrGrid_Adressen.RowCount - 1) < Nummer THEN
StrGrid_Adressen.RowCount := Nummer + 1;
StrGrid_Adressen.Cells[0,Nummer] := IntToStr(Adressen[Nummer].Index);
StrGrid_Adressen.Cells[1,Nummer] := Adressen[Nummer].Vorname;
StrGrid_Adressen.Cells[2,Nummer] := Adressen[Nummer].Nachname;
StrGrid_Adressen.Cells[3,Nummer] := Adressen[Nummer].Strasse;
StrGrid_Adressen.Cells[4,Nummer] := Adressen[Nummer].PLZ;
StrGrid_Adressen.Cells[5,Nummer] := Adressen[Nummer].Ort;
StrGrid_Adressen.Cells[6,Nummer] := DateTimeToStr(Adressen[Nummer].GebDat);
end;
Damit befolge ich das
KISS-Prinzip. Das Tutorial ist
dort zu finden.