Selected ListView-Query-Ergebnis in Variable speichern

[mkinzler]

Delphi-Quellcode:

var
  TitInfo = class
    ID: Integer;
    A, B: Float
  end;

Delphi-Quellcode:

it: TitInfo;

...

ListView1.BeginUpdate;
  try
    while not FDStoredProc1.eof do
    begin
      it := TitInfo.Create;
      it.A :=  FDStoredProc1.FieldByName('SpalteA').AsFloat;
      it.B :=  FDStoredProc1.FieldByName('SpalteB').AsFloat; 

      LItem := ListView1.Items.Add;
      LItem.Detail := FDStoredProc1.FieldByName('Vorname').AsString + ' ' + FDStoredProc1.FieldByName('Name').AsString;
      LItem.Tag := Integer( it);
       
      FDStoredProc1.Next;
    end;
  finally
    ListView1.EndUpdate;
    ListView1.Visible := true;
  end;

Delphi-Quellcode:

procedure TForm1.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
var
  LLocal : TRec;
  it: TitInfo;
begin

  if Assigned(ListView1.Selected) then begin
    it := TitInfo(AItem.Tag);
    LLocal.wert1 := it.A;
    LLocal.wert2 := it.B;
  end;
end;