Fórum conteudo de 3 dbedit resultar em um link e abrir a pagina #349492

Amigo: Isso é chamado de concatenação.

Se eu tiver 3 edits e quiser concatenas o conteúdo de cada um, basta criar uma variavel onde o resultado dela será edit1.text+edit2.text+edit3.text. É dessa forma mesmo:
Ex:
procedure ............
var
link: string
begin
link:= edit1.text+edit2.text+edit3.text;
end;

Ai vc vai precisar de um componente ou criar uma função para acessar um link. Vou te dar um exemplo:

private
{ Private declarations }
public
procedure JumpTo(const aAdress: String);
Procedure MensagemHint(Sender: TObject);
{ Public declarations }

implementation

{$R *.dfm}

procedure TFrm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress; (aqui vc faz chegar o resultado da variável)
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

Chame o evento assim:

JumpTo(valor da variavel);

Coloque no seu Form o Componente WebBrowser que está na palheta [i:d50a74bc33]Internet[/i:d50a74bc33] de componentes, dimensione o tamanho e no evento de um botão coloque como abaixo.


[b:d50a74bc33]procedure TForm1.Button1Click(Sender: TObject);
begin
TheURL := DBEdit1.Text + DBEdit2.Text + DBEdit3.Text;
WebBrowser1.Navigate(TheUrl);
end;[/b:d50a74bc33]

Você disse o conteúdo de 3 DBEdits, isso significa que são dados tipo string de uma tabela e que nem sempre serão do mesmo comprimento.

Deve ter cuidado ao ´somar´ essa strings senão pode não funcionar.

Se você tiver por exemplo:

DBEdit1.Text -> [b:d50a74bc33]http://www.terra.com.br[/b:d50a74bc33]
DBEdit2.Text -> [b:d50a74bc33]esoterico[/b:d50a74bc33]
DBEdit3.Text -> [b:d50a74bc33]index_horoscopo.htm[/b:d50a74bc33]

Você vai ter que tirar os espaços em branco de cada DBEdit e junta-las da seguinte forma:

TheUrl := trim(DBEdit1.Text) + ´/´ + trim(DBEdit2.Text) + ´/´ + trim(DBEdit3.Text)

Pra que fique:

[b:d50a74bc33]http://www.terra.com.br/esoterico/index_horoscopo.htm[/b:d50a74bc33]

Comigo deu certo.

Tenta depois posta o resultado aqui.

rapaz simplesmente era exatamente o que eu estava querendo, muito obrigado cara.

fico te devendo essa.

valew. :lol: