In v3.21.13 Can't Trigger Event frxReport1GetValue

Rainhard

I use Delphi 7

Still Can't Input Chinese in Edit of Dialog.

if use TfrxADOQuery ocuer an error in frxAdoComponets.pas

procedure TfrxADOQuery.OnChangeSQL(Sender: TObject);
var
i: Integer;
begin
if not FLock then
begin
{ needed to update parameters }
FQuery.SQL.Text := '';
FQuery.SQL.Assign(FStrings);//Throw an error, Mybe FString 'Length = 0
inherited;

{ fill datatype automatically, if possible }
for i := 0 to FQuery.Parameters.Count - 1 do
if (FQuery.Parameters.DataType <> ftUnknown) and
(Params.IndexOf(FQuery.Parameters.Name) <> -1) then
Params[Params.IndexOf(FQuery.Parameters.Name)].DataType := FQuery.Parameters.DataType;
end;
end;