[xsaven]

Подскажите пожалуйста,
Вот на пример у меня есть текст "Привет qw всем rt я робот asd Бонни"
И мне нужно что бы при нажатии на "Button1" из "Edit1"(Где и был допустим написан этот текст) перенеслось в "ListBox1" латинские символы то есть в виде:
1 - qw
2 - rt
3 - asd.

Помогите пожалуйста.

[angvelem]

Можно поступить так, загрузить в StringList, указав в качастве разделителя пробел, затем по циклу опросить все строки StringList-а и, если в строке не присутствуют символы больше чем 'z', то копировать в Memo.

[xsaven]

А можно пожалуйста в виде кода если не сложно

[angvelem]

Код:

  StringList.Delimiter := ' ';
  StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни";

  for I := 0 to StringList.Count - 1 do
  begin
    Bol := False;
    St := StringList.Strings[i];
    for J := 1 to Length(St) do
      if St[J] > 'z' then
      begin
        Bol := True;
        Break;
      end;
    if not Bol then
      Memo1.Lines.Add(St);
  end;

Примерно так.

[Pilot_Red]

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

Код:

  StringList.Delimiter := ' ';
  StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни";

  for I := 0 to StringList.Count - 1 do
  begin
    Bol := False;
    St := StringList.Strings[i];
    for J := 1 to Length(St) do
      if St[J] > 'z' then
      begin
        Bol := True;
        Break;
      end;
    if not Bol then
      Memo1.Lines.Add(St);
  end;

Примерно так.

angvelem Код, скажу тебе, не камельфо, 2 цикла + Break непонятный) Здесь одного цикла хватит за глаза!

[angvelem]

Конечно кака, на скорую руку писан. Break вполне понятный.