Bi döngüm var, veritabanından ilk başta veri çekiyorum çektigim verileri string halinde (örnegin: JJDJDH3DDHF) TstringList e aktarıyorum, ve bu veriler 15000- 20000 i bulabiliyor. Döngü içine girip bu verileri satır satır kimi zaman 500 kimi zaman 1000-2000-3000 veri ile aratıyorum teker teker, olanları atıyorum yeni bir stringlist'e.. Ancak biraz agır ilerliyor.. Kod blogum aşagıdaki gibi, inceler, mantık hatalarım varsa ve önleriniz olursa daha hızlandırmak için paylaşmanızı rica ederim.. Şimdiden tşkler..
Kod: Tümünü seç
for I := 0 to Memo1.Lines.Count - 1 do // memo da 1000- 2000 tane veri olabliyor. tek kelimelik olarak..
begin
Application.ProcessMessages;
for L := 0 to strList.Count - 1 do //strlist ise 15000 i aşabilen veriler alıyorum veritabanından.. Bu listede program başladıgında attıgım veriler var.
begin
if(Memo1.Lines.Count=I)then begin exit; end;
if(strList.Strings[L]=Memo1.Lines.Strings[I])then
begin
zatenVarOlanKayitListesi.Add(Memo1.Lines.Strings[I]);
Label6.Caption:=IntToStr(zatenVarOlanKayitListesi.Count);
break;
end;
end;
end;