stringlist

[korendon1971]

merhabalar...
sorunumu ornekle açıklamak istiyorum.

Bu sizin yazdığınız

procedure ekle(a:tstringlist;x:integer)
begin
if x<3 then

begin
a.add(inttostr(x));
ekle(a);
end;

showmessage(inttostr(a.count));

end;

Bu procedure da a son halini alıyor.yani a count degismiyor.
dinamik dizi de aynı biçimde

type
dizi=array of integer

procedure ilk(a:dizi);
procedure ilk1(a1:dizi);
begin
a1'in indisi silinip ilke gonderildiğinde daha sonra a farklı deger aliyor.
ilk(a1)
end

begin
ilk1(a1)
end;

bu biçimde dinamikdiziler birbirine gönderilemiyormu?
Teşekkürler.....





Bu da düzeltilmiş hali

Kod: Tümünü seç

procedure ekle(a:tstringlist;x:integer)
begin
if x<3 then

   begin
  a.add(inttostr(x));
  ekle(a);
     end;

showmessage(inttostr(a.count));

end;

Bu procedure da a son halini alıyor.yani a count degismiyor.
dinamik dizi de aynı biçimde

type
dizi=array of integer

procedure ilk(a:dizi);
    procedure ilk1(a1:dizi);
         begin
         a1'in  indisi silinip ilke gonderildiğinde daha sonra a farklı deger   aliyor.
            ilk(a1)
        end

begin
ilk1(a1)
end;

Yazılarda TAG'leri kullanırsanız daha okunaklılık elde edersiniz ve yanıt vermek isteyenleri de zorlamamış olursunuz.

Kolay Gelsin (Kuri_YJ)

[rsimsek]

Hocam bir de bloklu yazılsa daha da anlaşılır olacak ya

[sabanakman]

Göndermelerde, çağırmalarda ve tanımlarda sorun yok ama dizi prosedürelerinde ki kodlarda bir sakatlık var gibi.

[ulu coder]

prosedürde parametre olarak kullandığınız değişkenin değerini değiştirmek için, tanımlarken soluna var eklemeniz gerek.

Kod: Tümünü seç

procedure Ekle(var a: TStringList)

gibi... Ama TStringList için de geçerli midir, bilmiyorum.

Ekle prosedürünün içinde ekle(a) yazmışsınız, fakat tanımına baktiğimizda x değişkenini de görüyoruz?

ikincisini anlamadım.