programda kullandığım değişkeni sonradan değiştirmek?

Mesaj gönderen **fduman** » 26 Nis 2006 01:26

EXE ile öyle oynanmaz. Allah taş eder..

Gold_Lady · Mesaj gönderen **Gold_Lady** » 26 Nis 2006 01:33

Veritabanına yada text dosyaya ceza miktarını kaydet program her açılışta oradan okusun ve değişkenin o okuduğu değer alsın.

AliErdem · Mesaj gönderen **AliErdem** » 26 Nis 2006 01:51

herkezin fikrine saygılar..

Gold_Lady bu değişkeni veritabanına nasıl kaydedeceğim bide programda çağırırken ne kullanacağım kısaca anlatabilirmisin

teşekürler

Gold_Lady · Mesaj gönderen **Gold_Lady** » 26 Nis 2006 02:10

Veritabanına normal şekilde kaydedeceksin işte.
Mesela bir paradox dosyası aç ceza adında bir kolon oluştur.

Kod: Tümünü seç

Table1['CEZA']:=strtoint(edit1.text);

ile cezayı kaydet.

Okumak içinde

Kod: Tümünü seç

var
a:integer
begin
a:=Table1['CEZA'];
....

gibi...

ofenX · Mesaj gönderen **ofenX** » 26 Nis 2006 02:26

Merhaba,
Text dosyaya saklamak isterseniz aşağıdakine yakın bir kod kullanabilirsiniz.
biraz daha ek kontrol gerekebilir ama iskelet olarak böyle bir şey işinize yarayacaktır.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
ceza:integer;
alinan:string;
begin
                alinan:='0';
                ceza:=0;
            assignfile(f,'c:\deneme.txt');

       if FileExists('c:\deneme.txt') then
       begin            // dosya varsa değerimizi alacağız.
             reset(f);
              read(f,ceza);
               ShowMessage('sayı :'+inttostr(ceza));


             closefile(f);


             end
             else    // dosya yok veya silinmişse yeniden oluşturacağız.
             begin
                    InputQuery('Ceza tanımlı değil Cezayı yazın','Ceza',alinan);

                         ceza:=strtoint(alinan);

                        rewrite(f);
                        write(f,ceza);
                        closefile(f);

                            ShowMessage('sayı :'+inttostr(ceza));

             end;

end;

AliErdem · Mesaj gönderen **AliErdem** » 26 Nis 2006 02:34

teşekkürler hepinize deniyorum....

Trial_Cooder · Mesaj gönderen **Trial_Cooder** » 26 Nis 2006 02:46

Madem Txt'de Saklıcan Niye Programını Yapıyon Boşuna, Değişiklikleri Not Defterindede Yaparsın Yada Excel'de Proje Yaparsın. Yani Txt Gereksiz, Exemod'un Nimetlerinden Yararlanamadınız

Mesaj gönderen **aLonE CoDeR** » 26 Nis 2006 02:47

Tuttum bu topici, merakla takip ediyorum

AliErdem · Mesaj gönderen **AliErdem** » 26 Nis 2006 02:48

tekrar saolun arkadaşlar yaptım veritabanı işimi gördü tşkler ayrıca gold_lady

AliErdem · Mesaj gönderen **AliErdem** » 26 Nis 2006 02:53

ben yaptığımı kısaca bi anlatayım lazım olanlar faydalansın

bir db de girişte kullandığım şifreli giriş için kullanıcı ve sifresi vardı bide yanına ceza diye yer açtım
ilk olarak tabloya 250 diye bir değer verdim kaydettim
değiştireceğim yere bir tane dbedit bir tane table birde datasource
dbedit i db deki cezaya bağladım table1.activate=true tabiki
butona tıkladığımda
table1.refresh;
işimi gördü tabi bunu şifre kontroluyle yapılıp yapılmamasınada karar verebiliriz

değişik fikirleri olanlar yazsınlar

iyi çalışmalar herkeze

Trial_Cooder · Mesaj gönderen **Trial_Cooder** » 26 Nis 2006 02:56

bLue aLonE yazdı:Tuttum bu topici, merakla takip ediyorum

Bu Topic Forumun Topic'i Elinde Çok Durmasın Admin Kızar

ulu coder · Mesaj gönderen **ulu coder** » 26 Nis 2006 06:38

coderlord yazdı:EXE ile öyle oynanmaz. Allah taş eder..

Allah cezanı vermesin

coderlord abi bunu MSN iletim yapmama izin verir misin?

Mesaj gönderen **sadettinpolat** » 26 Nis 2006 07:04

coderlord yazdı:EXE ile öyle oynanmaz. Allah taş eder..

vay crackerların haline

Mesaj gönderen **bobasturk** » 26 Nis 2006 10:00

coderlord demişki:

EXE ile öyle oynanmaz. Allah taş eder..

kısa ve öz atatsözü olacak nerdeyse

AliErdem · Mesaj gönderen **AliErdem** » 26 Nis 2006 10:45

konunun gidişatı süper topic deki sorun çözüldü sanki üzerine keyifiçin kahve içiliyo

süper valla