Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2019, 01:16   #1
Vitalik81311
Пользователь
 
Регистрация: 28.10.2018
Сообщений: 25
По умолчанию изменить в программе, чтоб менялись первое и последнее слово местами?

Не могу понять, подскажите, что нужно изменить в программе, чтоб менялись первое и последнее слово местами? А то в этой программе, меняются не так, как мне нужно слова...
Пожалуйста...



Код:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s,temp:string;
begin
s:=edit1.text;
i:=pos(' ',S);
temp:=copy(s,1,i-1);
delete(s,1,i);
temp:=s+' ' +temp;
edit2.texT:=temp;
end;
Vitalik81311 вне форума Ответить с цитированием
Старый 21.01.2019, 12:05   #2
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

ВЕСЫ=спасибо)
Вложения
Тип файла: zip stok.zip (203.1 Кб, 7 просмотров)
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 21.01.2019, 12:18   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

А если по простому, по рабоче-крестьянски, не гоняясь за размером кода, то как-то так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,n: integer; stro1,stro2: string ;
begin
  stro1 := Edit1.Text ;
  n := Length(stro1) ;
  for j := n downto 1 do
    if stro1[j]= ' ' then break ;
    i := Pos (' ',stro1) ;
  stro2 := Copy (stro1,j+1,n-j) + Copy (stro1,i,j-i+1) + Copy (stro1,1,i-1) ;
   Edit1.Text := stro2 ;
end ;
Но ежели надо использовать все существующие в природе строковые функции - тогда конечно. И по простому нельзя.
Виталик, а че у тебя с рутацией-то? Нельзя так. Тщательнее надо. Учиться, учиться. И код форматировать.

Последний раз редактировалось digitalis; 21.01.2019 в 12:25.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поменять местами первое и последнее слово. Паскаль Flower2 Помощь студентам 10 01.11.2013 09:36
Сравнить первое и последнее слово в строке (СИ) Pras Помощь студентам 1 27.06.2013 20:52
поменять местами первое слово со вторым.. 3 и 4 5 и 6 7 и 8 kiruka4 Общие вопросы C/C++ 0 22.12.2011 18:45
Поменять местами первое и последнее слова в предложении. alex.dadaev Помощь студентам 0 17.03.2011 09:39