kod üretme

[webaytek]

name1.text -> görünecek isim
href1.text -> link-adres
Butona basınca

Kod: Tümünü seç

memo1.lines.add('<a href="'+href1.text+'">' + name1.text + '</a>')

kodu çalışıyor. Benim yapmak istediğim şu inputbox açılıyor ve kullanıcıya kaç tane kod oluşturmak istediği soruluyor - verilen X değer için X tane ayrı kod oluşturabilir miyim.

aklıma çok gerzekçe bir çözüm geldi
name1 - name2 ...... name 30 yapiim gizliim istediği kadarını göstersin
ama adam 3000 tane isterse naapıcaz!

istenilen rakam kadar edit (x2)
istenilen rakam kadar kod memoya işlenecek

for döngüsü kullanmayı denedim ama yapamadım- ŞİMDİDEN TEŞEKKÜRLER

[Arifceylan28]

var
x:tedit;
i,a:integer;
begin
i:=strtoint(inputbox('Link sayısı','Kaç link oluşturacaksınız?',''));
for a:=1 to i do
Begin
x:=tedit.create(form1);
x.left:=20;
x.top:=(i-1)*30;
x.width:=100;
x.height:=30;
x.parent:=form1;
memo1.lines.add('<a href="'+href1.text+'">' + name1.text + '</a>')
end;
end;

[webaytek]

harika - süper - müthiş - istediğim buydu ama tam olarak değil
benim isteğim şu adama bir form içinde istediği sayıda edit oluşturacak
NAME için := name_1 name_2 name_3 ..... name_istegikadar EDIT
HREF için := href_1 href_2 href_3 ...... href_istedigikadar EDIT
düğmeye bastığında kaç tane edit belirtip içine ayrı ayrı link yazdıysa o kadarı memoYa yazılsın

[mrmarman]

Merhabalar...

- Öncelikle gereken şey, statik değil dinamik yapmak adına girişlerinizi TEdit yerine TStringGrid kullanmanızdır...

- Daha önce denemediyseniz bu yapı Excel gibi bir form şeklidir. Kullanıcı satır satır girdi yapabilir. Siz de; ya sabit 3000 satır oluşturur ne kadarı kullanıcı tarafından doldurulmuşsa o kadar işlem yaptırırsınız ya da sadece 1 satır boşluk hazırlar, her girdi sonrasında bir satır eklenmesini sağlarsınız... Bu işlem tercihinize kalmış...

- Bu sayede "kaç tane giriş yapmak istiyorsunuz" sorusu sormak yerine, StringGrid'dek girdi sayısı yani satır sayısını alıp, bu sayı kadar döngü kurup, girilen bu verileri formatlı bir şekilde TMemo'ya atabilirsiniz...

- Son olarak da kullanıcının verilerini tekrar tekrar girmesini istemeyip, bu verileri ileriki bir tarihte okutmak şansı vermek adına, farklı bir dosyaya kaydını yaptırmanız da mümkün...

Çalışmalarınızda başarılar...

[Arifceylan28]

döngü sonuna
x.name:=('name_'+inttostr(i));
gibi birşey ekleyebilirsiinz.
Bir de
href_ den sonra i değişkenini ekletirsiniz.
memo1.lines.add('<a href='''+href'+inttostr(i)+'.text+'''>'
Fakat namei.textte tıkandım.Burda biraz önceki gibi yapsak değişken olarak kabul etmez herhalde.x.text yapsak olur ama.Bi dakka bi düşüneyim.

[webaytek]

@mrmcop dediğiniz gibi statik olayı basit çünkü biraz daha görsel dinamik olunca iş biraz derinleşiyor - biraz daha açar mısınız

[mrmarman]

@Arifceylan28

href_ den sonra i değişkenini ekletirsiniz.
memo1.lines.add('<a href='''+href'+inttostr(i)+'.text+'''>'
Fakat namei.textte tıkandım.Burda biraz önceki gibi yapsak değişken olarak kabul etmez herhalde.x.text yapsak olur ama.Bi dakka bi düşüneyim.

- Sorunun şu şekilde çözülür...

- TEdit'imiz Edit1 olsun... Edit1.Text yerine şu şekilde bir ifade de kullanılabilir...

Kod: Tümünü seç

TEdit(FindComponent('Edit'+'1')).Text

Mesajım kolay anlaşılsın diye burada '1' i ayrı yazdım. Değişken olarak burası IntToStr(i) olarak koyacağın yerdir.

Kod: Tümünü seç

memo1.lines.add('<a href="'+href1.text+'">' + TEdit(FindComponent('Edit'+inttostr(i)).text + '</a>') 

- @webaytek için bahsettiğim TStringGrid çözümü zor gelirse senin çözümünü kullanması adına kilit nokta kalmasın...

[Arifceylan28]

ok mrmcop benim işime de yaradı bu sağol.

[webaytek]

ama ama ama ama olmadı ki şimdiiii

tamam herşey süper ama tek isim de istemiyorum ki ben iki ayrı edit war
görünecek isimi de adam belirliyo linki de adam belirliyo.

KUSURUMA BAKMAZSANIZ KODU TOPLAYIP YAZAR MISINIZ ( )

[Arifceylan28]

Döngünün içine Bir inputbox daha oluşturun.Onu memo1in veya editin textine kopyalattrın. Benim şimdi çıkmam lazım.Yazardım ama vaktim yok.Kolay gelsin.

[webaytek]

@Arifceylan28 ellerine sağlık tşk