In a introduction stage I was need to understand, what base I Use. To clean understand this, I use another form of this function, and plase it's result to main form (330).
On modification of your variant:
GetServerName():Text[30]
ltxtTemp := CONTEXTURL;
i := STRPOS(ltxtTemp,'servername=');
IF i >0 THEN BEGIN
ltxtTemp := COPYSTR(ltxtTemp,i +11,999);
i := STRPOS(ltxtTemp,'&');
EXIT(COPYSTR(ltxtTemp,1,i -1));END
ELSE BEGIN
i := STRPOS(ltxtTemp,'database=');
IF i >0 THEN BEGIN
ltxtTemp := COPYSTR(ltxtTemp,i +9,999);
i := STRPOS(ltxtTemp,'&');
EXIT(COPYSTR(ltxtTemp,1,i -1));END ELSE EXIT('');END;
Comments
On modification of your variant:
BTW: if slaha is still around ...
Just do a GET on the table.
TVision Technology Ltd
No PM,please use the forum. || May the <SOLVED>-attribute be in your title!