Moin,
ich habe ein Stringgrid was über eine
query mit Daten gefüllt wird.
Über:
Delphi-Quellcode:
procedure Thaupt2.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if ACol=4 then
Stringgrid1.Options:=Stringgrid1.Options + [goEditing]
else
Stringgrid1.Options:= Stringgrid1.Options - [goEditing];
end;
mache ich mir die Spalte namens Faktor zugänglich um Werte manuell eintragen zu können. Vorher wurde diese Spalte bereits mit dem Faktor 1 ausgefüllt.
Wie kann ich in der folgenden Spalte das Ergebnis berechnen, nachdem die Queryabfrage abgeschlossen wurde?
Ich habe folgendes mit den verschiedenen Ereignissen des Stringrids schon probiert aber es hat sich nichts verändert in der Ergebebnisspalte:
Delphi-Quellcode:
procedure ...
var i2:integer;
begin
i2:=0 ;
while not (i2=i)
do
//i ist die Zahlvariable über die das Stringgrid mit den Daten aus dem
//Query gefüllt wird
begin
inc(i2);
haupt2.StringGrid1.Cells[5,i2] := (floattostr(((strtofloat(StringGrid1.Cells[2,i2]))*(strtofloat(StringGrid1.Cells[1,i2]))*(strtofloat(StringGrid1.Cells[4,i2])) )+(strtofloat(StringGrid1.Cells[3,i2]))));
i2:=i;
end;
Oder ist hier einfach nur irgendwo ein Fehler versteckt???
LG Andreas