| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

все ссылки в memo [D7, WinXP]

Talant ©   (2005-09-02 12:58:00) 

Помогите, как это сделать ?

---

Big Joe   (2005-09-02 13:13:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
   i, p: Integer;
  s: string;
   z:Double;
begin
  ListBox1.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if Pos('http://', Memo1.Lines.Strings[i]) > 0 then
    begin
      s := '';
     
      for p := Pos('http://', Memo1.Lines.Strings[i]) to
        Length(Memo1.Lines.Strings[i]) do
        if Memo1.Lines.Strings[i][p] <> ' ' then
          s := s + Memo1.Lines.Strings[i][p]
      else
        break;
       

      while Pos(s[Length(s)], '..;!")]}?''>') > 0 do
        Delete(s, Length(s), 1);
     ListBox1.Items.Add(s);
    end;
  end;

 if ListBox1.Items.Count > 0 then
    label1.Caption := IntToStr(ListBox1.Items.Count) +
      ' Adresse(n) gefunden.'
  else
    label1.Caption := хе хе хе хе хе';
end;

---

Talant   (2005-09-02 13:06:00) [2]

:(  ???

---

Big Joe   (2005-09-02 13:05:00) [3]

Что то типа такого наверное...
procedure TForm1.Button1Click(Sender: TObject);
var
   i, p: Integer;
  s: string;
begin
 for i := 0 to Memo1.Lines.Count - 1 do
  begin
    if Pos('http://', Memo1.Lines.Strings[i]) > 0 then
    begin

---

Talant   (2005-09-02 13:01:00) [4]

Извините, я с вопросом нимного поспешил. Мне нужны ссылки
из моего интернет експлорера в мемо.

---

Alexander Panov   (2005-09-02 13:00:00) [5]

Так же, как и не все ссылки в memo.

---

Плохиш   (2005-09-02 13:00:00) [6]

> Talant   (02.09.05 12:58)

Действительно "талант".

---

Наверх