|
@@ -988,14 +988,10 @@ begin
|
|
if (U1<>0) then
|
|
if (U1<>0) then
|
|
begin
|
|
begin
|
|
App:={$IFDEF FPC_HAS_CPSTRING}UTF8Encode({$ENDIF}WideChar(U1)+WideChar(U2){$IFDEF FPC_HAS_CPSTRING}){$ENDIF};
|
|
App:={$IFDEF FPC_HAS_CPSTRING}UTF8Encode({$ENDIF}WideChar(U1)+WideChar(U2){$IFDEF FPC_HAS_CPSTRING}){$ENDIF};
|
|
- writeln('app a: ',L,': ',App);
|
|
|
|
U2:=0;
|
|
U2:=0;
|
|
end
|
|
end
|
|
else
|
|
else
|
|
- begin
|
|
|
|
- writeln('app b: ',L,': ',WideChar(U2));
|
|
|
|
U1:=U2;
|
|
U1:=U2;
|
|
- end;
|
|
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
if App<>'' then
|
|
if App<>'' then
|