Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30
Kitap basım talebi değerlendirilmek üzere matbaaya bildirildi. Matbaadan basım süreci hakkında bilgi bekleniyor. 15.10.2018 - 15:34
Kitap 1.000 adet basım talebi ile matbaaya gönderildi. 16.10.2018 - 16:50

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
İki byte dizisi nasıl birleştirebilirim ?
#1
Merhaba arkadaşlar, 

iki tane dinamik dizi birleştirmek istiyorum Delphi 7 ile, 

  bytes: array[0..105] of Byte = (
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
    $00, $00
  );


Burdaki byte dizisini başına eklemek istiyorum 

$5a, $02, $20, $70, $11, $15, $20, $26, 

Delphi de dizi fonksiyonlarında append veya extend diğer programlama dillerindeki gibi yok sanırım, yada ben bulamadım Smile
Herkese teşekürler şimdiden.
WWW
Cevapla
#2
İk array'in adı bytes, ikinicinin adı bytes2 ise bytes2'yi bytes'ın üstüne eklemek için bytes'ın elementlerinin indekslerini bytes2'nin element sayısı kadar sayısı kadar arttırıp bytes2'nin elemanlarını da en başa kopyalayabilirsiniz.

Generics ile aşağıdaki gibi kendi çözümlerinizi geliştirebilirsiniz:
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
Merhaba,
bytes: array[0..105] of Byte kısmında sabit olarak 106 adet dizi elemanı rezerve edilmiş. Oysaki, bytes değişkeninde 98 adet dizi değeri atanmış.
Dizi tanımlama ile dizi içerik sayısı uyuşmadığından derleme anında bir hata oluşacaktır. Doğal olarak kod ile sonradan 8 elemanlı bir kümeyi bu diziye eklemek mümkün olmayacaktır.

Çözüm olarak;
 
1- Tanımlama aşağıdaki gibi olmalı, 
var
 bytes: array of Byte;

const
 bytes1: array [0 .. 97] of byte = ($00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
   $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00);

 bytes2: array [0 .. 7] of byte = ($5A, $02, $20, $70, $11, $15, $20, $26);


2- İşlem yapmadan önce SetLength(); metodu ile dizi boyutu set edilmeli,
SetLength(bytes, Length(bytes1) + Length(bytes2));

3- Son olarak, Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol procedure'ü veya benzer bir döngü ile bytes1 ve bytes2 içeriğini bytes dizisinde birleştirebilirsiniz.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#4
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol ile ilgili Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol bir kaç örnek verilmişti.
There's no place like 127.0.0.1
WWW
Cevapla
#5
Herkese Çok teşekür ederim cevap verdiğiniz için.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  ARRAYi nasıl for'la dönerim. PREDATOR 15 441 07-10-2018, Saat: 22:19
Son Yorum: PREDATOR
  Aynı türden iki class'ı nasıl klonlarız? uparlayan 20 797 15-09-2018, Saat: 10:41
Son Yorum: ismailkocacan
  Client tarafında yapılan tüm değişiklikleri tek seferde veritabanına nasıl yazarım adelphiforumz 3 157 12-09-2018, Saat: 22:30
Son Yorum: ssahinoglu
  pascal script ile QuickReport nesnelerine nasıl erişim yapılır theSinan 4 296 01-08-2018, Saat: 08:51
Son Yorum: Kuri_YJ
  Mutex ile birden fazla kullanıcıda aynı programın çalışmasını nasıl engelleriz masteryoda 5 368 16-05-2018, Saat: 09:00
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi