[disker]

Помогите разобраться с кодом. В memo1 находится такой текст:

Нью-Орлеан Лейкерс 95 101
Оклахома Нью-Орлеан 104 93
Нью-Орлеан Вашингтон 97 89
Финикс Нью-Орлеан 104 102
Сакраменто Нью-Орлеан 102 96
Миннесота Денвер 100 113
Торонто Миннесота 111 100
Миннесота Мемфис 84 102
Миннесота Торонто 103 87
Юта Миннесота 108 100
Миннесота Нью-Орлеан 113 98
Нью-Орлеан Миннесота 114 86
Миннесота Нью-Орлеан 94 96
Миннесота Нью-Орлеан 96 97
Нью-Орлеан Миннесота 98 89
Нью-Орлеан Миннесота 94 93
Нью-Орлеан Миннесота 101 97
Миннесота Нью-Орлеан 116 108
Миннесота Нью-Орлеан 90 122
Нью-Орлеан Миннесота 110 76

Нужно его скопировать в memo2, но чтобы получилось так:

Нью-Орлеан
Лейкерс
95
101
Оклахома
Нью-Орлеан
104
93
.......
.......

Нью-Орлеан
Миннесота
110
76

То есть чтобы каждое слово было в отдельной строке. Возможно ли такое сделать? Спасибо.

[ryderx34]

Попробуй так:

Код:

Memo2.Text := StringReplace(Memo1.Text, ' ', #13#10, [rfReplaceAll]);

[StudentMarat]

Вот решил. Здесь при нажатии на кнопку текст из Memo1 копируется построчно в Memo2

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s2:String;
 s:String;
 i,j:integer;
begin
   try
    s:=memo1.Text;
    s2:='';
    i:=1;
    while (i<=length(s)) do
     begin
      if s[i]<>' ' then
       begin
        s2:=s2+s[i];
       end;
      if s[i]=' ' then
       begin
        Delete(s,1,i);
        if (s2<>'') then
         memo2.Lines.Add(s2);
        s2:='';
        i:=0;
       end;
      inc(i);
     end;
     memo2.Lines.Add(s);
   except
    on e:Exception do
   end;
end;

[Assistant]

Код:

var
  i: integer;
begin
  Memo2.Lines.Text := WrapText(StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]), #13#10, [' '], 0);
  for i:=0 to Memo2.Lines.Count-1 do
    Memo2.Lines[i] := TrimRight(Memo2.Lines[i]); //убираем пробелы в конце строк, который получились из-за WrapText
end;

Но вариант ryderx34 короче , а мой чисто познавательный.

[disker]

Всем спасибо за ответы. Завтра попробую и отпишусь работает ли. Только мне нужно будет это делать автоматом, а не при нажатии кнопки. Эта операция как бы будет одной из многих. При нажатии кнопки будет отсеиваться текст из файла к такому как в первой цитате, а уж потом копироваться для последующей обработки в мемо2. А после мемо2 уже будут проводится дальнейшая обработка с текстом, как к примеру сколько раз каждое слово встречается в тексте в мемо2.

[disker]

Странно, но ни один из предложенных методов не работает. В первом случае получаем вот такую ошибку, хотя мемо2 прописал в unit2.pas как Memo2: TMemo; :

[DCC Error] Unit2.pas(106): E2003 Undeclared identifier: 'Memo2'

во втором случае получаю такой текст, что немного не подходит - нужно по одному слову в каждую строчку:

Memo2
Шарлотт
Даллас 92
101
Шарлотт
Майами 97
109
Детройт
Шарлотт 87
97
Юта
Шарлотт 83
78
Клипперс
Шарлотт 103
88
Бостон
Орландо 91
80
Бостон
Даллас 97
101
Сакраменто
Бостон 90
95
Лейкерс
Бостон 96
109
Финикс
Бостон 88
71
Бостон
Шарлотт 99
94
Шарлотт
Бостон 62
93
Бостон
Шарлотт 92
71
Бостон
Шарлотт 104
80
Шарлотт
Бостон 90
108
Бостон
Шарлотт 92
59
Бостон
Шарлотт 111
109
Шарлотт
Бостон 114
106
Шарлотт
Бостон 84
89
Шарлотт
Бостон 78
101

в третьем случае тоже получаю ошибку, какую ещё не разобрался до конца...

[disker]

Прошу прощения, немного не те комманды в примере но это сути не меняет - шаблон ввода один и тот же для разного текста..

[Страдалецъ]

Странно, но ни один из предложенных методов не работает. В первом случае получаем вот такую ошибку, хотя мемо2 прописал в unit2.pas как Memo2: TMemo; :

Ну как-бы сами виноваты. Надо было просто на форму добавить компонент Memo2 все остальное Дельфи сделал бы сам. Решение которое дал
ryderx34 вполне нормальное и самодостаточное.

[disker]

Ну я уже не настолько ламер, хотя конечно не сильно разбираюсь в делфи )) мемо2 на форму добавил в первую очередь и это я и имел ввиду когда написал что прописал в unit2.pas как Memo2: TMemo; Может сам компилятор клинит. Ладно попробую ещё раз...

[disker]

И всё-таки решение не правильное. Вот скриншот , чтобы было более убедительно:

[Страдалецъ]

Вообще-то судя по скрину, у вас разделителями могут быть не только пробелы. Явно видно, что там табуляция а не пробел, а посему тогда так:

Код:

Memo2.Text := StringReplace(Memo1.Text, #32, #13#10, [rfReplaceAll]);
Memo2.Text := StringReplace(Memo1.Text, #8, #13#10, [rfReplaceAll]);

[disker]

Странно, теперь вообще без изменений - просто копирует как в мемо1... Не могу загрузить скрин, почему-то не открывается окно загрузки файлов на форуме..

[disker]

Вот, вроде заработал форум...

[Михалыч]

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

Странно, теперь вообще без изменений - просто копирует как в мемо1... Не могу загрузить скрин, почему-то не открывается окно загрузки файлов на форуме..

Заархивировал бы ты весь проект да выложил, тогда бы и разбирались.
Еще рекомендовал бы заменить в файле 1.txt все табуляторы одиночным пробелом и пробелы которых больше одного тоже на одиночный пробел, тогда код Memo2.Text := StringReplace(Memo1.Text, ' ', #13#10, [rfReplaceAll]) работает, я у себя проверил.

[Страдалецъ]

Я тоже кое-что накосячил. С учетом повторов и других символов так получится:

Код:

 Memo2.Text := Memo1.Text;
 while Pos(#32#32,Memo2.Text) > 0
 do Memo2.Text := StringReplace(Memo2.Text, #32#32, #32, [rfReplaceAll]);
 while Pos(#9#9,Memo2.Text) > 0
 do Memo2.Text := StringReplace(Memo2.Text, #9#9, #9, [rfReplaceAll]);
 Memo2.Text := StringReplace(Memo2.Text, #32, #13#10, [rfReplaceAll]);
 Memo2.Text := StringReplace(Memo2.Text, #9, #13#10, [rfReplaceAll]);