application.messagebox a değişken değeri yazdırma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Tropic
Üye
Mesajlar: 48
Kayıt: 12 Nis 2005 10:45

application.messagebox a değişken değeri yazdırma

Mesaj gönderen Tropic »

Örneğin
10 adet kaydı silmek istiyormusunuz gibi bi dialog penceresi çıkarmak istiyorum. Buradaki 10 sayısı x değişken içerisinde olsun. Bu x değişkenini appplication.messagebox da nasıl kullanıcam.
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Kod: Tümünü seç

IntToStr(On_Degerini_Tutan_Integer_Degisken) + ' adet kaydı silmek istiyor musunuz?' 

Kolay gelsin.
ylmz
Üye
Mesajlar: 110
Kayıt: 18 Mar 2005 02:32
Konum: Antalya

Mesaj gönderen ylmz »

Kod: Tümünü seç

implementation
const
  s = '%s Adet kaydı silmek istiyormusunuz?';

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i := 5;  //Silinecek kayıt sayısını geçir...
  ShowMessage(Format(s, [IntToStr(i)]))//burda showmessage olmicak
end;
En son ylmz tarafından 13 Nis 2005 11:13 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
ASE
Kıdemli Üye
Mesajlar: 518
Kayıt: 28 Ağu 2003 03:17
Konum: samsun
İletişim:

Mesaj gönderen ASE »

Kod: Tümünü seç

PROCEDURE TForm3.BitBtn2Click(Sender: TObject);
VAR
  s: STRING;
  a: STRING;
BEGIN
      s := dbedit2.Text;
    a := dbedit2.text;
    

      IF MESSAGEDLG(S + '   ' + A + #13 + #13 + 'SİLİNECEK EMİN MİSİNİZ...', MTCONFIRMATION, [MBYES, MBNO], 0) = IdYes THEN
        table1.delete;

  END;
END;
Ayak üstü delphi olmayan makinada yazdım hata olabilir ama buna benzer bi mantık yürütebilirsin. Değişkenlere querynin record count unu da atayabilirsin. Bu sadece bir örnek... [/code]
Allah'ım!...
Yol boyunca bırakma elimi...
Düşerim sonra...


ASE YAZILIM
ASE
Kıdemli Üye
Mesajlar: 518
Kayıt: 28 Ağu 2003 03:17
Konum: samsun
İletişim:

Mesaj gönderen ASE »

İşte bu.
Abi bu ne hız.
Ben yazana kadar 2 cevap daha gelmiş.
İşine yarayanı kullanır artık arkadaşım...
Allah'ım!...
Yol boyunca bırakma elimi...
Düşerim sonra...


ASE YAZILIM
Tropic
Üye
Mesajlar: 48
Kayıt: 12 Nis 2005 10:45

olmadı...

Mesaj gönderen Tropic »

Kod: Tümünü seç

if application.messagebox(IntToStr(Degisken) + ' adet kaydı silmek istiyor musunuz?','Sil',MbYesNo)=IdYes then
Begin
-------
end;
şeklinde musimsek arkadaşın yazdığı gibi yaptım ama tip hatası veriyor.
hata -->

Kod: Tümünü seç

Incompatible types:'String' and 'Pansichar'
degisken integer tanımlı...
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Kod: Tümünü seç

if application.messagebox(PChar(IntToStr(Degisken) + ' adet kaydı silmek istiyor musunuz?'),'Sil',MbYesNo)=IdYes then...
stringi PChar'a çevirmek için PChar parantezine alabilirsin.

Kolay gelsin.
akuyumcu63
Üye
Mesajlar: 386
Kayıt: 02 Tem 2007 09:43

Re: application.messagebox a değişken değeri yazdırma

Mesaj gönderen akuyumcu63 »

Mustafa abi çok Teşekkür ederim.
İsteyen, yapabildiğinden daha fazlasını yapar.
Cevapla