Memo1 deki kayıt sayısını bulmak.

[OZCANK]

(08-11-2021, Saat: 13:57)mrmarman Adlı Kullanıcıdan Alıntı: O zaman şu şekilde bir yaklaşım işini görecektir.

procedure TForm1.Memo1DblClick(Sender: TObject);
Var
  KayitBul  : String;
  r, k      : Integer;
  LKaynak   : String;
begin
  if Edit4.Text = 'KayitBul' then
  begin
    Memo1.Text:='';
  end
  else
    Memo1.Text := LisansKayit.FieldByName('MODULLER').Value;

  for k := 0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked[k]:=false; // önce hepsi unchecked yapıldı

  for r := 0 to Memo1.Lines.Count - 1 do
  begin
    LKaynak := Memo1.Lines[r];                                          // "Modül 1   : Ayrıntılı K.D.V İcmal Raporu"
    LKaynak := Copy( Memo1.Lines[r], 1, Pos(':', Memo1.Lines[r] ) -1 ); // "Modül 1   "
    LKaynak := Trim(LKaynak)                                            // "Modül 1"

    for k := 0 to CheckListBox1.Items.Count - 1 do
      if CheckListBox1.Items[k] = LKaynak then CheckListBox1.Checked[k]:=True;
  end;
end;

Üstadım Allah Senden Razı olsun. Emeğine , yüreğine sağlık. Tamda istediğim gibi oldu.