VPF::Операция POS И Insert - Форум программистов

Paha1992

Дата 18.4.2012, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

Нужно сделать так, чтобы ВСЕ НАПИСАННОЕ после пробела переносилось в начало строки
С помощью операции POS я нашел позицию пробела, а вот как перетащить все стоящее после пробела в начало не знаю=(

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Str1, Str2,start: String;
 P: Integer;
 label m3;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 m3:
  readln(Str1);
Str2:=' ';
P:=Pos(Str2,Str1);
writeln(P);
goto m3
end.

Данкинг

Дата 18.4.2012, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Как-то так, в действии не проверял:

Код


str1=copy(str1,p,length(str1))+copy(str1,1,p);

--------------------

There's nothing left but silent epitaphs.

Paha1992

Дата 18.4.2012, 12:24 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

ЗАРАБОТАЛО! Огромное СПАСИБО!!!

Это сообщение отредактировал(а) Paha1992 - 18.4.2012, 12:25

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »