Daily Archives: 07.01.2017

Delphi. DBGrid. Как пробежаться и собрать значения определенного поля выделенных записей?

Posted on 07.01.2017 by Stanislav_Panteleev

DBGrid включаем в режим multiSelect. На примере сбора поля ID из базы данных

procedure TVisualFrame_HTTP.StatusBarClick(Sender: TObject);
var 
  idList: TStringList;
  i: integer;
  s: string;
begin
  idList := TStringList.Create;
  try
    if DBGrid.SelectedRows.Count > 0 then 
      with DBGrid.DataSource.DataSet do 
        for i := 0 to DBGrid.SelectedRows.Count-1 do 
          begin 
            GotoBookmark(pointer(DBGrid.SelectedRows.Items[i])); 
            idList.Add(FieldByName('id').AsInteger.ToString()); 
          end;
  
  for i := 0 to idList.Count-1 do 
    s := s + IDList[i] + #13#10;
  ShowMessage(s);
  finally
    IDList.Free;
  end; 
end;

procedure TVisualFrame_HTTP.StatusBarClick(Sender: TObject);

var

idList: TStringList;

i: integer;

s: string;

begin

idList := TStringList.Create;

try

if DBGrid.SelectedRows.Count > 0 then

with DBGrid.DataSource.DataSet do

for i := 0 to DBGrid.SelectedRows.Count-1 do

begin

GotoBookmark(pointer(DBGrid.SelectedRows.Items[i]));

idList.Add(FieldByName('id').AsInteger.ToString());

end;

for i := 0 to idList.Count-1 do

s := s + IDList[i] + #13#10;

ShowMessage(s);

finally

IDList.Free;

end;

Posted in Delphi | Comments Off

Daily Archives: 07.01.2017

Delphi. DBGrid. Как пробежаться и собрать значения определенного поля выделенных записей?

MY PROJECTS

Recent Posts

Categories