Delphi Forum

İyi gunler.

t= (a1,a2,a3,
b1,b2,b3,
c1,c2,c3)

Böyle bir tipim var istenilen degere gore sagındaki,solundaki,çaprazındaki elemanları almak istiyorum.
örneğin a1 sagındakiler a2,a3
a3 çarpazındakiler b2,c1
c3 solundakiler c1,c2 vb...
Nasıl bir yol izlemem gerekir?Teşekkür ederim....

Yardımlarınız için çok teşekkür ederim.
1.yolu denedim programda hata yok fakat benim pointerlerla fazla bilgim olmadiği için deger alıp veremedim.
2.yol için akdatilla arkadaşım yaptığın uygulamayı yapıştırırmısın?Mantığı anlamak açısından.
ÇOK TEŞEKKÜRLER..........

İyi gunler.
Bir diziye iki farklı record eklenebilirmi?

örneğin

a=record
kayit1:integer
end;

b=record
kayitharf:string;
kayitno:integer;
end;

c:array[1..2] of ....

c[1]:=a;c[2]:=b gibi

merhabalar

vcl'de protected olarak hazirlanmis procedure ve fonksiyonları çağırabilir miyiz?Teşekkür ederim....

Sorunumu kısaca acıklamak istiyorum.
Benim iç içe procedurum var
dizi adlı degiskeni doldurmak istiyorum.


var n:integer,dizi:array of integer;

procedure ilk
procedure ikinci
begin
if sart2 then ilk;
dizi:=.....
end
begin
for n :=1 to 24 do
begin
if sart1 then ikinci
end;

end;

Programda ...

Bu oyunu biliyorsunuzdur.Yuvarlak tabla üzerinde sıralanmış piyonların birbirinin üzerinden atlayıp ,alınması ile kalan piyon sayısına göre zeka seviyesini ölçen bir oyun.
Bu oyunun kodunu yazdım.Fakat en iyi hamle yani 1 piyon kalması için süresi belli olmayan bir zaman harcıyor.

Bunun için ...

Gelen parametreye göre diziye ekleme yapmak istiyorum.Ama parametrede degistiginden sonuc faydasız oluyor.

Merhabalar...
Bir konuyu danışmak istedim.
Benim bu biçimde procedurum var.


Type
a =array of integer;
b =array of a;

procedure dene(d:b);

var
dizi:b ;

begin
dizi:=d;
dizi[0][0]:=5;

end;

Burada diziye 5 atadığımda d parametreside 5 atanıyor.yani ikiside eşitleniyor. Bunu nasıl ...

Merhabalar.
Try except ile kitaptan birçok örnek yaptım.Fakat şu sorun çıktı.
örneğin 1/0 hatasıyla ilgili
programı çalıştırdığımda uyarı mesaajı geliyor ve programın akışı kesiliyor.Daha sonra except satırı çalışıyor.bu try except uyarıyı bertaraf etmesi gerekmezmi? yoksa benmi yanlış biliyorum ...

Merhabalar arkadaşlar.
sorumu örnekle sormak istiyorum.

type
gunler=(pazartesi,sali,carsamba);
aylar=(ocak,subat,mart);
takimlar=(bkj,gs,fb);

örneğin pazartesi gunleremi ,aylaramı yoksa takımlaramı ait olduğunu bulmak ve Gunleri ,ayları,takımları değişken olarak kullanmak istiyorum.Teşekkür ederim ...

merhabalar arkadaslar.
iki soru sormak istedim
1.Formumdaki stringgride tıklandığında sgiridin satir ve sütununu bulmak istiyorum.Bunu strgridin mouse down olayında mousun sol tusu ile başarabiliyorum.Fakat mouse sağ tuşu ile yapamadım.Bunu nasıl yapabilirim.

2.yine strgrid mouse down olayında ...

ilginize teşekkür ederim.fakat ben sorunumu anlatamadım galiba.
benim istediğim tasarım aşamasındaki formu(nesneleri konumlarıyla birlikte)program çalıştıktan sonra(yani nesnelerin konumları değiştikten sonra) çağırmak istiyorum.Bu mümkün müdür.Tekrar teşekkür ederim.

Merhabalar arkadaşlar.
Sorunumu basit bir örnekle açıklamak istiyorum.
Benim tasarım aşamasında 3tane button 1 tane edit nesnem var.

Button1. click yordamına
begin
button1.destroy;
edit1.color:=clgreen;
end;
yazdım ve programı çalıştırdım.button1 yok ettim ve editin rengini degistirdim.
Sorum şu ...

İyi akşamlar.
var
b:integer;
a:array[1..2]of neyse
c:integer;

Benim amacım öyle bir tip hazırlamak ki b değişkenini kullanmadan programın her tarafında b'nin son haline göre hesap yapması.
örneğin procedurün bir bölümünde b değişkeninin değeri 5
benim b ile ilişkim olmadan sonucun c:=a[1]+1 //6 ...

arkadaşlar yardımınıza teşekkür ederim.Ancak ben anlatamadım galiba sorunumu.Örnek verecek olursam.
var
a1 : Array[1..3] of integer;
b:integer;
begin
b:=3;
a1[1]:=b+1; burda sonuç 4 bulunuyor.
a1[1]:=a1[1]+3;burda ise 7 bulunuyor.
Benim istediğim b'ye göre a1'in deger alması
Yani
a[1]:=a[1]+3 7 ...