Hi,
ich hab hier eine kleine Function geschrieben um eine
URL herauszufinden. Kleines Beispiel:
Man gibt als
URL:
http://www.delphipraxis.net/internal...bc21bc1cdbb6c7
an und raus kommt:
http://www.delphipraxis.net/
So hier ist die Function:
Delphi-Quellcode:
function GetURL(
URL:
String):
String;
const
URLType:
Array[0..13]
of String = ('
.de', '
.com', '
.org', '
.net', '
.at',
'
.info', '
.biz', '
.us', '
.co.uk', '
.dk',
'
.it', '
.ws', '
.be', '
.name');
var
I: Integer;
begin
for I := Low(URLType)
to High(URLType)
do
if Pos(URLType[I],
URL) <> 0
then
Result := Copy(
URL, Pos('
http://',
URL), Pos(URLType[I],
URL) +
Length(URLType[I]));
end;
Aufrufbar wäre das ganze:
Delphi-Quellcode:
Edit2.Text := GetURL(Edit1.Text);
//oder
Edit1.Text := GetURL(Edit1.Text);
Wem noch ein paar URLEndungen fehlen, der schreibt sie anfach nach .name hin und erhöht die Zahl bei
Array[0..13] dementsprechend.
*MFG*
Spider