index e68fd21bcdee1c7d63ced3b086fb58abf80cd09d..5e0573ec38406d092a9fee06516c2fcd2b87837b 100644 (file)
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
P := OutBuf;
Inc(OutBytes, 256);
ReallocMem(OutBuf, OutBytes);
P := OutBuf;
Inc(OutBytes, 256);
ReallocMem(OutBuf, OutBytes);
- strm.next_out := PByteF(Integer(OutBuf) + (Integer(strm.next_out) - Integer(P)));
+ strm.next_out := PByteF(PtrUInt(OutBuf + (strm.next_out - P)));
strm.avail_out := 256;
end;
finally
strm.avail_out := 256;
end;
finally
Exit;
end;
Exit;
end;
- Section := UpperCase(Section);
- Resource := UpperCase(Resource);
+ Section := toLowerCase1251(Section);
+ Resource := toLowerCase1251(Resource);
i := -1;
for a := 0 to High(FResTable) do
begin
if FResTable[a].Length = 0 then
begin
i := -1;
for a := 0 to High(FResTable) do
begin
if FResTable[a].Length = 0 then
begin
- CurrentSection := FResTable[a].ResourceName;
+ CurrentSection := toLowerCase1251(FResTable[a].ResourceName);
Continue;
end;
Continue;
end;
- if (FResTable[a].ResourceName = Resource) and
+ if (toLowerCase1251(FResTable[a].ResourceName) = Resource) and
(CurrentSection = Section) then
begin
i := a;
(CurrentSection = Section) then
begin
i := a;