Работа со строками в делфи

[ПИнасол]

Ребят помогите решить задачу ну или направьте как то пожалуйста...ну так вот....надо написать программу чтобы она считывала текст из memo1 и кидала в Edit1 2 букву каждого слова (Пр: мАма мЫла рАму) как то так %)
я даже не знаю с чего начать...
p.s. заранее спасибо

[Serge_Bliznykov]

получите и распишитесь. (один из вариантов. используется поиск пробелов через PosEx)

uses StrUtils;

procedure TFormXX.Button1Click(Sender: TObject);
var s : string;
  kPrev, kNew : integer;
begin
  s := Trim(Memo1.Lines.Text)+' ';
  s := StringReplace(s, #13#10, ' ', [rfReplaceAll, rfIgnoreCase]);
  while Pos('  ',s)>0 do Delete(s, Pos('  ',s), 1);

  // очистили Edit1
  Edit1.Text := '';

  kPrev := 0;
  kNew := PosEx(' ', s, kPrev+1);
  while kNew>0 do begin
    if kNew-kPrev>2 then
       Edit1.Text := Edit1.Text + Copy(s, kPrev+2, 1)+' ';
    kPrev := kNew;
    kNew := PosEx(' ', s, kPrev+1);
  end;

end;

[ПИнасол]

все работает,спасибо большое

[Serge_Bliznykov]

Сообщение от ПИнасол

делфи не опознает команду posex О_о
и выдает ошибку что делать?
а StrUtils; эта какая то библиотека?

библиотека функций обработки строк. описание есть в Help.
но вам это не суть важно.

а важно то, что нужная вам функция PosEx описана как раз в этом файле.

поэтому допишите в Uses ...., StrUtils

и функция найдётся.

Добавлено

после uses всё кидает в ошибку

библиотеки в uses перечисляются через ЗАПЯТУЮ!!!!
(точка с запятой в Паскале КОНЕЦ оператора!!!)
а вы точку с запятой зачем-то воткнули! Там нужна запятая!


p.s. я такие вещи предпочитаю писать в разделе implementation
- там дописывайте uses и те библиотеки, которые Вам в данном модуле нужны.
но данную библиотеку можно в в главном Uses модуля указать, она ни с кем не конфликтует...