Trouver les liens dans un memo

procedure TForm1.Button1Click(Sender: TObject);
var i, p: integer;
s: string;
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);

file://Gefundene Adresse in die Liste aufnehmen...
ListBox1.Items.Add(s);
end;
end;

if ListBox1.Items.Count > 0 then
Label1.Caption := IntToStr(ListBox1.Items.Count) +
' adresses trouvées.'
else
Label1.Caption := Aucune adresse trouvée.';
end;






Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour30/11/2001
VisualisationVu 1019 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Internet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur