Tstringlist te eklediğim Add satırlarını alt alta eklenmesin

delphist · Mesaj gönderen **delphist** » 03 Ağu 2005 10:37

S.a. Indy bileşenleri ile stringlist ile mail atıyorum. Arkadaşlar Add('Yazılar') alt alta bu add satırlarının şu şekilde çıkmasını istiyorum ama birleşik çıkıyor.

Stok Kodu : Ali
Stok Adı : Veli

Şeklinde çıkmasını istiyorum.

Teşekkürler

Sedat GÖKÇEK · Mesaj gönderen **Sedat GÖKÇEK** » 03 Ağu 2005 10:51

Kod: Tümünü seç

var
 StringList : TStringList;
begin
  StringList := TStringList.Create;
  StringList.Add('Sedat'+Chr(13)+Chr(10)+'GÖKÇEK');
end;

Sanırım işini görür. Kolay gelsin.

delphist · Mesaj gönderen **delphist** » 03 Ağu 2005 11:00

Hocam olmuyor Malesef Maile gelen yine aynı yan yana hep...

Sedat GÖKÇEK · Mesaj gönderen **Sedat GÖKÇEK** » 03 Ağu 2005 11:05

chr(13) ve chr(10) yeni bir satır açar string list değerini memo'ya yada rich edit'e attığımda hiç bir sorun göremedim

Kod: Tümünü seç

RichEdit.Text := StringList.Text;
Memo.Text    := StringList.Text;

delphist · Mesaj gönderen **delphist** » 03 Ağu 2005 11:15

Hocam bu aşağıdaki denemem ve gelmiyor nerede hata var...Teşekkürler

Kod: Tümünü seç

Mylist := TStringList.Create;
                      try
                       with MyList do
                        begin
                        Add('STOK KARTI BILGILERI ASAGIDA VERILMISTIR'+chr(13)+chr(10)+'GRUP  KODU' + ' : '+ dmstok.TBLSTSABITGRUP_KODU.AsString);

                        end;    // with
                       //////////////////////
                      IdMessage1.Body.AddStrings(MyList);

Sedat GÖKÇEK · Mesaj gönderen **Sedat GÖKÇEK** » 03 Ağu 2005 11:22

Kod: Tümünü seç

Mylist := TStringList.Create; 
                      try 
                       with MyList do 
                        begin 
                        Add('STOK KARTI BILGILERI ASAGIDA VERILMISTIR'+chr(13)+chr(10)+'GRUP  KODU' + ' : '+ dmstok.TBLSTSABITGRUP_KODU.AsString); 

                        end;    // with 
                       ////////////////////// 
                      //IdMessage1.Body.AddStrings(MyList);
                      IdMessage1.Body.Text := Mylist.Text;

son satırı değiştirdim bir deneme yaparmısınız

delphist · Mesaj gönderen **delphist** » 03 Ağu 2005 11:34

Hiç bir değişiklik Yok Hocam

Sedat GÖKÇEK · Mesaj gönderen **Sedat GÖKÇEK** » 03 Ağu 2005 12:03

Şöyle bir deneme yaparmısın sonucun doğru olduğunu göreceksin
formuna richedit ekleyip

Bu arada chr(10) 'da yeterli oluyor chr(13) kullanmaya bilirisin.

Kod: Tümünü seç

var
   StringList : TStringList;
begin
   StringList := TStringList.Create;
   try
     with StringList do
        Add('STOK KARTI BILGILERI ASAGIDA VERILMISTIR'+chr(10)+
               '-------------------------------------------------------------------------------');
   finally
     IdMessage1.Body.Text := StringList.Text;
   end;
   RichEdit1.Text:=  IdMessage1.Body.Text;
End;

sonucun doğruluğunu göreceksiniz.

Mesaj gönderen **vkamadan** » 03 Ağu 2005 12:57

merhaba ,
Mail formatınız HTML ise, ENTER karakteri işe yarmaz bunun yerine HTML talgarını kullanmanızı öneririm, alt satıra geçmek için <br> gibi .
kolay gelsin.

Sedat GÖKÇEK · Mesaj gönderen **Sedat GÖKÇEK** » 03 Ağu 2005 01:27

vkamadan yazdı: Mail formatınız HTML ise, ENTER karakteri işe yarmaz bunun yerine HTML talgarını kullanmanızı öneririm, alt satıra geçmek için <br> gibi .
kolay gelsin.

Ben bunu düşünmemiştim evet HTML taglarını kullanmak daha doğru olur. Hatırlatmanız için teşekkürler hocam.

delphist · Mesaj gönderen **delphist** » 03 Ağu 2005 01:46

Mail formatın HTML derken stringlist oluşturarak yapıyorum ben bu işi html nasıl kullanacağım...teşekkürler

stnonstop · Mesaj gönderen **stnonstop** » 03 Ağu 2005 01:47

Eğer text biçiminde ise \n kullanmakta mantıklı olabilir.

Mesaj gönderen **vkamadan** » 03 Ağu 2005 01:55

Merhaba ,

Kod: Tümünü seç

IdMessage1.ContentType:='text/html';

şeklinde belirtirseniz, içerikte HTML tagları varsa dikkate alınır tabi bir HTML ve BODY oluşturmuş olmanız gerekir.

Kod: Tümünü seç

TStringList.add('<HTML>');
TStringList.add('<BODY>');
TStringList.add('Yazılar <br>');
TStringList.add('Diğer Yazılıar<br>');
TStringList.add('</BODY>');
TStringList.add('</HTML>');

gibi iyi çalışamlar.

Hakan Can · Mesaj gönderen **Hakan Can** » 04 Ağu 2005 09:35

TStringList'in Add komutunu bir kere yanlış kullanıyorsunuz. Yani:
Add('Ali' + Chr(13) + Chr(10) + 'Veli') dediğinizde 2 satır ilave etmiyor, bir satır ilave ediyor. Bunu basit bir kodla test edebilirsiniz.
Ayrı ayrı add komutunu kullanmayı deneyiniz. (Add('Ali'), Add('Veli')).
İyi çalışmalar.

delphist · Mesaj gönderen **delphist** » 06 Ağu 2005 08:10

s.a. Vkamadan hocam cevabınız için çok teşekkür ederim bu kadar kolay olabileceğini düşünmemiştim...Düşünemedim işte..

...Peki picture vs. göstermek istediğim zaman normal html de image gösterir gibi yine kodlar içerisinde gösterebilirmiyim...Teşekkürler