Делфи. Работа со словами в строке

[nation of one]

Делфи забылся, а нужно сделать задачку

Поменять местами слова, "равноудаленные" от концов строки, найти первое цифровое слово и возвести его значение в квадрат.

Мне не нужно всё делать-просто дать совет. Так как хочу сам всё вспомнить и сделать.
Спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

Подсказываю

Поменять местами слова, "равноудаленные" от концов строки

Загоняешь строку в массив -делаешь все что надо и выводишь

найти первое цифровое слово

идешь по массиву ищешь слово состоящее только из цифр - переводишь в число возводишь в квадрат

[Utkin]

Строка в любой момент времени массив символов. Иными словами если она находится в переменной x, то к ней можно обратиться как массиву x[номер_элемента] (нумерация от единицы).
Дополнительно length - длина строки
copy - копирование фрагмента строки
val - получение числа
StrToInt - получение числа из строки
pos - поиск подстроки в заданной строке
В принципе достаточно.

[nation of one]

Видимо совсем деградировал мой мозг за два года
Задание следующее:
Поменять местами слова, "равноудаленные" от концов строки, найти первое цифровое слово и возвести его значение в квадрат.

Если кому не трудно...

[Stilet]

Так подойдет?:

program Project1;

{$APPTYPE CONSOLE}

uses  classes,
  SysUtils;
var s:string; st:TStringList;i:integer;
begin
 s:='Words on tongue its like rain in hands';
 st:=TStringList.Create;
 st.DelimitedText:=s;
  writeln(s);
  for i:=0 to ((st.Count-1) div 2) do begin
   s:=st[i];
   st[i]:=st[st.Count-i-1];
   st[st.Count-i-1]:=s;
  end;
  st.Delimiter:=' ';
  writeln(st.DelimitedText);
 st.Free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[nation of one]

s:='Words on tongue its like rain in hands';
 st:=TStringList.Create;
 st.DelimitedText:=s;

  for i:=0 to ((st.Count-1) div 2) do begin
   s:=st[i];
   st[i]:=st[st.Count-i-1];
   st[st.Count-i-1]:=s;
  end;
  st.Delimiter:=' ';
  ShowMessage(st[i]);
 st.Free;

выводит слово its

может кто попроще напишет...

[Stilet]

выводит слово its

А у меня нормально работает.

может кто попроще напишет...

А чем это сложно?

[nation of one]

сложно тем, что за 2 года моя бошка привратилась в кучу говна
а куда у тя результат выводиться?

procedure TForm1.BitBtn1Click(Sender: TObject);
var s:string;
st:TStringList;
i:integer;
begin
 s:='Words on tongue its like rain in hands';
 st:=TStringList.Create;
 st.DelimitedText:=s;
   writeln(s);
  for i:=0 to ((st.Count-1) div 2) do begin
   s:=st[i];
   st[i]:=st[st.Count-i-1];
   st[st.Count-i-1]:=s;
  end;
  st.Delimiter:=' ';
   ShowMessage(st[i]);
 st.Free;
Readln;
end;

end.

ругается...

и ещё вот это...

[Stilet]

а куда у тя результат выводиться?

В консоль. Мой пример консольный.

ругается...

На что?

за 2 года моя бошка привратилась в кучу говна

Ну тут уж я ничем не способствовал

[nation of one]

блин, не тупи меня, мнеб куда-нить попроще в окно, в сообение.
в сообщение сделал, но он выводит тоьлко одно ненужное слово