Delphi Can
"Combobox" Veri Ekleme Silme - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Eğitim (https://www.delphican.com/forumdisplay.php?fid=19)
+---- Forum: Ödev (https://www.delphican.com/forumdisplay.php?fid=1133)
+---- Konu Başlığı: "Combobox" Veri Ekleme Silme (/showthread.php?tid=5600)



"Combobox" Veri Ekleme Silme - Ahmet+ - 28-12-2020

Merhabalar,
Delphi 7'de çalışma yapmaktayım. Combobox'a 

Combobox2.Items.Add(Edit1.Text);

şeklide veri ekliyorum ve 

if Checkbox1.Checked = True then
     Begin
    Durum:=True;
    For cb:=0 to Combobox2.Items.Count-1 do
         Begin
         If Combobox2.Items.Strings[cb]=Edit5.Text Then
               Begin
               Durum:=False;
               Combobox2.Items.Delete(cb);
               End;
         End;
    End;

şeklinde veri siliyorum. Fakat programı kapatıp, tekrar açtığımda eklediğim verilerin silinmiş olduğunu görüyorum. Verilerin kaybolmaması için ne yapabilirim. 
Saygılarımla...


"Combobox" Veri Ekleme Silme - mrmarman - 28-12-2020

En basit haliyle çözüm programı kapattığınız yerde ComboBox içeriğini proje klasörünüze text olarak kaydedip bir sonraki programın açılışında yeniden aynı text dosyadan geri load edilmesidir.

Örneğin :

Formunuzun OnClose olayında yani çıkarken uğrayacağı sondan bir önceki kapıdır... 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Dosya : String;
begin
  Dosya := ExtractFilePath(ParamStr(0)) + 'yedek.txt';
  ComboBox1.Items.SaveToFile( Dosya );
end;


Formunuzun OnCreate olayında yani girerken uğrayacağı kapı...

procedure TForm1.FormCreate(Sender: TObject);
var
  Dosya : String;
begin
  Dosya := ExtractFilePath(ParamStr(0)) + 'yedek.txt';
  if FileExists( Dosya ) then ComboBox1.Items.LoadFromFile( Dosya );
end;


Buna ek olarak kapanırken hangi itemde ise açılırken de aynı iteme odaklanmak için bir çalışma yapılabilir.


Cvp: "Combobox" Veri Ekleme Silme - woywod - 28-12-2020

(28-12-2020, Saat: 19:47)mrmarman Adlı Kullanıcıdan Alıntı: En basit haliyle çözüm programı kapattığınız yerde ComboBox içeriğini proje klasörünüze text olarak kaydedip bir sonraki programın açılışında yeniden aynı text dosyadan geri load edilmesidir.

Örneğin :

Formunuzun OnClose olayında yani çıkarken uğrayacağı sondan bir önceki kapıdır... 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Dosya : String;
begin
  Dosya := ExtractFilePath(ParamStr(0)) + 'yedek.txt';
  ComboBox1.Items.SaveToFile( Dosya );
end;


Formunuzun OnCreate olayında yani girerken uğrayacağı kapı...

procedure TForm1.FormCreate(Sender: TObject);
var
  Dosya : String;
begin
  Dosya := ExtractFilePath(ParamStr(0)) + 'yedek.txt';
  if FileExists( Dosya ) then ComboBox1.Items.LoadFromFile( Dosya );
end;


Buna ek olarak kapanırken hangi itemde ise açılırken de aynı iteme odaklanmak için bir çalışma yapılabilir.
Elinize saglık.