Dongu ve Dizi kullanimi?

[NightFox]

Arkadaslar sanirim dizi ve dongu kullanmam gerekli bu is ici yardimci olurmusunuz?
Kullanici formda kac adet kayit olacagini girecek edit ile, mesela 4 diyelim,
4 adet append yapilacak ve ilk tablonun ilk kolunda
A
B
C
D
yazilacak. basit bir sey belki ama yapamadim,
tesekkurler.

[Kuri_YJ]

Pardon?

Nasıl yazılacağını mı soruyorsunuz?

Mantık olarak açıklayacağım ama sadece mantık.

1. Döngü 1'den Edit'teki Değere Kadar
2. Tabloya.Ekle
3. TablonunDegeri = Character(DonguDegeri+64)
4. Tablo.Gonder
5. 1. Satıra Dön

Bunu siz kodlayacaksınız.

Ayrıca Yeni bir Delphi kullanıcısı mıyız? (Meraktan soruyorum)

Kolay Gelsin

[NightFox]

evet yeni bir delphi kullanisiyim,
Doldurulmasi gereken bir formum var, normalde el ile dolduruluyor fakat forma girilen bilgilerin hepsi db'de mevcut, formun aynisini ReportBuilder ile dizayn ettim, yeni bir delphi kullanicisi oldugum icin cok zor geliyor ama arastiriyorum surekli bi sekilde cozuyorum. Ama bunu cozemedim;

var
a,b : integer;
c : string;
begin
B:=StrToInt(Edit1.Text);
for a:=1 to b do
begin
AdoQuery1.Append;
ADOQuery1SYSTEM_NO.AsString:=Combobox1.Text;
ADOQuery1POCKET_NO.AsString:=Combobox2.Text;
ADOQuery1ISO_NO.AsString:=Combobox3.Text;
ADOQuery1FLG_NAME.AsString:=c;
ADOQuery1SIZE.AsInteger:=StrToInt(Combobox5.Text);
//ADOQuery1DIA:='NOT YET';
ADOQuery1SBOLT_GRADE.AsString:=Combobox4.Text;
//ADOQuery1COPPER_SLIP:'NOT YET';
//ADOQuery1DRY:=''
//ADOQuery1REMARKS:=''
AdoQuery1.Post;

yapmak Istedigim sey aslinda
ADOQuery1FLG_NAME.AsString:=c;
c stringi her kayitta 'a,b,c,d,e...z') kadar satir satir deger almasini istiyorum. Umarim anlatabilmisimdir )

slm,

[Kuri_YJ]

evet yeni bir delphi kullanisiyim,

ADOQuery1FLG_NAME.AsString:=c;

Yerine

Kod: Tümünü seç

ADOQuery1FLG_NAME.AsString := Chr(64+a);

yazın.

İşinizi görecektir. Ancak büyük harf olacaktır. Buna dikkat edin.

Kolay Gelsin

[NightFox]

Tesekkurler..