Запись слов из эдита с конца

[Zeraim]

Непонимаю что-то тут нетак, подскажите где ошибочка:

procedure TForm1.Button1Click(Sender: TObject);
var
i,begw,endw : integer;
begin
endw := Length(Edit1.Text);
for i := Length(Edit1.Text) downto 1 do
  begin
  if Edit1.Text[i] = ' ' then
    begin
    for begw := i to endw do Label1.Caption := Label1.Caption + Edit1.Text[i];
    endw := i;
    end;
  end;
end;

[Snoopy]

begin
text := Edit1.Text;
for i := Length(Edit1.Text) downto 1 do
  begin
    Label1.Caption := Label1.Caption+Text[i];
  end;
end;

[Zeraim]

Не ето будет совсем задом на перед, вместе с буквами, а мне надо типо вот этого: Привет как дела => дела как Привет
-------------------------------------------------------------------------------------------------------------------------
Проблема в том что капшион леибла вообще не меняется, я некак непоиму почему =\\
-------------------------------------------------------------------------------------------------------------------------
Отсутствие сна пагубно сказывается на внимательности: for begw := i to endw do Label1.Caption := Label1.Caption + Edit1.Text[i];

[Snoopy]

var
i,begw,endw : integer;
begin
Edit1.Text:=' ' +Edit1.Text;
endw := Length(Edit1.Text);

for i := Length(Edit1.Text) downto 0 do
  begin
  if (Edit1.Text[i] = ' ') then
    begin
      for begw := i to endw do
        begin
          Label1.Caption := Label1.Caption + Edit1.Text[begw];
        end;
     endw:=i;
    end;
  end;
end;

[Stilet]

Я бы из Эдита запихнул строку в StringList.DelimitedText с пробелом поставленным в DelimitedChar, потом в цикле от Count-1 СтрингЛиста до 0 переписал бы слова.

[Zeraim]

Я не такой умный как вы, и пока делаю так насколько мозга хватает 8)
Я читал ваш ответ на пожую тему, но ничего из него неопнял.

[mutabor]

Stilet призывает использовать VCL, к-рую дяди из Борланда написали для нашего удобства, кстати действительно удобно, и ненадо ничего выдумывать за тебя уже все выдумали, правда для обучения это не очень хорошо, и было бы лучше самому додуматься как это сделать, а вот для работы, когда программу нужно написать быстро, то что надо.

Как использовать VCL? Очень просто, ставишь курсор например на слово TStringList в коде, жмешь F1 и читаешь что это такое, какие у него есть свойства и методы. Вместо чтобы кучу кода городить, раз и заюзал нужный метод и VCL все за тебя сделала )
Если при открытии справки тут же желание ее закрыть, нужно ангельский язык подучить, программисту желательно его знать ) Но и это не катастрофа, в книгах и в сети работа с компонентами тоже есть, но тут есть подвох, нужный тебе метод автор может счесть нестоящим внимания и даже про него не заикнется, так что встроенный хэлп рулит.

p.s. Кстати ты не задумывался, почему программы Дельфи так много весят по сравнению с другими? Как раз из-за VCL, в модулях к-рого описано море функций к-рые ты можешь использовать в своей программе.

[dimonbest]

Сообщение от Zeraim

-------------------------------------------------------------------------------------------------------------------------
Проблема в том что капшион леибла вообще не меняется, я некак непоиму почему =\\
-------------------------------------------------------------------------------------------------------------------------

Может попробуй после леибла дописать

Form1.Repaint;