нужен символ перехода на следующую строку:
resh:='1' + ? +'2';
чтобы в итоге получилось:
1
2
Управляющие символовы
Модераторы: m0p3e, edward_K, Модераторы
resh:='1' + chr(13) +'2';
не помогло, может потому что я это делаю в RTF:
.LinkForm 'enb_test_160908' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'enb test c 16.09.08'
.Create view SchDog
from
BaseDoc (ReadOnly),
Dogovor (ReadOnly)
where
((
BaseDocNrec == BaseDoc.nRec
and BaseDoc.cDogovor==Dogovor.nrec
));
.var
a:byte;
resh:String
.endvar
.fields
nomer
resh
page_symb
.endfields
.{
.{table 'SchDog.BaseDoc'
.}
.begin
//message(nomer);
a:=1;
case a of
1..2: resh:='1'+chr(13)+'2';
3: resh:=’3’;
else resh:=’4’;
end;
end.
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{
.}
^
^
.if DELIMITER
Р---------------------------------------------------------------------------------------------------------------------------- Р
.else
.end
^
.}
.endform
не помогло, может потому что я это делаю в RTF:
.LinkForm 'enb_test_160908' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'enb test c 16.09.08'
.Create view SchDog
from
BaseDoc (ReadOnly),
Dogovor (ReadOnly)
where
((
BaseDocNrec == BaseDoc.nRec
and BaseDoc.cDogovor==Dogovor.nrec
));
.var
a:byte;
resh:String
.endvar
.fields
nomer
resh
page_symb
.endfields
.{
.{table 'SchDog.BaseDoc'
.}
.begin
//message(nomer);
a:=1;
case a of
1..2: resh:='1'+chr(13)+'2';
3: resh:=’3’;
else resh:=’4’;
end;
end.
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{
.}
^
^
.if DELIMITER
Р---------------------------------------------------------------------------------------------------------------------------- Р
.else
.end
^
.}
.endform