Hallo, ich brauche mal wieder Hilfe. Eigentlich habe ich so ziemlich
dasselbe Problem wie letztes Mal. Irgendwie krieg ich das ganze noch nicht so in den Kopf rein...
Ich habe mir eine ListView erstellt:
Delphi-Quellcode:
ListView1.BeginUpdate;
try
while not FDStoredProc1.eof do
begin
LItem := ListView1.Items.Add;
LItem.Detail := FDStoredProc1.FieldByName('Vorname').AsString + ' ' + FDStoredProc1.FieldByName('Name').AsString;
FDStoredProc1.Next;
end;
finally
ListView1.EndUpdate;
ListView1.Visible := true;
end;
Bei einem Klick auf den ListView-Button, soll das Ergebnis eines Queries in einer Variable gespeichert werden.
Delphi-Quellcode:
procedure TForm1.ListView1ButtonClick(const Sender: TObject;
const AItem: TListItem; const AObject: TListItemSimpleControl);
var
LLocal : TRec;
begin
if Assigned(ListView1.Selected) then begin
LLocal.wert1 := FDStoredProc1.FieldByName('SpalteA').AsFloat;
LLocal.wert2 := FDStoredProc1.FieldByName('SpalteB').AsFloat;
end;
end;
Das bringt mir leider nur die allerletzten Werte aus der Datenbank. Ist mir auch relativ klar, warum ich nur den letzten Wert bekomme, allerdings weiß ich nicht, wie ich diesen Fehler beheben kann.