Удалить последнюю букву в каждом слове

@XakProg · Регистрация: 11.10.2018

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

Удалить последнюю букву в каждом слове.

@Matan! · 21.11.2018, 17:24

Удалит последню букв каждо слов.
Наработки и пример текста есть?
Можно так, если слова в столбик идут:

Delphi

1	S := Copy(S, 0, Length(S) - 1);

@Jase · 21.11.2018, 18:16

//если массив строк, то все это еще в один цикл и в str закидывать 1 строку

Delphi

var
  str: string;
  delimeter: char;
  exI, currI: Integer;
begin
  exI := 0;
  currI := 0;
  delimeter := ' '; // разделитель слов в данном случае пробел
  str := Edit1.Text; // присваем строке значение из поля Edit1
 
  if length(str) < 1 then // если длина строка пустая (её длина 0), то выходим из процедуры сразу
  exit;
 
  currI := 2;
 
  while currI < length(str) do
  begin
    if str[currI] = delimeter then
    begin
 
      exI := currI; // ставим отметку где нашли разделитель
      while exI < length(str) do
      begin
        str[exI - 1] := str[exI];
        // перебираем строку и заменяем последние буквы на разделитель
        inc(exI);
      end;
      setlength(str, length(str) - 1); // сокращаем размер строки на 1
 
    end;
 
 
    inc(currI); // инкремент индекса строки
  end;
   setlength(str, length(str) - 1);
 
  Edit1.Text := str; // возвращаем в едит готовую строку
end;

@XakProg 0 / 0 / 0 Регистрация: 11.10.2018 Сообщений: 28
		1
	Удалить последнюю букву в каждом слове 21.11.2018, 16:45. Показов 1956. Ответов 2 Метки нет (Все метки) Удалить последнюю букву в каждом слове. 0

	21.11.2018, 18:16

Опции темы