mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
16 lines
195 B
ObjectPascal
16 lines
195 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw33840;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
const
|
|
NULLSTRING = '';
|
|
begin
|
|
if String.IsNullOrWhiteSpace(NULLSTRING) then
|
|
Writeln('String is empty');
|
|
end.
|