Also ich speichere das geladene Grid in ein array. EigenschaftenGrid
Delphi-Quellcode:
procedure wertesetzen(StringGrid1:TStringGrid);
VAR i,j : integer;
begin
for i:=0 to n-1 do
for j:=0 to n-1 do
EigenschaftenGrid[i,j].wert := StringGrid1.Cells[j,i];
EigenschaftenGrid[i,j].vorgegeben := 1;
for i:=0 to n-1 do
for j:=0 to n-1 do
if EigenschaftenGrid[i,j].wert = '' then // Diese Abfrage geht bei geladenen Werten nicht mehr.
begin
EigenschaftenGrid[i,j].wert := '0';
EigenschaftenGrid[i,j].vorgegeben := 0;
end;
end;