Re: Fastcode MM B&V 0.14
From: Fredrik Lysholm (fredrik.lysholm_at_mogul.com)
Date: 02/10/05
- Next message: Fredrik Lysholm: "Re: Fastcode MM Rules"
- Previous message: Fredrik Lysholm: "Re: Fastcode MM Rules"
- In reply to: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Next in thread: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Reply: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Thu, 10 Feb 2005 17:36:48 +0100
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
if Offset = 1 then
Result := Pos(SubStr, S)
else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S) - LenSubStr + 1;
while I <= Len do
begin
if S[I] = SubStr[1] then
begin
X := 1;
while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
Inc(X);
if (X = LenSubStr) then
begin
Result := I;
exit;
end;
end;
Inc(I);
end;
Result := 0;
end;
end;
use that until it's fixed..
"Eric W. Carman" <ewcarman@ _REMOVETHIS_ ecsoftwareconsulting.dot.com> wrote
in message news:420b8122$1@newsgroups.borland.com...
> Hello Pierre,
>
> Having trouble with the graphs units and PosEx on Delphi 6. Undeclared
> identifier: PosEx.
>
> Best Regards,
> Eric
>
>
> "Pierre le Riche" <pleriche@hotmail.com> wrote in message
> news:420b7755@newsgroups.borland.com...
>> Posted to attachments.
>>
>> Changes:
>> 1) Graphs are normalised to 100%
>> 2) Added Dennis' Changes.
>> 3) Put in the latest FastMove 2.1
>>
>> Regards,
>> Pierre
>>
>
>
- Next message: Fredrik Lysholm: "Re: Fastcode MM Rules"
- Previous message: Fredrik Lysholm: "Re: Fastcode MM Rules"
- In reply to: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Next in thread: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Reply: Eric W. Carman: "Re: Fastcode MM B&V 0.14"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
