Tutorial Colocando Favoritos em seu Navegador!

1- Adicione os componentes necessários.

1 Adicione um listbox.
2 Adicione a opção lá favoritos.
3 Adicione um botão.

2- Renomeando.

mude o nome do edit para Edit_onde_ta_o_site.

3- Adicionando os códigos.

Adicione a função

Código:

function ExisteDado (Dado: String) : boolean;

var

I : Integer;

SimNao: boolean;

begin

simnao:=false;

for i:= 0 to form1.listbox1.items.Count-1 do

if form1.listbox1.items.strings[i] = dado then

begin

simnao:= true;

break;

end;

result := simnao;

end;

dê dois cliques no botão e adicione o código:

Código:

if existedado(Edit_onde_ta_o_site.text) then begin

MessageBeep(MB_ICONERROR);

showmessage('O Site '+Edit_onde_ta_o_site.text+' Já está no favoritos!');

end else

ListBox1.Items.Add(Edit_onde_ta_o_site.text);

end;

Agora, como faço pro cara adicionar o favoritos, fechar o navegador, abrir e ta lá ainda?

dê dois cliques no botão, adione depois de ListBox1.Items.Add(Edit_onde_ta_o_site.text); o seguinte:

Código:

ListBox1.Items.SavetoFile('Favoritos.ini');

agora no oncreat do form adicione:

Código:

ListBox1.Items.LoadFromFile('Favoritos.ini');

agora se quizer apeifeiçoar, adicionar em menu, etc.. é com vocês

Fiz e funcionou,brigadão.

ótimo funciono perfeitamente.

Até Mais.