bir müslüman aranıyor cevaplıyacak delphi problemimi?
2 ayrı listbox'a önceden kayırt yapılan bilgilerden tarih olanlar rasında kıyaslama yapmak istiyorum. ama tarih harici listbox da bir başka veri gelince program orda durup hata veriyor. tarih degilse listboxdaki ilgili satır onu görme atla nasıl diyecegim.. kodu pls...
procedure TForm1.Button5Click(Sender: TObject); // TARİHLER ARASII KALİBRE LİSTELER
var
i,index:Integer; t,z,k,l,m,n,o,p,r:string;
begin
if (edit7.Text='') and (edit8.Text='') then
begin
showmessage('BAŞLANGIÇ VE BİTİŞ TARİHLERİNİ GİRİNİZ!!');
exit
end
else
label18.Visible:=true;
label19.Visible:=true;
label20.Visible:=true;
label21.Visible:=true;
listbox13.Visible:=true;
listbox14.Visible:=true;
listbox15.Visible:=true;
listbox16.Visible:=true;
listbox17.Visible:=true;
listbox18.Visible:=true;
listbox8.Visible:=true;
button3.Visible:=true;
button5.Visible:=true;
for i:=0 to strToInt(label4.caption)-1 do
begin
z:=listbox3.Items.Strings
;
t:=listbox2.Items.Strings;
if (t='NCR') Or (t='CBU') Or (t='3.HİBM') Or (t='NPC') or (z='NCR') Or (z='CBU') Or (z='3.HİBM') Or (z='NPC') then
t:=listbox2.Items.Strings
else
if (strTodate(t)>=strTodate(edit7.Text)) AND (strTodate(z)<=strTodate(edit8.Text)) then
begin
k:=listbox1.Items.Strings;
l:=listbox2.Items.Strings;
p:=listbox3.Items.Strings;
m:=listbox4.Items.Strings;
n:=listbox5.Items.Strings;
o:=listbox6.Items.Strings;
r:=listbox7.Items.Strings;
listbox13.Items.Add(k);
listbox14.Items.add(l);
listbox15.Items.add(p);
listbox16.Items.add(m);
listbox17.Items.add;
listbox18.Items.add(o);
listbox8.Items.Add(r);
label19.Caption:=IntTostr(listbox13.Items.Count);
listbox13.ItemIndex:=listbox13.Items.Count-1;
listbox13.ItemIndex:=index;
listbox14.ItemIndex:=index;
listbox15.ItemIndex:=index;
listbox16.ItemIndex:=index;
listbox17.ItemIndex:=index;
listbox18.ItemIndex:=index;
listbox8.ItemIndex:=index;
end;
end;
end;