delphi de değişkenlere topluca değer atamak

[muttalip]

a,b,c,d,e,f,k,l,m,n,p gibi değişkenlere aynı anda sıfır değerini atamak istiyorum

foxpro da bu işlemi store 0 to a,b,c,d,e,f,k,l,m,n,p

seklinde yapıyorduk

[csunguray]

Delphi de benzer bir yazım şekli yoktur. Tek tek atamanız gerekli.

[varyemez]

var
a,b,c,d : integer := 0;

[SimaWB]

var
a,b,c,d : integer := 0;

Böyle bir atama Delphi'nin hangi versiyonunda var

[sadettinpolat]

Kod: Tümünü seç

const  
  deneme : integer = 5;

var //global var
  deneme2 : integer= deneme;
  deneme3 : integer= deneme+1;
  xxxxxxx   : integer= 5;

seklinde ifadeler mevcuttur.

[vkamadan]

Kod: Tümünü seç

const  
  deneme : integer = 5;

var //global var
  deneme2 : integer= deneme;
  deneme3 : integer= deneme+1;
  xxxxxxx   : integer= 5;

seklinde ifadeler mevcuttur.

Merhaba , @sadettinpolat , mesajı okuyunca hemen denemek istedim XE2 ve Delphi2007 de örneklediğiniz şekilde bir kullanıma izin vermedi, bazı şeyleri derleyici direktifleriyle açıp kapatmak gerekiyor buda öyle bir özellik mi ? ya da siz hangi sürümde böyle bir kullanım uygulayabildiniz.

[SimaWB]

Kod: Tümünü seç

const  
  deneme : integer = 5;

var //global var
  deneme2 : integer= deneme;
  deneme3 : integer= deneme+1;
  xxxxxxx   : integer= 5;

seklinde ifadeler mevcuttur.

Merhaba , @sadettinpolat , mesajı okuyunca hemen denemek istedim XE2 ve Delphi2007 de örneklediğiniz şekilde bir kullanıma izin vermedi, bazı şeyleri derleyici direktifleriyle açıp kapatmak gerekiyor buda öyle bir özellik mi ? ya da siz hangi sürümde böyle bir kullanım uygulayabildiniz.

Ben de XE'de denedim, hata veriyor.

Kod: Tümünü seç

const
  deneme = 5;

şeklinde yapılırsa diğerlerini kabul ediyor.
Aslında; zaten soruyu soran arkadaşın amacı bu şekilde kullanmak değil sanırım. Kod bloğunun herhangi bir yerinde toplu halde değer atamaktan bahsediyor(en azından ben öyle anladım). Bildiğim kadarıyla Delphi'de bunun bir yolu yok.

[sadettinpolat]

Kod: Tümünü seç

const  
  deneme : integer = 5;

var //global var
  deneme2 : integer= deneme;
  deneme3 : integer= deneme+1;
  xxxxxxx   : integer= 5;

seklinde ifadeler mevcuttur.

Merhaba , @sadettinpolat , mesajı okuyunca hemen denemek istedim XE2 ve Delphi2007 de örneklediğiniz şekilde bir kullanıma izin vermedi, bazı şeyleri derleyici direktifleriyle açıp kapatmak gerekiyor buda öyle bir özellik mi ? ya da siz hangi sürümde böyle bir kullanım uygulayabildiniz.

Merhaba @vkamadan,
Direkt editorden kopyala - yapistir yaptim diye hatirliyorum ama deneme : integer = 5; satirini deneme = 5; seklinde degistirmeden bende simdi calistirmadim

Delphi 2010 kullaniyorum , xe 4 te de denedim deneme = 5; seklinde yazinca calisiyor ancak.

@simaWB , bende a,b,c = 0 seklinde atamanin olmadigini ancak bu sekilde bir atama sekli oldugunu belirtmeye calistim. tek tek atama yapmak lazim.

[vkamadan]

Kod: Tümünü seç

const  
  deneme : integer = 5;

var //global var
  deneme2 : integer= deneme;
  deneme3 : integer= deneme+1;
  xxxxxxx   : integer= 5;

seklinde ifadeler mevcuttur.

Merhaba , @sadettinpolat , mesajı okuyunca hemen denemek istedim XE2 ve Delphi2007 de örneklediğiniz şekilde bir kullanıma izin vermedi, bazı şeyleri derleyici direktifleriyle açıp kapatmak gerekiyor buda öyle bir özellik mi ? ya da siz hangi sürümde böyle bir kullanım uygulayabildiniz.

Merhaba @vkamadan,
Direkt editorden kopyala - yapistir yaptim diye hatirliyorum ama deneme : integer = 5; satirini deneme = 5; seklinde degistirmeden bende simdi calistirmadim

Delphi 2010 kullaniyorum , xe 4 te de denedim deneme = 5; seklinde yazinca calisiyor ancak.

@simaWB , bende a,b,c = 0 seklinde atamanin olmadigini ancak bu sekilde bir atama sekli oldugunu belirtmeye calistim. tek tek atama yapmak lazim.

Merhaba @sadettinpolat , evet o şekilde bir düzeltme yapıldığında belirttiğiniz şekilde çalıştı, teşekkürler.

[esistem]

Selam,

Kod: Tümünü seç

store 0 to a,b,c,d,e,f,k,l,m,n,p 

şeklinde yazacağınıza (ki olmaz delphide) onun yerine array kullanın hiç uğraşmayın. Hem böylece değişkenleri döngüyede sokabilirsiniz