TP3/shell/tests/fixtures/t83_strfield_cmp.pas

PROGRAM T83;
TYPE
   Rec = RECORD
      Contents : STRING [10] ;
   END ;
VAR
   A : ARRAY [1..2] OF Rec ;
   I : INTEGER ;
BEGIN
   I := 1 ;
   IF A [I].Contents <> '' THEN
      WRITELN ('yes')
   ELSE
      WRITELN ('no') ;
   IF A [2].Contents = '' THEN
      WRITELN ('empty')
END.