Pastable version of Change Value Or Word in a WideString

<pre class='prettyprint' language='pascal'>Function TfrmProc.ChangeValue( pData : WideString; KeyVar: String; pIncr : Integer ) : WideString;
	VAR     X : Byte;
		 _lPosIni, _lPosEqual,	_lPosSep : smallint;
		_lStrBegin,	_lStrEnd : WideString;
		_lValue : Integer;
	Begin
		Result := pData;

if NOT (Pos(AnsiUpperCase(KeyVar), AnsiUpperCase(pData)) &gt; 0) then
   		   EXIT;

_lPosIni := Pos(AnsiUpperCase(KeyVar), AnsiUpperCase(pData))

_lPosEqual:=PosFrom( pData,'=', _lPosIni+Length(KeyVar)-1 );

// Search for sep - 'B' OR ;
		for X := _lPosEqual to Length(pData) do
			if (pData[X]=';') OR (pData[X]=' ') then Begin
				_lPosSep := X;
				Break;
			end;

_lStrBegin:= SubStr( pData, 0, _lPosEqual);

_lValue 	:= StrToInt( SubStr( pData, _lPosEqual+1,	((_lPosSep-1)-_lPosEqual)) );
		_lValue 	:= _lValue + pIncr;

_lStrEnd	:= SubStr( pData, _lPosSep+1 );

Result := format('%s%d;%s',[_lStrBegin,_lValue,_lStrEnd])

End;

function PosFrom(Text : WideString; search : Char; Position : Integer) : Integer;
var 	L, X : Integer;
begin
	Result := 0;
	L := Length(Text);

if (Position &gt; L) or (Position &lt; 1) then
		Exit;

for X := Position to L do begin
		if UpperCase(Text[X]) = String(Search) then Begin
			Result := X;
			Exit;
		end
	end;

end;</pre>
<a href="http://www.refactormycode.com/codes/762-change-value-or-word-in-a-widestring" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Change Value Or Word in a WideString