Hi,
ich habe ähnliche Fragen wie Hansi. Mir wurde schonmal nahe gelegt, TObject zu benutzen, aber bis jetzt sehe ich keinen wirklichen Sinn darin.
Ich habe ebenfalls ein Beispiel, bei dem ich gern wissen würde, ob das mit einen TObject besser umzusetzen wäre.
Ich will einfach alle Zeilen im Grid in Arrays gespeichert haben, damit ich diese per Speicherklick dann alle abarbeiten bzw speichern kann.
Meine Variante ist eine bissl umständlicher, aber funktioniert auch:
Delphi-Quellcode:
procedure TFmain.StringGridSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
begin //Sobald ein feld editiert wird, wird die RowNummer im array a[x] gespeichert und die Änderungen im Label festgehalten
if posproof(strtoint(lgrid_change.Caption),stringgrid.Row) = false then
begin
setlength(a,stringgrid.RowCount);
zahl:=strtoint(lgrid_change.Caption);
a[zahl]:=stringgrid.Row;
lgrid_change.Caption:=inttostr(zahl+1);
end;
end;
//Die Funktion um die Position der reihe zu ermitteln
function TFmain.posproof(label_zahl,reihe:integer):boolean;
begin
if label_zahl > 0 then
begin
zahl:=1;
while zahl < label_zahl do
begin
if reihe= a[zahl] then
begin
result:=true;
exit;
end
else zahl:=zahl+1;
end;
result:=false;
end
else result:=false;
end;
//Das Speichern...
zahl:=1;
while zahl < strtoint(lgrid_change.Caption) do
begin
DM.SP_abrechnung_update.Params[0].AsString:= stringgrid.Cells[0,a[zahl]];
DM.SP_abrechnung_update.Params[1].AsString:= stringgrid.Cells[1,a[zahl]];
...
DM.SP_abrechnung_update.ExecProc;
Dm.IBTrans.Commit;
DM.IBTrans.Active := True;
DM.Abrechnung.Open;
zahl:=zahl+1;
end;
Wie ihr sehen könnt fehlt mir noch die Prüfung ob ünberhaupt etwas geändert wurde. Kann man das über ein TObject lösen, sodass man den alten Zelleninhalt im TObject speichert und ihm beim Verlassen der Zelle mit dem neuen Zelleninhalt vergleicht?
Und könnte ich gleich die geänderten in den Arrays speichern und dann abarbeiten, ohne das ich die Anzahl der Veränderungen im Label speichere?
Schön Abend noch,
Plautzer