pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Range Fix, thanks (Dimitrios Chr. Loannidis)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3135 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-06-04 14:16:51 +00:00
parent 02190bc58c
commit d41e1c6f39
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/server_service_intf.pas
View File

@ -485,7 +485,7 @@ begin
end; end;
//Extract the base ContentType : type "/" subtype *( ";" parameter ) //Extract the base ContentType : type "/" subtype *( ";" parameter )
j := Length(s); j := Length(s);
for i := 0 to Pred(Length(s)) do begin for i := 1 to Length(s) do begin
if ( s[i] = ';' ) then begin if ( s[i] = ';' ) then begin
j := ( i - 1 ); j := ( i - 1 );
Break; Break;