ik krijg de error List index out of bounds (8921400), als ik deze code run:
Code:
function SearchFor(_String, SearchIn : String; _Start, _End : Integer) : Integer;
var
Loop : Integer;
begin
Result := -1;
for Loop := _Start to _End do
begin
if UpperCase(Copy(SearchIn, Loop, Length(_String))) = UpperCase(_String) then Result := Loop - 1;
if Result > -1 then Exit;
end;
end;
ik roep m zo aan, en als ik m 'uitcomment' runt ie wel gewoon:
Code:
TInt := SearchFor([COLOR=blue]'[quote='[/COLOR], TextIn, 1, Length(TextIn));
Bookmarks