with - do deyimlerini birleştirmek

[filiz]

Kod: Tümünü seç

with PersonelGuncelle do
  begin
    Edit2.Text:=Qpguncelleme.Fields[0].AsString;
    Edit3.Text:=Qpguncelleme.Fields[1].AsString;
    Edit21.Text:=Qpguncelleme.Fields[2].AsString;
    Edit18.Text:=Qpguncelleme.Fields[3].AsString;
    Memo2.Text:=Qpguncelleme.Fields[4].AsString;
    Edit19.Text:=Qpguncelleme.Fields[5].AsString;
    Edit13.Text:=Qpguncelleme.Fields[8].AsString;
end;

with  PersonelSilme do
begin
    Edit2.Text:=Qpguncelleme.Fields[0].AsString;
    Edit3.Text:=Qpguncelleme.Fields[1].AsString;
    Edit21.Text:=Qpguncelleme.Fields[2].AsString;
    Edit18.Text:=Qpguncelleme.Fields[3].AsString;
    Memo2.Text:=Qpguncelleme.Fields[4].AsString;
    Edit19.Text:=Qpguncelleme.Fields[5].AsString;
    Edit13.Text:=Qpguncelleme.Fields[8].AsString;
end;

şeklinde bi kod var.
iki formda aynı bilgileri gonderiyor.(Bu gonderdigim formlar uzerindeki editler ve memo aynı)..ben bu kodu kısaltmak istiyorum.iki with-do deyimini tek with-do ya indirmek istiyorum

Kod: Tümünü seç

with hangiform do
begin
  Edit2.Text:=Qpguncelleme.Fields[0].AsString;
    Edit3.Text:=Qpguncelleme.Fields[1].AsString;
    Edit21.Text:=Qpguncelleme.Fields[2].AsString;
    Edit18.Text:=Qpguncelleme.Fields[3].AsString;
    Memo2.Text:=Qpguncelleme.Fields[4].AsString;
    Edit19.Text:=Qpguncelleme.Fields[5].AsString;
    Edit13.Text:=Qpguncelleme.Fields[8].AsString;
end;

gibi bişey yapmak istiyorum.ugraştım ama olmadı..nasıl yaparım

[hbahadir]

Kod: Tümünü seç

with Form1, Form2 do
 begin
   ...
 end;

[filiz]

tşk ederim ancak benim istedigim mesala
if hangiform=1 ise PersonelGuncelle fomuna bilgileri gondersin
if hangiform=2 ise PersonelSil formuna bilgileri gondersin

[sadettinpolat]

Kod: Tümünü seç

Procedure Guncelle(frmGuncelle:TFrom);
Begin

with frmGuncelle do 
  begin 
    Edit2.Text:=Qpguncelleme.Fields[0].AsString; 
    Edit3.Text:=Qpguncelleme.Fields[1].AsString; 
    Edit21.Text:=Qpguncelleme.Fields[2].AsString; 
    Edit18.Text:=Qpguncelleme.Fields[3].AsString; 
    Memo2.Text:=Qpguncelleme.Fields[4].AsString; 
    Edit19.Text:=Qpguncelleme.Fields[5].AsString; 
    Edit13.Text:=Qpguncelleme.Fields[8].AsString; 
end;

End;

Kod: Tümünü seç

Guncelle(PersonelGuncelle);
Guncelle(PersonelSilme);

[hbahadir]

yada

Kod: Tümünü seç

tmpForm : TForm;

if SilinsinMi then tmpForm := SilForm else tmpForm := EkleForm;

 with tmpForm do
  begin
   ...
  end;