mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 21:48:35 +02:00
19 lines
216 B
ObjectPascal
19 lines
216 B
ObjectPascal
program tformalclass;
|
|
|
|
{$macro on}
|
|
{$ifdef java}
|
|
{$define sdkunit:=jdk15}
|
|
{$else}
|
|
{$define sdkunit:=androidr14}
|
|
{$endif}
|
|
|
|
uses
|
|
sdkunit;
|
|
|
|
var
|
|
a: system.jlstring;
|
|
begin
|
|
a:='abc';
|
|
jlsystem.fout.println(a);
|
|
end.
|