webbrowser için combobox.items kayıt olayı

[bobasturk]

Merhabalar,

forumun offline hali olan dto_2 sürümünden arama sonucu yaptığım çalışmada uygulamak üzere bi form üzerinde webbrowser comp.ile internet veya intranete bağlanabiliyorum.

Kod: Tümünü seç

  webbrowser1.navigate(combobox1.text);

şeklinde.

ie ve diğer browserler gibi girilen adreslerin kaydedilmesi içinde combobox a girilen adresleri

Kod: Tümünü seç

  webbrowser1.navigate(combobox1.text);
  combobox1.items.add(combobox1.text);
  combobox1.items.savetofile('d:\......\IntCombo.txt');

şeklinde kaydediyorum.

  formun oncreate yordamından
  combobox1.items.loadfromfile('d:\.....\IntCombo.txt');

şeklinde combobox a kaydedip açılışta çağırıyorum.

buraya kadar işler iyi kaydediyor ve çağırıyor sayfayı açıyor.

fakat kişi combo dan seçim yaptığında aynı yolu yine yazıyor. yani her seçimde veya adres yazımında kaydediyor.

yapmak istediğim items de (text dosya içinde yani) aynı kayıt varsa yazmasın onu kullansın.
nasıl bir yol izlemeliyim.

teşekkür ve saygılarımla.

[AliRiza]

Bence girilen adresleri dosyaya değilde veritabanına yazdırabilirsin..
Veritabanına yazdırırken de aynı isimde kayıt var mı yok mu kontrol ettirebilirsin..
Dosyaya kayıtda da aynı işlemleri yapabilirsin.
Bunun için
for ile dosya sonuna kadar eof'u kullanarak saydır.
Daha sonra kişinin girdiği ile senin girdiğin aynı mı değil mi if'le karşılaştır.
Aynı ise kaydetme,değilse kaydet..

[bobasturk]

önerin için teşekkür ederim ustam. bu şekil uygulamaya çalışacağım. fakat aklıma takıldı döngü ile kontrol yapmam gerektiği aklıma geldi idi bu işlem text dosya içinde yapılamazmı yani text dosya içinde varsa kaydetme yoksa kaydet for döngüsü buradada uygulanamazmı?

teşekkürler kolay gelsin

[Trial_Cooder]

Bunu Önceden Yapmıştım

Kod: Tümünü seç

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
  p: string;
  d: integer;
  baf: String;
begin
  p := ComboBox1.Text;
  for d := 0 to ComboBox1.Items.Count - 1 do
  begin
    if pos(p, ComboBox1.Items.Strings[d]) > 0 then
    begin
      baf := copy(ComboBox1.Items.Strings[d], pos(p, ComboBox1.Items.Strings[d]), length(p));
      if trim(baf) <> '' then
        break;
    end;
  end;
 if ComboBox1.Text <> baf then
 ComboBox1.Items.Add(ComboBox1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 if FileExists('Digital RFI Scanner.ini') then
 ComboBox1.Items.LoadFromFile('Digital RFI Scanner.ini');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if ComboBox1.Items.Strings[0] <> '' then
 ComboBox1.Items.SaveToFile('Digital RFI Scanner.ini');
end;

Bu Arada ComboBox'ın Ayarlarınıda Veriyim

Kod: Tümünü seç

object ComboBox1: TComboBox
  Left = 2
  Top = 26
  Width = 498
  Height = 22
  Style = csSimple
  Color = clBlack
  Font.Charset = TURKISH_CHARSET
  Font.Color = clLime
  Font.Height = -11
  Font.Name = 'Comic Sans MS'
  Font.Style = [fsBold]
  ItemHeight = 16
  ParentFont = False
  TabOrder = 11
end

Bunların Hepsini Uyguladınmı Tamam

[aslangeri]

s.a.

Kod: Tümünü seç

  ComboBox1.Items.IndexOf()

bi incele istersen.
kolay gelsin