Delphi Forum

Tam olarak ,ilerletmeye çalıştığım:

RobotButton[1,1].OnClick:=Robot1ButtonLeftClick; yerine şu tarz birşey yapabilmek:

RobotButton[1,1].OnClick:=RobotButtonLeftClick[1],

yada döngü içinde düşünürsek:

RobotButton[n,1].OnClick:=RobotButtonLeftClick[n] veya
RobotButton[1,1].OnClick ...

Arkadaşlar çok teşekkürler,

Tavsiyenizdeki gibi with olayını komple kaldırdım ve tüm nesneleri runtime içinde create edip oluşturdum ve hepsini bir diziye endeksledim. Birtek runtime sırasında oluşturduğum buttonların üzerine tıklanonca açılacak fonksionları dizisel olarak indeksleyemedim.

İyi ...

Aşağıdaki kodu kullanarak, oluşturmuş olduğum nesnelerin ekrandaki yerlerini değiştiriyorum, Fakat 26 çevrimlik 1 döngünün bitip 4 çevrimlik 2. döngünün işlemesine kadar en az 500-600ms geçiyor ve özellikle alt kısımdaki ekran güncellemeleri aksıyor.

acaba Shape, Button gibi componentleri bir dizi ...

İyi günler,

Uzak bir network aygıtından veri okuyan bir OCX OLE Module kullanıyorum. Module şu şekilde uzaktaki veriyi okuyor:


AdsResult := Form1.AdsOcx1.AdsCreateVarHandle('.Recipe_Data', hVar );
if AdsResult = 0 then
begin
AdsResult := Form1.AdsOcx1.AdsSyncReadIntegerVarReq( hVar, sizeof ...

Aynı DBGRID içinde birden fazla SQL komutu bağlandığı için Coulumn sayısı değişiyor ve Development anında editör üzerinden gözükmüyordu.

Fakat aslangeri arkadaşımızın söylediği şekilde çalıştı.

Teşekkürler.

DBGRid componentini aşağıdaki komuta bağlıyorum. Kolonların başlıkları olarak Recipename yazılıyor fakat , SUM(), COUNT barındıran kısımların başlıkları COLUMN1 olarak çıkıyor, Bu değeri örneğin SUM olarak nasıl değiştirebilirim.

SELECT RecipeName, COUNT(RecipeName) FROM log

İyi Çalışmalar.

Incal99

Çok teşekkürler.


Incal99

Şu anda beni en çok zorlayan amatörce kullandığım timer componenti, Bu komponenti 100ms de bir çağırmama rağmen içindeki kod biraz şiştiği zaman, öyle yoğunda bir kod olmamasına rağmen Edit komponentinin klavye reaksiyonunu yavaşlatıyor.

Thread programlaması ile ilgili kaynak tansiye edebilir ...

Merhaba,

DElphi üzerinde yazdığım programlarda parallel olarak yapılan fazla sayıda işlem var, Örneğin network üzerinden gelen bilgilerin ekranda güncellenmesi, kaydedilmesi, Aynı anda veri/reçete giriş ekranları, ve Timer komponentine bağlı bazı kodlar, Bütün bunları mümkün olduğunca küçük ve ...

Aslında durum şöyle,

150 adet tank var , bunların içine rasgele olarak insanlar birşeyler koyup çıkartılyorlar, tanka her malzeme girişinde bir SQL kaydı gerekiyor, ve aynı zamandada her çıkışında bir kayıt yazmak gerekiyor. 150 adet tank olduğu için 150 ye kadar bir tarama yapıp for döngüsü ile ...

Teşekkür ederim,
yanlız şöyle bir durum var, Bu fonksiyon kenar tetiklemesini değil bitin değişip değişmediğini gösteriyor, Yani kenar tetiklemesi oluştuktan sonra bir kereye mahsus bir event olmalı, zira sonrasında değişkenin değeri 1 olarak kalacağından bu fonsiyon yeni eventler üretmemeli, yada ...

Merhaba,


Bir değişken veya bit değeri 0 dan 1 a geçiş yaptığı zaman kenar tetiklemesini algılayıp bir event çalıştırabilen bir yöntem var mı delphi altında?

var position:bool;

Trigger_Rising_Edge(position)=TRUE THEN BEGIN END;

gibi.



Iyi çalışmalar.

aslında ben PLC programcısıyım ve programın çok büyük bir kısmı PLC de yazılıyor. Delphi ise gösterim ve kayıt için kullanılıyor. O yüzden Delphide proje çabuk bitmesi gereken durumlarda biraz sıkışıyorum.Ama bence zamanla metodlar oturdukça ve standart komponentleri daha iyi tanıdıkça en iyisi hiç ...

Arkadaşlar merhaba,

Aşapıdaki şekilde bir dizi değişkenim var;


type
Recipe_Struct=record
ProcessTime:SmallInt;
ProcessMaxTime:SmallInt;
ProcessDripTime:BYTE;
ProcessPriority:BYTE;
RectifierCurrent1:SmallInt;
RectifierCurrent2:SmallInt;
LiftingSpeed:BOOLEAN;
Temperature:BYTE ...

Mrmarman,

Çok teşekkürler,

Sayende Delphi vizyonum birhayli genişledi.

İyi çalışmalar.

Incal99