Diziler/Array İşlemleri nasıl yapılır?

var

MyForm:TclStyleForm;

myArrayInteger : TclArrayInteger;

BtnArraySample:TclButton;

Procedure BtnArraySampleClick;

Var i:Integer;

Begin

For i:=1 To 3 Do myArrayInteger.Add(0);//diziye değeleri 0 olan 3 tane eleman oluştur

With myArrayInteger do

begin

SetItem(0,1);//0.indise 1 değerini ata

SetItem(1,1);//1.indise 1 değerini ata

SetItem(2,1);//2.indise 1 değerini ata

SetItem(0, GetItem(0) + GetItem(1) + GetItem(2));//dizinin 0. elemanına tüm dizi değerlerini topla

clShowMessage(GetItem(0));

End;

myArrayInteger.RemoveAll;//dizi elemanlarını ve içeriklerini tümüyle sıfırla

End;

begin

MyForm := TclStyleForm.Create(Self);

myArrayInteger := TClArrayInteger.Create;

BtnArraySample:= MyForm.AddNewButton(MyForm,'BtnArraySample','Array Result');

MyForm.AddNewEvent(BtnArraySample,tbeOnClick,'BtnArraySampleClick');

MyForm.Run;

end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Benhur Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 30 Mayıs 2023 Durum: Aktif Değil Puanlar: 28	Mesaj Seçenekleri Yanıt Yaz Alıntı Benhur Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Diziler/Array İşlemleri nasıl yapılır? Gönderim Zamanı: 30 Mayıs 2023 Saat 12:54


Benhur Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 30 Mayıs 2023 Durum: Aktif Değil Puanlar: 28	Mesaj Seçenekleri Yanıt Yaz Alıntı Benhur Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 30 Mayıs 2023 Saat 12:58
	var MyForm:TclStyleForm; myArrayInteger : TclArrayInteger; BtnArraySample:TclButton; Procedure BtnArraySampleClick; Var i:Integer; Begin For i:=1 To 3 Do myArrayInteger.Add(0);//diziye değeleri 0 olan 3 tane eleman oluştur With myArrayInteger do begin SetItem(0,1);//0.indise 1 değerini ata SetItem(1,1);//1.indise 1 değerini ata SetItem(2,1);//2.indise 1 değerini ata SetItem(0, GetItem(0) + GetItem(1) + GetItem(2));//dizinin 0. elemanına tüm dizi değerlerini topla clShowMessage(GetItem(0)); End; myArrayInteger.RemoveAll;//dizi elemanlarını ve içeriklerini tümüyle sıfırla End; begin MyForm := TclStyleForm.Create(Self); myArrayInteger := TClArrayInteger.Create; BtnArraySample:= MyForm.AddNewButton(MyForm,'BtnArraySample','Array Result'); MyForm.AddNewEvent(BtnArraySample,tbeOnClick,'BtnArraySampleClick'); MyForm.Run; end;