Процедура на строку(Delphi)

[blizzard]

Здраствуйте уважаемые програмисты , прошу помочь с такой задачкой на строку..."Дана строка символов , нужно переместить слово минимальной длины в начало , если оно начинается с гласной , или в конец если с согласной.( не важно , английские или русские)". Так вот нужна процедура в Делфи ( дана форма , на которой расположено два "Edit"a и кнопка , мы заносим в первый Edit строку , нажимаем на кнопку , и результат должен появиться во втором "Edit"е.) Зарание спасибо!

[Stilet]

Воспользуйся возможностями TStringList
Выставь у него Delimiter:=' ' и присвой его свойству DelimitedText:=ту строку. ДАлее в цикле от 0 до Count-1 листа пройдись и найди строку с минимальной длиной. Потом узнай что там за первый сивол в этом найденом элементе (слове фактически) ну и методом Exchange поменяй ее местоположение.

[blizzard]

Спасибо за ответ , а можно более развёрнуто написать , для чайника =)

[AlDelta]

Спасибо за ответ , а можно более развёрнуто написать , для чайника =)

Для начала можно посмотреть вот это: http://delphibasics.ru/TStringList.php
После попытаться сделать самостоятельно по описанному выше алгоритму, если не получится тогда вопросы и код сюда...

[Stilet]

Примерно так, лентяюшка:

procedure TForm1.Button1Click(Sender: TObject);
var    s:TStringList;k,i,m:integer;
begin
s:=TStringList.Create;
s.Delimiter:=' ';
s.DelimitedText:=Edit1.Text;
i:=0;
m:=MAX_PATH;
while i<=(s.Count-1) do begin
 if length(s[i])<m then begin m:=length(s[i]);k:=i;end;
 inc(i);
end;
s.Exchange(0,k);
Edit1.Text:=s.DelimitedText;
s.Free;
end;

[blizzard]

Спасибо огромное!!!!!