All pastes #982383 Raw Edit

Etwas

public text v1 · immutable
·published 2008-04-12 14:44 UTC
rendered paste body
    L := TStringList.Create;
    L.Text := WebBrowser1.OleObject.Document.documentElement.innerText;
    For i := 0 to L.Count -1 do begin
       S := UpperCase( L.Strings[ i ] );
       If Copy( S, 1, Length( 'inetnum:' ) ) = UpperCase( 'inetnum:' ) Then
         Memo1.Lines.Add(S);