ok this codes work perfect but i want to know if saving links to a txt file would cause a problem when there r lots of links in it !!!
| Код |
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('urls.txt') then
combobox1.Items.LoadFromFile('urls.txt');
end;
|
| Код |
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
URL:string;
Num:integer;
begin
if key = #13 then
begin
URL:=combobox1.Text;
if URL<>'' then
begin
DesignTimeWB.Go(URL);
Num:=0;
while Num<combobox1.Items.Count do
begin
if combobox1.Text = combobox1.Items[Num] then
begin
abort;
end else
begin
inc(Num);
end;
end;
combobox1.Items.Add(URL);
combobox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'urls.txt');
end;
end;
end;
|
how can i do it with sql db file ? |
