CODE
var
FoundEqual: Boolean;
begin
FoundEqual := False;
...etc.
end else if (c = '=') and not FoundEqual then
begin
ParamValueReading := True;
ParamNameReading := False;
ParamValueBuffer := '';
FoundEqual := True;
end
FoundEqual: Boolean;
begin
FoundEqual := False;
...etc.
end else if (c = '=') and not FoundEqual then
begin
ParamValueReading := True;
ParamNameReading := False;
ParamValueBuffer := '';
FoundEqual := True;
end
This code makes the assumption that there is only one attribute, and may not work in other circumstances, but it suits my particular needs ok. Anyway, it's something to take a look at, as far as how to solve properly.
Thanks
Mike











