Перестановка местами первой и последней буквы в словах

@Dangrot · Регистрация: 04.10.2016

Нужен кусок , который выполняет это действие для Delphi 7
Буду очень признателен если будут еще комментарии что куда

@qwertehok · 04.10.2016, 17:39

Delphi

var s,t:string // s - слово
begin
t:=s[1];
s[1]:=s[length(s)];
s[length(s)]:=t;
end;

а уж откуда вы берете слова вы не написали

@Dangrot · 04.10.2016, 17:44 **[ТС]**

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

...а уж откуда вы берете слова вы не написали...

Извиняюсь , забыл написать . Из Edit1 в listbox1.И есть особенность в том что в listbox1 слова в столбик и надо переставить в каждом слове

@qwertehok · 04.10.2016, 17:46

не не не
уже 100500 раз обсуждалось как разбить строку на слова
поищите уж, потрудитесь

@Dangrot · 04.10.2016, 17:48 **[ТС]**

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

не не не
уже 100500 раз обсуждалось как разбить строку на слова
поищите уж, потрудитесь

Как разбить то я знаю , то надо еще и менять местами буквы в словах . А в этом уже затнуднее...

@qwertehok · 04.10.2016, 17:50

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

то надо еще и менять местами буквы в словах

а я вам что написал?

@Dangrot · 04.10.2016, 17:54 **[ТС]**

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

а я вам что написал?

То что и нужно спасибо , вы наверно утеряли нить диалогов. А так Спасибо большое )

@qwertehok · 04.10.2016, 17:55

Не по теме:

я потерял??? я ответ вторым сообщением написал )

@Dangrot · 04.10.2016, 17:59 **[ТС]**

Не по теме:

я потерял??? я ответ вторым сообщением написал )

Вы упомянули что я не указал откуда слово берется. И я ответил, следовательно пошла нить бессмысленных сообщений)

@Dangrot 0 / 0 / 0 Регистрация: 04.10.2016 Сообщений: 55
		1
	Перестановка местами первой и последней буквы в словах 04.10.2016, 17:05. Показов 1972. Ответов 8 Метки нет (Все метки) Нужен кусок , который выполняет это действие для Delphi 7 Буду очень признателен если будут еще комментарии что куда 0

@Dangrot 0 / 0 / 0 Регистрация: 04.10.2016 Сообщений: 55
	04.10.2016, 17:44 [ТС]	3
	Сообщение от qwertehok ...а уж откуда вы берете слова вы не написали... Извиняюсь , забыл написать . Из Edit1 в listbox1.И есть особенность в том что в listbox1 слова в столбик и надо переставить в каждом слове 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	04.10.2016, 17:46	4
	не не не уже 100500 раз обсуждалось как разбить строку на слова поищите уж, потрудитесь 0

@Dangrot 0 / 0 / 0 Регистрация: 04.10.2016 Сообщений: 55
	04.10.2016, 17:48 [ТС]	5
	Сообщение от qwertehok не не не уже 100500 раз обсуждалось как разбить строку на слова поищите уж, потрудитесь Как разбить то я знаю , то надо еще и менять местами буквы в словах . А в этом уже затнуднее... 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	04.10.2016, 17:50	6
	Сообщение от Dangrot то надо еще и менять местами буквы в словах а я вам что написал? 0

@Dangrot 0 / 0 / 0 Регистрация: 04.10.2016 Сообщений: 55
	04.10.2016, 17:54 [ТС]	7
	Сообщение от qwertehok а я вам что написал? То что и нужно спасибо , вы наверно утеряли нить диалогов. А так Спасибо большое ) 0

@qwertehok
	04.10.2016, 17:55 #8
	Не по теме: я потерял??? я ответ вторым сообщением написал ) 0

@Dangrot
	04.10.2016, 17:59 [ТС] Перестановка местами первой и последней буквы в словах #9
	Не по теме: Не по теме: я потерял??? я ответ вторым сообщением написал ) Вы упомянули что я не указал откуда слово берется. И я ответил, следовательно пошла нить бессмысленных сообщений) 0

Опции темы

Решение