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

[ozcank]

Arkadaşlar Merhaba; Memo1.Text de 8 kayıt var bu kayıtları nasıl bulabilirim? Aşağıdaki kod 12 kayıt kadar dönüyor ve bu 8 kayıdın karşılığını CheckListBox1 de işaretlemek istiyorum.

Kod: Tümünü seç

procedure TForm1.Memo1DblClick(Sender: TObject);
Var
KayitBul:String;
r       :Integer;
begin
If Edit4.Text=KayitBul Then
Begin
Memo1.Text:='';
End
Else
Memo1.Text:=LisansKayit.FieldByName('MODULLER').Value;
 
for r := 0 to Memo1.Lines.Count - 1 do
Begin
ShowMessage(IntToStr®);
CheckListBox1.Checked[r]:=True;
end;
End;

[freeman35]

Memo1.Text de 8 kayıt var bu kayıtları nasıl bulabilirim? Aşağıdaki kod 12 kayıt kadar dönüyor ve bu 8 kayıdın karşılığını CheckListBox1 de işaretlemek istiyorum.

Kod: Tümünü seç

procedure TForm1.Memo1DblClick(Sender: TObject);
Var
KayitBul:String;
r       :Integer;
begin
If Edit4.Text=KayitBul Then
Begin
Memo1.Text:='';
End
Else
Memo1.Text:=LisansKayit.FieldByName('MODULLER').Value;
 
for r := 0 to Memo1.Lines.Count - 1 do
Begin
ShowMessage(IntToStr®);
CheckListBox1.Checked[r]:=True;
end;
End;

Sen yazdığın soruyu hiç bir bilgin yokmuş gibi okuyup bir anlamaya çalış. 8 tane ama 12 tane ve bunları 1 e eşitlenmeli !!

Kod: Tümünü seç

If Edit4.Text=KayitBul Then

KayitBul içeriği ne ki? nereden alıyor? karşılaştırmadan sonuç bekliyorsun?

Kod: Tümünü seç

ShowMessage(IntToStr®); 

bu satırda koşulun olmalı. Memo1.Lines.String[r] yada Memo1.Lines.Values[r] vs gibi

[ozcank]

freeman35 kardeşim çok teşekkür ederim. Verdiğin kodu şu şekilde düzenledim ama memo1 e 8 kayıt veri tabanından getiriyorum.
CheckListBox1 de 15 kayıt var. İşaretlediğim (Check) ettiğim kadar Memo1 e aktarıyor ve bunu kaydediyorum. Veri tabanından Memo1 e kaydettiğim 8 kaydı getirdiğimde CheckListBox1 de de check ettiğim kayıtlarıda işaretlemek amacım.

Bu kod yine 12 kayıt işaretliyor. LoadToSave ile dosyaya aktardığımda da 8 kayıt 4 tanede boş kayıt atıyor. Sanırım bu boş kayıtları silmem veya kontrol etmem gerekiyor.

Kod: Tümünü seç

for r := 0 to Memo1.Lines.Count - 1 do
begin
   KayitBul := Memo1.Lines.Strings[ r ];

   case r of
     0: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     1: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     2: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     3: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     4: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     5: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     6: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     7: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     8: Begin
        CheckListBox1.Checked[r]:=True;
        end;
     9: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    10: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    11: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    12: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    13: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    14: Begin
        CheckListBox1.Checked[r]:=True;
        end;
    15: Begin
        CheckListBox1.Checked[r]:=True;
        end;

[ertank]

Arkadaşlar Merhaba; Memo1.Text de 8 kayıt var bu kayıtları nasıl bulabilirim? Aşağıdaki kod 12 kayıt kadar dönüyor ve bu 8 kayıdın karşılığını CheckListBox1 de işaretlemek istiyorum.

Merhaba,

Soru sorar iken çok eksik bilgi vermişsiniz.

Öncelikle kullandığınız Delphi sürümü nedir?
Ayıklamak istediğiniz Memo1.Text değeri nedir?
"Kayıt" ile ifade etmek istediğiniz nedir? Ne değer sizin için kayıt anlamına geliyor?

Bu soruların cevabını iletebilir iseniz, yapmak istediğiniz işlemi "program" anlamında anlamak ve yardımcı olmak daha kolay olacaktır.

[ozcank]

ertank kardeşim merhaba; Yapmak istediğim aslında şu,
1 tane CheckListBox1 ve 1 tane de Memo1 var. CheckListBox1 daki Moduller (15 Adet) işaretlediklerimi Memo1 e aktarıyorum ve veritabanına kaydediyorum. Programa girdiğim de de Memo1 e işaretlediğim (kaydettiğim) modülleri listeliyorum bu esnada CheckListBox1 de check koymak istedim yapmak istediğim bu kadar.

D7 kullanıyorum.

[freeman35]

"CheckListBox1 daki Moduller" modül ne? böyle bir property bildiğim kadarıyla yok. Kastetdiğin string ise içerik burda CheckListBox.Items[]

for r := 0 to Memo1.Lines.Count - 1 do
begin
KayitBul := Memo1.Lines.Strings[ r ];
CheckListBox1.Checked[r]:= (KayıtBul burada CheckListBox.Items[] varsa);