Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

как напечатать апостроф?   Найти похожие ветки 

 
Alex   (2004-05-23 10:35) [0]

как мне напечатать знак апострофа в файл?


 
jack128 ©   (2004-05-23 10:49) [1]

write(TextFileVar, """");


 
Alex   (2004-05-23 10:50) [2]

спасибо большое!
кто бы догадался что 4 нужно ставить!


 
Юрий Зотов ©   (2004-05-23 11:24) [3]

> Alex   (23.05.04 10:50) [2]

В Паскале апостроф внутри любой строковой константы обозначается двумя апострофами подряд (чтобы компилятор мог отличить его от закрывающего строку одиночного апострофа).

Пример: "It""s an apostrophe inside string"

Сама же строковая константа с двух сторон ограничивается тоже апострофами. Вот поэтому и получается, что когда она состоит только из одного апострофа, то писать их надо четыре подряд: два крайних - это ограничители строки, а два внутренних - это ее тело.

Как видите, все вполне логично, так что можно и не гадать.
:о)


 
SergP ©   (2004-05-23 12:51) [4]

Лучше писать #39. По крайней мере так понятнее...
Типа:

write(TextFileVar, #39+#39);


 
Anatoly Podgoretsky ©   (2004-05-23 12:54) [5]

SergP ©   (23.05.04 12:51) [4]
А зачем два, это же не текстовая константа, где надо удваивать служебные символы?


 
SergP ©   (2004-05-23 12:58) [6]

Вот решил попробовать:
...
var
str:string;
begin
str:="""";
...

После этого в str появился почему-то только один апостроф. Чтобы было два, пришлось писать str:="""""";

Поэтому ИМХО лучше все-же вставлять код апострофа (#39) и не юзать эти встроенные компиляторские приколы с апострофами...


 
SergP ©   (2004-05-23 13:00) [7]


>  [5] Anatoly Podgoretsky ©   (23.05.04 12:54)
> SergP ©   (23.05.04 12:51) [4]
> А зачем два, это же не текстовая константа, где надо удваивать
> служебные символы?


Ой, извините.
Мне показалось что автору нужно два апострофа... Как-то бегло прочитал сабжевый пост...



Страницы: 1 вся ветка

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.046 c
11-1074954024
avakss
2004-01-24 17:20
2004.06.06
KOL Add dpk


3-1084735551
SnowMen
2004-05-16 23:25
2004.06.06
function YearsBetween(const ANow, AThen: TDateTime): Integer;


1-1085359775
tamroF
2004-05-24 04:49
2004.06.06
Ошибка в DLL


4-1083050775
luka
2004-04-27 11:26
2004.06.06
Сообщения


3-1084434715
Kein
2004-05-13 11:51
2004.06.06
Как занести в поле русские буквы