kasa işlemleri yapma


   kabaca if ülke alındıysa then banka_parasi:=banka_parasi+ülke_parasi and oyuncu_parasi:=oyuncu_parasi-ülke_parasi;
end; 
gibi birifade kullanmak istiyorum bunu tek tek her ülkenin procedüründe mi tanımlamalıyım yoksa aşağıya attığım SQL procedüründe bu işlemi yapabilir miyim ekstra olarak ben bi şeyler deniyorum ama en aşağıda 2- olarak attığım tanımlama kodunda hata alıyorum
1-procedure AddDataToListview;
Var
  foodListQuery : TClSqlQuery;
begin
  foodListQuery := TClSqlQuery.Create(nil);
  if (testRadio.isChecked) then 
  begin
  try
  ShowMessage(Clomosy.AppUserDisplayName);
     foodListQuery.Connection := Clomosy.DBSQLServerConnection;
     isim := LastSender.caption;
     
    // ShowMessage(isim);
    
     foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+'
     where isim = '+quotedstr(isim);
     ShowMessage(foodListQuery.Sql.Text);   
     foodListQuery.ExecSql;
     ShowMessage('Kayıt işlemi başarılı');
     finally
     foodListQuery.Close;
     foodListQuery.Free;
     end;
  end;
  else begin
  ShowMessage('Doğru giriniz'); 
  end;

end;


2-pb1, //player1 bakiye
bb, //banka bakiye
cinp,kanadap,italyap,ingilterep,turkiyep,korep,almanyap,ukraynap,rusyap,misirp,abdp,norvecp,fransap:Integer; // ülke paraları
begin
pb1:=5000;
bb:=10000;
cinp:=500; italyap:=700; ingilterep:=1000; turkiyep:=4000; korep:=600;  almanyap:=780; ukraynap:=300; rusyap:=680;
misirp:=250; abdp:=1500; norvecp:=700; fransap:=800;
end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Zeren Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Misafir Kayıt Tarihi: 17 Temmuz 2023 Konum: Konya Durum: Aktif Değil Puanlar: 15	Mesaj Seçenekleri Yanıt Yaz Alıntı Zeren Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: kasa işlemleri yapma Gönderim Zamanı: 16 Ağustos 2023 Saat 15:37
	kabaca if ülke alındıysa then banka_parasi:=banka_parasi+ülke_parasi and oyuncu_parasi:=oyuncu_parasi-ülke_parasi; end; gibi birifade kullanmak istiyorum bunu tek tek her ülkenin procedüründe mi tanımlamalıyım yoksa aşağıya attığım SQL procedüründe bu işlemi yapabilir miyim ekstra olarak ben bi şeyler deniyorum ama en aşağıda 2- olarak attığım tanımlama kodunda hata alıyorum 1-procedure AddDataToListview; Var foodListQuery : TClSqlQuery; begin foodListQuery := TClSqlQuery.Create(nil); if (testRadio.isChecked) then begin try ShowMessage(Clomosy.AppUserDisplayName); foodListQuery.Connection := Clomosy.DBSQLServerConnection; isim := LastSender.caption; // ShowMessage(isim); foodListQuery.SQL.Text := 'update dbo.arsa set alan_kisi = '+quotedstr(Clomosy.AppUserDisplayName)+' where isim = '+quotedstr(isim); ShowMessage(foodListQuery.Sql.Text); foodListQuery.ExecSql; ShowMessage('Kayıt işlemi başarılı'); finally foodListQuery.Close; foodListQuery.Free; end; end; else begin ShowMessage('Doğru giriniz'); end; end; 2-pb1, //player1 bakiye bb, //banka bakiye cinp,kanadap,italyap,ingilterep,turkiyep,korep,almanyap,ukraynap,rusyap,misirp,abdp,norvecp,fransap:Integer; // ülke paraları begin pb1:=5000; bb:=10000; cinp:=500; italyap:=700; ingilterep:=1000; turkiyep:=4000; korep:=600; almanyap:=780; ukraynap:=300; rusyap:=680; misirp:=250; abdp:=1500; norvecp:=700; fransap:=800; end;

Alforce Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 26 Temmuz 2023 Durum: Aktif Değil Puanlar: 150	Mesaj Seçenekleri Yanıt Yaz Alıntı Alforce Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 16 Ağustos 2023 Saat 17:18
	Değişkenlere, componentlerde olduğu gibi ismi ile ulaşamazsınız. Eğer işiniz dinamik ise hepsini bir listede tutup sırayla işlem yapabilirsiniz, Ama işleminiz statik ve az ise hepsini el ile yazmak daha kolaydır. Eğer dinamik bir sistem oluşturmak istiyorsanız daha detaylı anlatırsanız sevinirim.