ada logik yg sederhana dan gampang dipahami dan lebih cepat, tapi pakai cara
barbar (pinjem istilahnya pak sugi). :-)
CMIIW, Jika anda pakai FIND tentu akan makan waktu lama, terlebih bila
datanya
buanyak sekali
procedure TForm1.Button2Click(Sender: TObject);
var
myList: TStringList;
i: Integer;
begin
myList:=TStringList.Create;
myList.Duplicates:=dupError;
myList.Sorted:=true;
// setelah Query pd Query1 terbentuk, isikan ke myList;
Query1.First;
While not Query1.EOF do
begin
myList.Add(QUERY1.FIELDBYNAME('NO_SOAL').AsString);
Query1.Next;
end;
// Siapkan 2 Buah ListBox,
// satu u/ menampung soal terjawab, satu u/ yg belum dijawab
ListBox1.Clear;
ListBox2.Clear;
// asumsi jumlah soal 10 buah
for i:=1 to 10 do
begin
// siapkan jebakan, jika soal sudah dijawab tampung ke ListBox1
// jika soal belum dijawab maka tampung ke ListBox2
try
myList.Add(inttostr(i));
ListBox2.Items.Add(inttostr(i));
except
// terjadi error karena nilai duplicate dipaksa masuk
ListBox1.Items.Add(inttostr(i));
end;
end;
// selesai... simple kan??? :-)
end;
PS: karena pakai jebakan Try...Except maka kalo anda hendak menjalankan dari
IDE Delphi maka matikan Option "Stop On Delphi Exceptions" jika anda tidak
ingin program berhenti saat Excepsi terjadi.
Lain halnya jika anda menjalankan dari EXE-nya.
namaskar
Ol1v3r
----- Original Message -----
From: "a2xkarim" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 10, 2003 5:14 PM
Subject: [Delphindo] CARI..NILAI ARRAY YG TDK SAMA
> Salam jumpa, lagi rekan2 pecinta delphindo, saya punya masalah lagi
> mengenai mencari nilai 2 array yang tidak sama kemudian hasilnya
> disimpan ke array ke 3:
> implementasi ini saya inginkan utk mendeteksi ketika user lupa
> telah menjawab soal no berapa yang telah terjawab sekalian yang
> belum terjawab, kemudian dengan klik tombol batton bisa langsung di
> ketahui semua informasi tersebut.
------------------------ 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/
