application.messagebox a değişken değeri yazdırma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
application.messagebox a değişken değeri yazdırma
Ö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.
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.
Kod: Tümünü seç
IntToStr(On_Degerini_Tutan_Integer_Degisken) + ' adet kaydı silmek istiyor musunuz?'
Kolay gelsin.
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.
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;
olmadı...
Kod: Tümünü seç
if application.messagebox(IntToStr(Degisken) + ' adet kaydı silmek istiyor musunuz?','Sil',MbYesNo)=IdYes then
Begin
-------
end;
hata -->
Kod: Tümünü seç
Incompatible types:'String' and 'Pansichar'
Kod: Tümünü seç
if application.messagebox(PChar(IntToStr(Degisken) + ' adet kaydı silmek istiyor musunuz?'),'Sil',MbYesNo)=IdYes then...
Kolay gelsin.
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
Re: application.messagebox a değişken değeri yazdırma
Mustafa abi çok Teşekkür ederim.
İsteyen, yapabildiğinden daha fazlasını yapar.