Dein Problem steckt hier:
Code:
function TStartseite.addKundetoLV(AKunde: TKunde): TKundeList;
var
myItemAddKtoLV: TListItem;
all: integer;
kundelist: tkundelist;
begin
connect.LegeKundeAn(Akunde);
lvAuswahl.Column[0].NewInstance();
lvAuswahl.UpdateItems(1,100);
end;
so funktioniert das nicht! Erstmal grundsätzliche Frage:
bedienst Du Deine Listview im VirtualMode (=OwnerData=true) oder normal?
normal:
Delphi-Quellcode:
function TStartseite.addKundetoLV(AKunde: TKunde): TKundeList;
var
myItemAddKtoLV: TListItem;
all: integer;
kundelist: tkundelist;
begin
connect.LegeKundeAn(Akunde);
myItemAddKtoLV:= lvAuswahl.Items.Add;
myItemAddKtoLV.Caption:= Akunde.Name;
myItemAddKtoLV.SubItems.Add(AKunde.Strasse); // etc;
end;
oder Virtuell (OwnerData=true):
Delphi-Quellcode:
function TStartseite.addKundetoLV(AKunde: TKunde): TKundeList;
var
myItemAddKtoLV: TListItem;
all: integer;
kundelist: tkundelist;
begin
connect.LegeKundeAn(Akunde);
lvAuswahl.Items.Count:= Kundelist.Count;
lvAuswahl.Refresh;
end;
wobei sowieso nicht klar ist, was die ganzen Variablen in dieser Funktion bedeuten, bzw. woher sie ihren Wert beziehen... aber das weisst Du sicherlich besser...
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
mein blog