dbmemo ya araya string girmek.

[ademcicek]

herkese merhaba arkadaşlar.
db memoya combobox la hazır metinler var onları eklettirecem.

diyorum ki:

var i:integer;
if dbmemo.lines.count >0 then
begin
i:=dbmemo1.lines.count + 1
dbmemo1.lines.insert(i,combobox.items[combobox.itemindex]);
end
else
begin
dbmome.lines.add(combobox.items[combobox.itemindex])
end;

bu satırları yazdığımda hata falan vermiyor ama işlemde yapmıyor.

aşağıdaki gibi yapınca comboxdatan seçmiş olduğumuz 1 string ekleniyor.
2. eklediğimizde 1.siliyor 2.eklediğim kalıyor.
dbmemo1.text:=combobox.items[combobox.itemindex];

bu konu hakkında bilgisi olan arkadaşlar varsa yardımlarını bekliyorum.

herkese kolay gelsin.

[mrmarman]

Selam...

Insert deyimi araya eklemek için kullanılır... Add deyimi ise sona...

Insert deyimini Add gibi kullanmak isterseniz, Index olarak vereceğiniz satır numarası maksimum Lines.Count olabilir...

Siz Insert için yukardaki anlattıklarımdan farklı bir şekilde, en son satırdan bir sonraki satırı i değerine aktarıp olmayan bir satırı referans gösteriyorsunuz... Bir işlem yapmaması doğaldır...

- Yapmak istediğiniz şeyi tam olarak ifade ederseniz yardımcı oluruz... Çünkü Add ile yapabileceğiniz bu işlemi tercih etmeyerek sorunun ne olduğu konusunda geriye bişey kalmıyor...

Ek olarak lütfen açtığınız başlıkları cevapsız bırakmayın.. En azından başlık açtığınız sorununuzu çözdüğünüzü bildirin...

örnek: viewtopic.php?t=1643

Yazdıklarımızın bir yere ulaştığını bilmek isteriz, aksi halde boşuna vakit harcamışız gibi değerlendirir. Bu da bir dahaki olası cevaplarda değerlendirmeye alınabilir...

- Açmış olduğunuz bu başlığı unutmuş olabileceğinizi düşünerek, açtığınız / cevap verdiğiniz başlıkların listesine nasıl ulaşabileceğinizi bildireyim...

- Sol üstte göreceğiniz linklerden Delphi Forum Ana Sayfası olanını tıklayın, aynı satırın sağında belirecek üstüste üç satırdan Kendi mesajlarınız başlığına tıkladığınıda kendi mesajlarınıza ulaşabilir, son cevap veren kısmındaki değişikliği takip edebilirsiniz...

- Başlıklar kapanmak üzere açılsın diyor, çalışmalarınızda başarılar diliyorum...

[naile]

Insert deyimini Add gibi kullanmak isterseniz, Index olarak vereceğiniz satır numarası maksimum Lines.Count olabilir...

Sanırım ufak bir gözden kaçma var, yanlış anlaşılma olmasın diye affınıza sığınarak düzeltme yapayım dedim

Insert deyimini Add gibi kullanmak isterseniz, Index olarak vereceğiniz satır numarası maksimum Lines.Count-1 olabilir

[mrmarman]

@naile

- Hayır gözden kaçırma yok... İsterseniz bir memo ile de deneyebilirsiniz....

- Dediğiniz gibi yaparsak Insert'in orjinal işlevi olan Insert (araya ekleme/saplama) işlevini uygulamış oluruz. Yani son satırın pozisyonu en sonda korunur ve eklenen satır sondan öncekine yerleşir...

- Insert'i Add gibi kullanmak istersek son satır olan (Lines.Count-1)'den +1 satır sonrayı işaret etmek gerekir...

- Ayrıca rica ederim... Yanlışımız olabilir, bunu düzelterek gelecekte okuyacak üyelere yanlış bilgi aktarımını engellemek hepimizin görevi...

- Bu ince davranışınız için ayrıca Teşekkürler...

[ademcicek]

procedure TForm_Tip_Idari_Sart_Name.cxComboBox_Fiyat_Esit_Diger_HususClick(
Sender: TObject);
var i: Integer;
begin
if DBMemo_Fiyat_Esit_Diger_Husus.Lines.Count > 0 then
begin
i := (DBMemo_Fiyat_Esit_Diger_Husus.Lines.Count - 1) + 1;
DBMemo_Fiyat_Esit_Diger_Husus.Lines.Insert(i, cxComboBox_Fiyat_Esit_Diger_Husus.Properties.Items[cxComboBox_Fiyat_Esit_Diger_Husus.itemindex]);
end
else
DBMemo_Fiyat_Esit_Diger_Husus.Lines.Add(cxComboBox_Fiyat_Esit_Diger_Husus.Properties.Items[cxComboBox_Fiyat_Esit_Diger_Husus.itemindex]);
end;


arkadaşlar mrmcop un dedikleri çalışıyor

[mrmarman]

@ademcicek

Selam....

- Kullandığın uzun isimlerden dolayı detaylı bakmamıştım... Biraz önce dikkatimi çekti de eklemek istedim...

- Insert, sona eklemeye de yarıyor olmasına karşın sadece araya eklemek için kullanılır... Add ile her zaman (hiç satır olmasa da, en az bir satır olsa da) sona ekleme yapabilirsin...

- Hiç satır olmasa da, bir veya birden fazla satır da olsa; her halukarda DBMemo_Fiyat_Esit_Diger_Husus'un sonuna ekleyeceksen hiçbir sorgu yaptırmaksızın Add'i kullan...

Kod: Tümünü seç

DBMemo_Fiyat_Esit_Diger_Husus.Lines.Add(cxComboBox_Fiyat_Esit_Diger_Husus.Properties.Items[cxComboBox_Fiyat_Esit_Diger_Husus.itemindex]);