Menu  Langue: en
Recherche




Articles & Documents

Fermer Tutoriaux

Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
22 Abonnés
CPDB.Net

Nouvelles des Amis
Visites

   visiteurs

   visiteurs en ligne

Webmaster - Infos
Pagerank
forum.gifForum - ppCompiler - Sujet n°39

Forum - Forum
ppCompiler - ppCompiler


actif  Sujet n° 39  StrStr Function

le 14/09/2011 @ 11:09
par DearJohn

Anonyme



In the "stringscommented.pas" collection I found this nice function:

function StrPosRelative(const Str, Token: String):UInt8;
var
 lvar1, lvar2: tPIS;
begin
 lvar1.recPtr:=StrStr(Str, Token);
 lvar2.recPtr:=@Str;
 StrPosRelative:=lvar1.recInt-lvar2.recInt;
end;

Unfortunately I couldn't find the "StrStr" function in any library.

Do you have any hint for me to use this function?

Regards, Reinhard.

Ecrire à DearJohn   Poster une réponse  Haut
Réponse n° 1
--------
le 15/09/2011 @ 22:03
par Pierre

Anonyme

visiteur
Hi !

I found these references into my old PP and naPP API tables :

PP 68k
function StrStr(const str,token:String):StringPtr; inline(SYSTRAP,$A0CD); // PP with   SYSTRAP = $4E4F;

naPP (native ARM)
function StrStr    (const str, token:string):stringptr;inline($E519C008,$E1A0E00F,$E59CF7B8);//naPP full arm

If your still in trouble with these functions, I thing you can find an equivalent function into the free Pascal sources.

Have fun

Pierre, south of France, 22h05 and 27°C... glass of wine.
Ecrire à Pierre   Poster une réponse  Haut
Réponse n° 2
--------
le 16/09/2011 @ 12:35
par DearJohn

Anonyme

visiteur

Perfect, Thanks! 10 times faster than my own created procedure for that.

Best Regards. Reinhard.

Ecrire à DearJohn   Poster une réponse  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Cloturer Cloturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 




^ Haut ^