Слова и строки в Delphi...

[Zibiv]

У меня задание и я не знаю что с ним делать...

Надо:
Ввести слова в текстовое поле (а вернее несколько строк),
затем переставить слова с заданными номерами в последней строке и вывести их в другое поле ввода...

Вот такие дела,хз как делать, где вообще эти номера надо писать? Какое ваше мнение? Может у кого то такая же или похожая задача была..Зарание благодарен...

[Zibiv]

Что ни кто не поможет)))) надо использовать Count?

[pu4koff]

Разбиваете исходный текст на отдельные слова и помещаете их в массив/список/... меняете нужные слова местами в этом списке и в цикле сливаете слова в текстовое поле. Вопрос про разбиение на отдельные слова тут был не один раз. Пользуйтесь поиском

[Zibiv]

Я поискал но нашел только две темы, одна связана с C++ другая про замену матных слов в поле MEmo) Так я к примеру разберусь как разбить текст))) что дальше делать как мне использовать номера моих слов, если можно,то поподробней, а то я что то в строках не бум бум(и куда мне номера слов написать)

[Deller]

371868291 - стучи, за умеренную плату помогу.

[Zibiv]

Я попытался но у меня дальше изготовления текстового редактора и счетчика слов дело не пошло))) что-то я не то делаю помоему(((
как наиболее эффективным способом это можно осуществить...

[Zibiv]

Хотя бы пример не могли бы написать?? мне последняя задача для сдачи Курсовой осталось)) Башка уже не варит)

[alex_fcsm]

Разбивает текст(слова разделенные пробелами) на слова

uses crt;
var s,sub:string;
    i,n:integer;
    a:array[1..100] of string;
    m:real;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if s[i]<>' ' then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
readln;
end.

[Zibiv]

Ага спасибо ОГРОМНОЕ буду пробовать!!)))

[Zibiv]

Только это помоему не для DElphi)))))Но все равно спасибо буду перекалачивать для Delphi)