Как вставить апостроф в строку?

@mpdasa · Регистрация: 18.01.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте.

У меня есть строка:

Stroka[4]:='такой-то и такой-то текст, и в тексте надо вставить апостроф';

Но проблема в том, что в самой строке надо вставить апостроф " ' ". А если я его вставляю, то Delphi понимает это как окончание строки. Какой код надо написать вместо символа и как его вставить в строку?

Заранее благодарен.

@Somebody · 13.08.2010, 17:31

Апостроф в строке надо удваивать.
'That''s it'

@maxkov · 04.09.2010, 19:28

Такая ситуация:

'Familia = '+Edit1.Text;

Как заключить Edit1.Text в апострофы? чтобы в результате получить, к примеру: Familia = 'Иванов'

Vovan-VE · 04.09.2010, 19:31

Delphi
1
'Familia = '''+Edit1.Text + '''';

@maxkov · 04.09.2010, 19:42

ага, спасибо! уже сам допер)

@VampireKB · 05.09.2010, 01:57

Ок,задачка покаверзней

)
в САМОМ edit1.text используется апостроф

как его заменить так,чтобы дельфи не считало его концом строки

т.е. edit1.text:=' i wasn't there ' переделать в ' i wasn''t there '

@maxkov · 05.09.2010, 02:08

Вы про это?
Memo1.Text:='i wasn''t there';

а к чему эта проверка?

Vovan-VE · 05.09.2010, 06:50

Странные вопросы. Есть строка, в которой содержатся какие-то символы ( foo ' bar ). Есть способы представление этой строки (в Edit как есть foo ' bar , в коде строковый литерал 'foo '' bar' ).

@Puporev · 05.09.2010, 07:47

Если нужно ввести в Эдит
' i wasn ' t there ', то нужно написать
edit1.text:=' i wasn '' t there ';
если нужно ввести ' i wasn '' t there ' то нужно написать
edit1.text:=' i wasn '''' t there '; // 4 апострофа

Добавлено через 9 минут
Можно еще по извращенски
edit1.text:=' i'+#34+' wasn'+#39+'t there '; // здесь первый раз символ ", второй раз '

Vovan-VE · 05.09.2010, 08:20

Сообщение от Puporev

Можно еще по извращенски

Можно и еще более извращенчески без плюсов

Delphi
1
edit1.text:=' i'#34' wasn'#39't there ';

@VampireKB · 05.09.2010, 10:48

Спасибо

я просто вспомнил,что у меня давным давно были проблемы с добавлением строк в БД через SQL ,если в переменной был закрывающий знак ( ' ) ..из-за этого я вначале проверял переменные на #39,а лишь затем из просал в запрос

@t232006 · 21.02.2023, 21:09

А что делать, если пишешь

Delphi
1
edit1.text:=' i wasn''t there '

, а тебе все же возвращается строка

Delphi
1
' i wasn''t there '

? (программирую в delphi почти 20 лет, но столкнулся впервые)

@Пытливый · 21.02.2023, 21:13

Видимо использован символ из юникода. Вы выведите посимвольно код каждого символа, наверняка найдете несоответствие.

@northener · 22.02.2023, 01:07

Сообщение от t232006

а тебе все же возвращается строка

Куда возвращается? Куда у вас возвращается строка обрамленная апострофами?

@AHBAR · 22.02.2023, 05:37

На Delphi 10.4 отображается корректно вроде

Сообщение от t232006

программирую в delphi почти 20 лет, но столкнулся впервые

стесняюсь спросить, какая версия у вас? хотя даже на 7 должно нормально быть

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

Как вставить апостроф в строку?

Решение

Решение

@mpdasa 5 / 5 / 1 Регистрация: 18.01.2010 Сообщений: 136

	Как вставить апостроф в строку? 13.08.2010, 17:30. Показов 23862. Ответов 14 Метки нет (Все метки) Здравствуйте. У меня есть строка: Stroka[4]:='такой-то и такой-то текст, и в тексте надо вставить апостроф'; Но проблема в том, что в самой строке надо вставить апостроф " ' ". А если я его вставляю, то Delphi понимает это как окончание строки. Какой код надо написать вместо символа и как его вставить в строку? Заранее благодарен. 0

@Somebody 2838 / 1647 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	13.08.2010, 17:31
	Сообщение было отмечено Joey как решение Решение Апостроф в строке надо удваивать. 'That''s it' 1

@maxkov 1 / 1 / 0 Регистрация: 04.09.2010 Сообщений: 24
	04.09.2010, 19:28
	Такая ситуация: 'Familia = '+Edit1.Text; Как заключить Edit1.Text в апострофы? чтобы в результате получить, к примеру: Familia = 'Иванов' 0

@maxkov 1 / 1 / 0 Регистрация: 04.09.2010 Сообщений: 24
	04.09.2010, 19:42
	ага, спасибо! уже сам допер) 0

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	05.09.2010, 01:57
	Ок,задачка покаверзней ) в САМОМ edit1.text используется апостроф как его заменить так,чтобы дельфи не считало его концом строки т.е. edit1.text:=' i wasn't there ' переделать в ' i wasn''t there ' 0

@maxkov 1 / 1 / 0 Регистрация: 04.09.2010 Сообщений: 24
	05.09.2010, 02:08
	Вы про это? Memo1.Text:='i wasn''t there'; а к чему эта проверка? 0

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	05.09.2010, 06:50
	Странные вопросы. Есть строка, в которой содержатся какие-то символы ( foo ' bar ). Есть способы представление этой строки (в Edit как есть foo ' bar , в коде строковый литерал 'foo '' bar' ). 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	05.09.2010, 07:47
	Если нужно ввести в Эдит ' i wasn ' t there ', то нужно написать edit1.text:=' i wasn '' t there '; если нужно ввести ' i wasn '' t there ' то нужно написать edit1.text:=' i wasn '''' t there '; // 4 апострофа Добавлено через 9 минут Можно еще по извращенски edit1.text:=' i'+#34+' wasn'+#39+'t there '; // здесь первый раз символ ", второй раз ' 1

@VampireKB 36 / 35 / 3 Регистрация: 12.06.2009 Сообщений: 211
	05.09.2010, 10:48
	Спасибо я просто вспомнил,что у меня давным давно были проблемы с добавлением строк в БД через SQL ,если в переменной был закрывающий знак ( ' ) ..из-за этого я вначале проверял переменные на #39,а лишь затем из просал в запрос 1

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	21.02.2023, 21:13
	Видимо использован символ из юникода. Вы выведите посимвольно код каждого символа, наверняка найдете несоответствие. 1