Form2 deki String değeri Form1 e taşıma

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
madrobbie20
Üye
Mesajlar: 8
Kayıt: 17 May 2016 04:33

Form2 deki String değeri Form1 e taşıma

Mesaj gönderen madrobbie20 »

İyi akşamlar
Form2'de yer alan 3 adet string değişkeni form1 deki string değere taşıyıp form1 de olan veritabanına kayıt etmeye çalışıyorum ama başaramadım.Yardımcı olursanız sevinirim
gaus
Üye
Mesajlar: 227
Kayıt: 14 May 2014 07:36
İletişim:

Re: Form2 deki String değeri Form1 e taşıma

Mesaj gönderen gaus »

Merhabalar Kodlarınızı paylaşırsanız size yardımcı olmaya çalışalım.
Nasıl taşıyorsunuz ?
Kaydetme işlemini nasıl yapıyorsunuz ?
Kullanıcı avatarı
fesiharslan
Üye
Mesajlar: 591
Kayıt: 20 Eki 2006 11:37
Konum: Erzurum
İletişim:

Re: Form2 deki String değeri Form1 e taşıma

Mesaj gönderen fesiharslan »

Merhaba;
1- Form2'de yer alan değişkenleri, form2'nin public bölümünde tanımlayın.

Kod: Tümünü seç

  public
    Ad: String;
    SoyAd: String;
    Yas: Word;
2- Form2'de herhangi bir kod satırında değişken değerlerini set edin.

Kod: Tümünü seç

Ad := 'Ahmet';
SoyAd := 'Ahmet';
Yas := 25;
3- Form1'in kod penceresinde Implementation'ın veya Interface altındaki Uses bölümüne Unit2 (Form2)'yi referans olarak gösterin.

Kod: Tümünü seç

implementation
{$R *.fmx}

uses Unit2;
4- Daha sonra Form2'deki değişkenlere ulaşmak için Form1'de herhangi bir kod satırında Form2+nokta (.)+DeğişkenAdı yazarak Form2'de yer alan değişken değerine ulaşabilirsiniz.

5- Form2'de set ettiğiniz değişken değerlerini, Form'de yer alan veri tabanına (bu tabiri kullandığınız için ben de bu tabiri kullanıyorum. Olması gereken: Form'deki Veri tabanı nesnesi yardımıyla) yazmak için ise aşağıdaki gibi bir kod yapısı kullanabilirsiniz.

Kod: Tümünü seç

  FDQuery1.Append;
  FDQuery1.FieldByName('ADI').AsString := Form2.Ad;
  FDQuery1.FieldByName('SOYADI').AsString := Form2.SoyAd;
  FDQuery1.FieldByName('YASI').AsInteger := Form2.Yas;
  FDQuery1.Post;
İyi çalışmalar...
Cevapla