StringList gösteren ShowMessage ve ListBox Itemleri [2 soru]

[Jire]

merhaba 2 sorum olacaktı.StringList i messagebox veya showmessage olarak gösterebilcek procedure varmı birde listboxta item eklediğim zaman yazının sağ tarafını göstermek istiyorum nasıl yapabilirim örnek yaptım aşağıda

Dosya : c:\documents\special\file.txt

[ListBox ]
[c:\documents\]

böyle göstermek istiyorum.
[ListBox ]
[special\file.txt]

[ng]

1. File -->new.-->other-->dialog içerisinden sana uygun dialog türünü seçerek içinde istediğini görüntüleyecek bir dialog sınıfı oluşturabilirsin.

[aslangeri]

s.a.

Kod: Tümünü seç

stringlist.commatext

i dene.
büyük ihtimalle gördüğün şey hoşuna gitmeyecek.
o yüzden şöyle bir Procedure hazırlayabilirsin.

Kod: Tümünü seç

procedure myshowmessage(alist:Tstringlist);
var
s:string;
i:integer;
begin
  s:=alislt[0]
  for i:=1 to alist.count-1 do
  begin
      s:=s+#13+alist[i];
  end;
  showmessage(s);
end;

kodlarda yazım hatası olabilir onları kendin düzeltirsin.
kolay gelsin.

[Jire]

Cevap için teşekkür ederim peki diğer sorudaki gibi nasıl yapabilirim sağa doğru gösterme işini?

[aslangeri]

s.a.
onu stringi parse ederek yapabilirsin.
bu sağdan ne kadar göstereceğine bağlı.
ona göre ilgili yerden kesip silebilirsin.
ancak birde bu stringin tamamına ihtiyacın olacaktır.
onuda items.objects kullanarak tutabilirsin kanaatindeyim.
@sadettinpolat in bu konu ile ilgili bir makalesi vardı. o combobox kullanmıştı. ama fark etmez. ikiside tstrings.
kolay gelsin.