Строки: текст, заключённый между "#" и "#" необходимо записать прописными буквами

@RockershAz · Регистрация: 06.12.2017

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

Я, походу, немного глупая

прошу помощи. Есть задание к лабораторной, в которой я не могу понять что вообще и при каких действиях должно происходить, кроме того, что должны исчезнуть #. Объясните, кому не сложно и, если можно, накидайте примерный код)) Нужно сделать в лазарусе.
Задание:
Пусть текст, заключённый между # и # необходимо записать прописными буквами. Из исходной строки выделить все участки, которые необходимо записать прописными буквами, вывести на экран исходную строку без символов #, но с правильным размером символов.

@andyj · 06.12.2017, 22:30

разбираюсь в этом не очень, (уверен что есть более гибкие инструменты) но пару "костылей" предложу...

если работаете с кирилицей, то возможны проблемы с юникодом. Обычные str1[i] могут давать "часть символа"!
Пользуюсь LazUTF8 (в юниты добавь) для UTF8Length(str1) и UTF8Copy(str1, 1, 5)
попробуй циклом перебрать строку в поисках for i=1 to UTF8Length(str1) do if(UTF8Copy(str1, i, 1)="#" then...
а дальше уже "магия/нудота парсинга" - найди "начало", запомни, ищи "конец", запомни...
там-же вроде видел UTF8UpperCase для перевода в прописные...

@volvo · 06.12.2017, 23:59

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

а дальше уже "магия/нудота парсинга" - найди "начало", запомни, ищи "конец", запомни...

Не нужна тут никакая магия, все делается гораздо проще: строка разбивается по символам # на массив строк, в котором, разумеется, все элементы с нечетными индексами (индексация же с нуля начинается) будут те, которые нужно перевести в верхний регистр, а с четными - те, которые не нужно менять. Вот и проходим по массиву, заменяя то, что нужно. А потом склеиваем строку назад:

Pascal

var
  s : string;
  arr : TStringArray;
  i : integer;
begin
  s := 'Вот #в это#м тексте #нужн#о некоторые ча#ст#и выделить регистром';
  arr := s.Split(['#']);
  for i := 0 to pred(Length(arr)) do if odd(i) then arr[i] := UTF8UpperCase(arr[i]);
  s := s.Join('', arr);
  ShowMessage(s);
end;

Никакой нудноты... Это не Турбо-Паскаль.

LazUTF8 все-таки в uses придется добавить...

@shyub · 07.12.2017, 09:31

volvo, при попытке повторить ваш код Lazarus "ругается" на 3, 7, 8 и 9 строки. Не могу утверждать, но вы вероятно используете Helper types http://wiki.freepascal.org/Helper_types.
Не могли бы вы подробнее рассказать, как его подключать и справедливы ли для Lazarus-а вот эти процедуры и функции: http://asd-soft.ru/tstringhelper-delphi/

@Puporev · 07.12.2017, 09:43

А у меня не ругается.

Pascal

uses LazUTF8;
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  arr : TStringArray;
  i : integer;
begin
  s := 'Вот #в это#м тексте #нужн#о некоторые ча#ст#и выделить регистром';
  Label1.Caption:=s;
  arr := s.Split(['#']);
  for i := 0 to pred(Length(arr)) do if odd(i) then arr[i] := UTF8UpperCase(arr[i]);
  s := s.Join('', arr);
  Label2.Caption:=s;
end;

Версия Лазарус 1.6.4

@shyub · 07.12.2017, 11:25

Делаю как у вас, а получаю:

Строки: текст, заключённый между "#" и "#" необходимо записать прописными буквами

Вот код 123.rar. Лазарус "из коробки", т.е. никакие дополнительные настройки не делались.

@Puporev · 07.12.2017, 11:27

Может версия Лазарус какая-то старая?

@shyub · 07.12.2017, 11:30

Лазарус 1.6, FPC 3.0.0 (laz4android1.6.0-FPC3.0.0.exe)
Может какие-то дополнительные настройки нужны или лучше установить обычную сборку (lazarus-1.6.0-fpc-3.0.0-win32.exe)?

@Puporev · 07.12.2017, 12:18

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

Лазарус 1.6

Да в этой IDE приведенный код не принимает, обновите Лазарус.

@shyub · 07.12.2017, 12:51

А есть ли возможность выполнить какие-то настройки, чтобы код заработал?
Отказываться от laz4android1.6.0-FPC3.0.0 не могу, т.к. иногда бывает необходимость делать небольшие утилиты под Android. Если установить рядом lazarus-1.6.4-fpc-3.0.2-win32, то не возникнет ли между ними конфликт?

@RockershAz · 07.12.2017, 12:56 **[ТС]**

Суть поняла, дальше разберусь, спасибо огромное за помощь

@volvo · 07.12.2017, 13:45

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

А есть ли возможность выполнить какие-то настройки, чтобы код заработал?

Нет. До 1.6.4 невозможно использовать helper-ы. Но обновляться все равно нужно - сегодня вышел 1.8, так что у тебя уже сильно устаревшая версия.

@shyub 389 / 188 / 47 Регистрация: 11.07.2013 Сообщений: 1,120
	07.12.2017, 12:51	10
	А есть ли возможность выполнить какие-то настройки, чтобы код заработал? Отказываться от laz4android1.6.0-FPC3.0.0 не могу, т.к. иногда бывает необходимость делать небольшие утилиты под Android. Если установить рядом lazarus-1.6.4-fpc-3.0.2-win32, то не возникнет ли между ними конфликт? 0

@RockershAz 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 3
		1
	Строки: текст, заключённый между "#" и "#" необходимо записать прописными буквами 06.12.2017, 16:40. Показов 1254. Ответов 11 Метки lazarus (Все метки) Я, походу, немного глупая прошу помощи. Есть задание к лабораторной, в которой я не могу понять что вообще и при каких действиях должно происходить, кроме того, что должны исчезнуть #. Объясните, кому не сложно и, если можно, накидайте примерный код)) Нужно сделать в лазарусе. Задание: Пусть текст, заключённый между # и # необходимо записать прописными буквами. Из исходной строки выделить все участки, которые необходимо записать прописными буквами, вывести на экран исходную строку без символов #, но с правильным размером символов. 0

@andyj 272 / 176 / 30 Регистрация: 16.03.2017 Сообщений: 1,631
	06.12.2017, 22:30	2
	разбираюсь в этом не очень, (уверен что есть более гибкие инструменты) но пару "костылей" предложу... если работаете с кирилицей, то возможны проблемы с юникодом. Обычные str1[i] могут давать "часть символа"! Пользуюсь LazUTF8 (в юниты добавь) для UTF8Length(str1) и UTF8Copy(str1, 1, 5) попробуй циклом перебрать строку в поисках for i=1 to UTF8Length(str1) do if(UTF8Copy(str1, i, 1)="#" then... а дальше уже "магия/нудота парсинга" - найди "начало", запомни, ищи "конец", запомни... там-же вроде видел UTF8UpperCase для перевода в прописные... 1

@shyub 389 / 188 / 47 Регистрация: 11.07.2013 Сообщений: 1,120
	07.12.2017, 09:31	4
	volvo, при попытке повторить ваш код Lazarus "ругается" на 3, 7, 8 и 9 строки. Не могу утверждать, но вы вероятно используете Helper types http://wiki.freepascal.org/Helper_types. Не могли бы вы подробнее рассказать, как его подключать и справедливы ли для Lazarus-а вот эти процедуры и функции: http://asd-soft.ru/tstringhelper-delphi/ 0

@shyub 389 / 188 / 47 Регистрация: 11.07.2013 Сообщений: 1,120
	07.12.2017, 11:25	6
	Делаю как у вас, а получаю: Вот код 123.rar. Лазарус "из коробки", т.е. никакие дополнительные настройки не делались. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2017, 11:27	7
	Может версия Лазарус какая-то старая? 0

@shyub 389 / 188 / 47 Регистрация: 11.07.2013 Сообщений: 1,120
	07.12.2017, 11:30	8
	Лазарус 1.6, FPC 3.0.0 (laz4android1.6.0-FPC3.0.0.exe) Может какие-то дополнительные настройки нужны или лучше установить обычную сборку (lazarus-1.6.0-fpc-3.0.0-win32.exe)? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2017, 12:18	9
	Сообщение от shyub Лазарус 1.6 Да в этой IDE приведенный код не принимает, обновите Лазарус. 1

@RockershAz 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 3
	07.12.2017, 12:56 [ТС]	11
	Суть поняла, дальше разберусь, спасибо огромное за помощь 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	07.12.2017, 13:45	12
	Сообщение от shyub А есть ли возможность выполнить какие-то настройки, чтобы код заработал? Нет. До 1.6.4 невозможно использовать helper-ы. Но обновляться все равно нужно - сегодня вышел 1.8, так что у тебя уже сильно устаревшая версия. 1

Строки: текст, заключённый между "#" и "#" необходимо записать прописными буквами

Решение