Страница 1 из 1
Управляющие символовы
Добавлено: 16 сен 2008, 09:35
ENB83
нужен символ перехода на следующую строку:
resh:='1' + ? +'2';
чтобы в итоге получилось:
1
2
Добавлено: 16 сен 2008, 09:49
RAJAH
chr(13)
Добавлено: 16 сен 2008, 09:59
ENB83
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
Добавлено: 16 сен 2008, 17:48
Masygreen
#9 - код символа табуляции в стандарте ASCII;
#10 - код символа перехода на новую строку в стандарте ASCII;
#13 - код символа перевода каретки в стандарте ASCII;
#26 - код символа конца файла