|
@@ -2342,7 +2342,8 @@ end;
|
|
|
|
|
|
procedure AddFormatParam(P: pointer);
|
|
procedure AddFormatParam(P: pointer);
|
|
begin
|
|
begin
|
|
- AddFormatParamInt(ptrint(P));
|
|
|
|
|
|
+ Inc(FormatParamCount);
|
|
|
|
+ FormatParams[FormatParamCount]:=ptrint(P);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure AddFormatParamInt(L: longint);
|
|
procedure AddFormatParamInt(L: longint);
|