indlæs data i ListBox
Jeg vil gerne hvordan man kan læse data hurtigt ind i en listBox. nu gør jeg det på denne sådan her:Listbox1.Clear;
listbox2.visible := false;
Datamodule1.TbRekvisition.First;
for I := 0 to Datamodule1.TbRekvisition.RecordCount - 1 do
Begin
s:= Datamodule1.TbRekvisition.fieldbyname(\'TegningsNr\').AsString;
if ListBox1.Items.IndexOf(s) = -1 then // Hvis ikke navnet findes i forvejen
ListBox1.Items.add(Datamodule1.TbRekvisition.fieldbyname(\'TegningsNr\').AsString);
Datamodule1.TbRekvisition.Next;
end;
Hilsen anold
