Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
 Аватар для EEjester
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299

В переменную 'string' корректно вписать UnicodeText

15.06.2014, 12:27. Показов 1866. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть переменная
Delphi
1
url : string;
Есть текст:
Delphi
1
$$$Ž`’dÜ;ÉcŽu’uŽu…Èpƒ:ˆaÉ%Ô'És‡`ƒ:–|–$$$
При вписывании этого текста в переменную получается что то вроде этого:



Ну и соответственно не компилируется.

Добавлено через 18 минут
Проблема решена преобразованием строк в hex.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function StrToHex(source: string): string;
var
  i: Integer;
  c: Char;
  s: string;
begin
  s := '';
  for i:=1 to Length(source) do begin
    c := source[i];
    s := s +  IntToHex(Integer(c), 2) + ' ';
  end;
  result := s;
end;
 
{ôóíêöèÿ ïðåîáðîçîâàíèÿ HEX -> ñòðîêà}
function HexToStr(hex: string): string;
var
  i: Integer;
begin
  hex:= StringReplace(hex, ' ', '', [rfReplaceAll]);
  for i:= 1 to Length(hex) div 2 do
    Result:= Result + Char(StrToInt('$' + Copy(hex, (i-1) * 2 + 1, 2)));
end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.06.2014, 12:27
Ответы с готовыми решениями:

String с точной строкой ( @ ). Как вписать переменную?
Есть такой код: var str = pole; // 1,2,3... var string = @"lalala..."; как в string вписать переменную str? Просто...

Как правильно вписать переменную в запрос?
Как правильно вписать переменную в запрос? AnsiString varri2; switch(ComboBox7->ItemIndex) { case 0: varri2="Kod"; break;...

Как вписать string в массив?
Хочу вставить надпись string в рамочку из матрицы char. вбивает всю строку в одну ячейку массива. Я новичок, не понимаю указателей и...

9
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
15.06.2014, 12:33
Лучший ответ Сообщение было отмечено EEjester как решение

Решение

Delphi
1
2
3
4
5
const str = '$$$Ž`’dЬ;ЙcŽu’uŽu…Иpƒ:ˆaЙ%Ф''Йs‡`ƒ:–|–$$$';
begin
 Writeln(str);
 readln;
end.
Добавлено через 1 минуту
EEjester, у е есть символ ' -> ''

Добавлено через 1 минуту
ну или так
Delphi
1
2
3
4
5
6
var str :string;
begin
str:='$$$Ž`’dЬ;ЙcŽu’uŽu…Иpƒ:ˆaЙ%Ф''Йs‡`ƒ:–|–$$$';
 Writeln(str);
 readln;
end.
Добавлено через 56 секунд
.......Ф''Йs‡`ƒ:–|–$$$ у меня
.......Ф'Йs‡`ƒ:–|–$$$ у тебе
1
 Аватар для EEjester
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
15.06.2014, 12:46  [ТС]
Хотя нет... Не решена. Так тоже не получается.

Добавлено через 58 секунд
И как быть если нужно вставить символ -> ' ?

Добавлено через 7 минут
Так, всё получилось. Спасибо большое! Просто дописываю символ ' и всё.
0
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
15.06.2014, 12:50
Лучший ответ Сообщение было отмечено EEjester как решение

Решение

есть несколько вариантов записать '
1.a:=chr(39);
2.a:=#39;
3.a:='''';
1
 Аватар для EEjester
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
15.06.2014, 13:00  [ТС]
А каким действием можно дописать это всё в переменную string?
Что бы на выходе была уже готовая строка с дополненными символами '.
0
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
15.06.2014, 13:04
консоль/форма?
1
 Аватар для EEjester
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
15.06.2014, 13:05  [ТС]
чистая консоль.
Delphi
1
2
uses
  Windows, WinInet, SysUtils, TlHelp32, MMSystem;
0
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
15.06.2014, 13:09
ничего

Добавлено через 1 минуту
компил сам знает что нужно сделать
для проверки создай пустой проект и напиши строку и выведи, увидишь результат

Добавлено через 45 секунд
когда сам делаешь, то запоминаешь =)
0
 Аватар для EEjester
1 / 1 / 5
Регистрация: 28.03.2013
Сообщений: 299
15.06.2014, 13:15  [ТС]
Неее... дело в том что у меня 2 независимые проги, и она патчит hex другой. А именно тот сектор где расположена эта строка. Так что мне нужно как то в цикле просканить строку эту на наличие символов ', и дописать если такие есть. Кстати, а как бы выглядел код если была форма?
0
 Аватар для newyork7776
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
16.06.2014, 18:18
Цитата Сообщение от EEjester Посмотреть сообщение
Кстати, а как бы выглядел код если была форма?
ничего

Добавлено через 1 минуту
так нужно делать когда сам в коде программы пишем строку тогда нам нужно написать '' для того что бы мы не завершили строку
str:='text' -> text
str:='''text''' -> 'text'
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.06.2014, 18:18
Помогаю со студенческими работами здесь

Как строковую переменную(String) сканвертировать в переменную типа(Real)
У меня есть Edit1.Text (строковая) а var x: Real каким образом мне сконвертировать Edit1.Text в х Подразумевается что в Edit1.Text...

Конвертировать массив string в переменную char, либо в переменную int
помогите. ошибка вылетает в строке if (s == w), а именно "не удаётся применить индексование через к выражению типа char". Как мне...

Как в целочисленную переменную вписать значение из SQL запроса
Скажите пожалуйста как в переменную типа int вписать значение полученное из SQL запроса. Поле UID из запроса имеет тип: счетчик. Я...

Как передать из ACCESS переменную STRING в переменную окружения (типа CMD команды SET=)
Добрый день! Подскажите как установить переменную окружения из ACCESS. Допустим у меня есть переменная CurrentDir типа String и я хочу...

Как строковую переменную передать из TStringStream в переменную String?
Доброе время суток! Подскажите, как строковую переменную передать из TStringStream в переменную String? Можно ли на прямую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru