Code:
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Function IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= IzvuciPodstring('http://mojsajt.com/view.php?track=59H-7WZ-1Y5L&Refresh=60','track=','&');
end;
function TForm1.IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
Var Pocetak,Kraj:Integer;
Podstring:String;
begin
Podstring:= copy(URL,1,7);
if Podstring = 'http://' then
begin
Result:='Greska: Uneti URL nema odgovarajucu strukturu';
Pocetak:= pos(PocZnak,URL,1);
if Pocetak = 0 then Exit;
Kraj:= pos(ZavrsZnak,URL,Pocetak+1);
if Kraj = 0 then Exit;
Result:=copy(URL,Pocetak+Length(PocZnak),Kraj-Pocetak-Length(PocZnak));
end else Result:='Greska: Uneti URL nije Adresa.';
end;