fpc/tests/webtbs/tw37969.pp

12 lines
121 B
ObjectPascal

{$mode objfpc}
program Project1;
uses
sysutils;
var
aValue: variant;
s: String;
begin
s := Trim( aValue );
end.