How to modifi this code for Tokyo
How to modifi this code for Tokyo
Thank's
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum : Single;
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
sum:= sum + AdoQuery1.FieldByName('Size').AsFloat;
end;
end;
edSizeSum.Text := FloatToStr(sum);
end
end;
Thank's
procedure TForm1.btnDoSumClick(Sender: TObject);
var
i: Integer;
sum : Single;
begin
if DBGrid1.SelectedRows.Count > 0 then
begin
sum := 0;
with DBGrid1.DataSource.DataSet do
begin
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
sum:= sum + AdoQuery1.FieldByName('Size').AsFloat;
end;
end;
edSizeSum.Text := FloatToStr(sum);
end
end;
Gibi Velazquez that has been the case for almost a decade. See for instance sourcecodeadventures.wordpress.com - Delphi’s broken bookmarks
ReplyDeleteUse this code:
ReplyDeleteGotoBookmark(TBookmark(DBGrid1.SelectedRows.Items[i]));
Muchas gracias a todos por la ayuda prestada.
ReplyDelete