замена текста

[designer999]

здраствуйте

webbrowser1.Navigate('http://google.ru')

Как вставить вместо ссылки текст из первой строки Memo (там тоже ссылка) ?
Либо как вставить вместо ссылки текст из файла с первой строки ?
второй вопрос меня больше интересует, если кто знает подскажите

[mutabor]

http://www.programmersforum.ru/showp...6&postcount=12

[designer999]

сделал вот так , но так оно не работает

procedure TForm1.Button2Click(Sender: TObject);
var Load:TStringList;
begin
Load:=TStringList.Create;
Load.LoadFromFile('E:\Проекты\Forum_themes\forum.cfg');
webbrowser1.Navigate(''+(Memo2.Lines.Add(Load.Strings[1])));
Load.Free
end;

потом сделал так и заработало

procedure TForm1.Button2Click(Sender: TObject);
var Load:TStringList;
begin
Load:=TStringList.Create;
Load.LoadFromFile('E:\Проекты\Forum_themes\forum.cfg');
webbrowser1.Navigate(''+intTostr(Memo2.Lines.Add(Load.Strings[1])));
Load.Free
end;

но есть одно "но" , оно в браузере вместо ссылки, которая прописана в файле, вставляет цифры, что я не правильно сделал ?

[NikLik]

procedure TForm1.Button2Click(Sender: TObject);
var
  Load:TStringList;
begin
  Load:=TStringList.Create;
  Load.LoadFromFile('E:\Проекты\Forum_themes\forum.cfg');
  webbrowser1.Navigate(Load[0]);//можно webbrowser1.Navigate(Load.Strings[0]);, разницы нет
  //если необходимо добавить ссылку в memo:
  //memo2.lines.add(load.strings[0]);
  Load.Free
end;

[designer999]

спасибо всем

[mutabor]

1. Если в файле одна строка, то ее индекс в списке будет 0.

2. Зачем вы добавляете эту строку в Мемо? Так надо? Тогда StringList не нужен, он тут лишний, грузите сразу в Memo.Lines.

3. Что это ''+ такое? Это там не нужно при любом раскладе.

4. Вы вместо того чтобы передавать в метод Navigate строку, передаете ее номер в списке Memo.Lines.

5. Лучше писать относительные пути к файлам, иначе на другом компьютере ваша программа работать не будет. Ниже я написал путь с учетом что папка Forum_themes находится в папке с программой.

Правильный код будет такой:

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'Forum_themes\forum.cfg');
WebBrowser1.Navigate(Memo2.Lines[0]);
end;