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.
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;
ozcank yazdı: ↑07 Kas 2021 05:46
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.
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 !!
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.
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;
ozcank yazdı: ↑07 Kas 2021 05:46
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.
En son ertank tarafından 08 Kas 2021 12:57 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
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.
"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);
ZAGOR TENAY TÜRK'tür... TÜRK kalacak... Zoru başarırım, İmkansız zaman alır FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!