все ссылки в memo

← →
Talant (2005-09-02 12:58) [0]

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

← →
Alexander Panov © (2005-09-02 13:00) [1]

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

← →
Плохиш © (2005-09-02 13:00) [2]

> Talant (02.09.05 12:58)

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

← →
Talant (2005-09-02 13:01) [3]

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

← →
Big Joe © (2005-09-02 13:05) [4]

Что то типа такого наверное...
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:06) [5]

:( ???

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;

все ссылки в memo Найти похожие ветки