1. create satu stringlist (soalku) untuk menampung data yang ada di
listbox no. soal yang sudah terjawab.
2. lakukan looping pada listbox yang menyimpan urutan no. soal yang
ada, jika tidak ketemu masukkan urutan no. soal tsb ke dalam listbox3
procedure ceksoalygdijawab;
var
soalku : TStringlist;
index:integer;
begin
soalku := tstringlist.create;
soalku.clear;
listbox3.clear;
soalku.text := listbox2.text;
for i := 0 to listbox1.itemindex.count-1 do
begin
if not soalku.find(listbox1.items[i],index) then
listbox3.items.add(listbox1.items.strings[i]);
end;
soalku.free;
end;
mudah-mudahan bisa membantu
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
