mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
d38340c753
* ucs-4 -> variant type cast (variant -> ucs-4 is not possible due to overloading contraints of fpc and how ucs-4 is implemented) * some newlines fixed git-svn-id: trunk@13451 -
27 lines
249 B
ObjectPascal
27 lines
249 B
ObjectPascal
program tw11371;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
uses
|
|
Variants;
|
|
|
|
procedure Test1(const s: string);
|
|
begin
|
|
// nothing
|
|
end;
|
|
|
|
procedure Test2(const s: UTF8String);
|
|
begin
|
|
// nothing
|
|
end;
|
|
|
|
var
|
|
V: Variant;
|
|
|
|
begin
|
|
V := 'Test';
|
|
Test1(V);
|
|
Test2(V);
|
|
end.
|
|
|