Button

[ozcank]

Tek Button1 ile hem kayıt hemde ekleme yi nasıl yapabilirim?

Table1.Append;

...
...
...


Table1.Post

[mrmarman]

Button'a bir tane Const Boolean değişken tanımlarsın.

{$j+} direktifinin sihrini göreceksin...

- Mesela bir örnek... Butona her basışta bir diğer değerle karşılaşırsın.

- Bunu True ise Append, False ise Post şeklinde kullanabilirsin...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Const
  {$j+} Kontrol : Boolean = False; {$j-}
begin
  Kontrol := Not Kontrol;
  If Kontrol then Caption := 'True'
             else Caption := 'False';
end;

[vesper]

dataset state baksan eğer dsedit ise düğmeye basılınca post etsen değil ise yeni kayıt eklesen

[vkamadan]

{$j+} direktifinin sihrini göreceksin...

Merhaba ,
bu direktif tam olarak ne iş yapar ?
Birde direktiflerin kullanılma mantığı hakkında mesela ;

Kod: Tümünü seç

Const
  {$j+} Kontrol : Boolean = False; {$j-} 

burada tam olarak neler oluyor?

Teşekkürler.

[fduman]

The $J directive controls whether typed constants can be modified or not. In the {$J+} state, typed constants can be modified, and are in essence initialized variables. In the {
$J-} state, typed constants are truly constant, and any attempt to modify a typed constant causes the compiler to report an error.
Writeable consts refers to the use of a typed const as a variable modifiable at runtime. For example:

const

foo: Integer = 12;
begin
foo := 14;

end.

[mrmarman]

@vesper'in yaklaşımı daha doğru bir yaklaşım.

- Soruya -bir butonla iki alternatif işlem- odaklanınca ilk aklıma gelen cevabı verdim.

@vkamadan

- Global değişken kullanmadan localde kestirmeden işi yürütmek adına bir uygulamadır.

- {$+J} {$-J} arasına alınan Const değişken/değişkenler, global bir değişken gibi işlem görürler ama sadece Local'de tanınırlar... Haa tabii bir de içeridiği veri değiştirilebilir, aynı procedure'e her gelindiğinde en son aldığı değer hatırlanır.

- Daha basti nasıl ifade edebilirim bilemedim...