Работа с текстом в Delphi

[Agafon]

Здравствуйте, помогите пожалуйста. У меня такой вопрос:

У меня есть строка текста, скажем:

s:='Здравствуйте уважаемый Иван Иванович';

Как из этой строки выделить, скажем, первое и третье слово, чтобы на выходе получилось:

"Здравствуйте Иван"

[MaxNik2009]

как вариант

var
  sl: TStringLIst;
  s: string;
begin
  s:='Здравствуйте уважаемый Иван Иванович';
  sl:= TStringLIst.Create;
  try
    s:= StringReplace(s, ' ', #13#10,[rfReplaceAll, rfIgnoreCase]); // меняем пробелы на перенос строки
    sl.Text:= s;
   { теперь sl выглядит так:
     sl[0] -> Здравствуйте 
     sl[1] -> уважаемый 
     sl[2] -> Иван 
     sl[3] -> Иванович}
  //состовляй строки как хочешь
  finally
    sl.free;
  end;
end;

p.s. писал код без delphi, по тому могут быть ошибки.

[Serge_Bliznykov]

StringReplace(s, ' ', #13#10

угу. и если перед словом "Уважаемый" (или перед "Здравствуйте") поставить парочку (или больше) пробелов, то не получится то, что нужно...

[MaxNik2009]

и если перед словом "Уважаемый" (или перед "Здравствуйте") поставить парочку (или больше) пробелов, то не получится то, что нужно...

можно же проитись по StringList'у в цикле и удалить пустые строки.

[Agafon]

У меня такой вопрос появился?

Я могу определить длину строки в пикселях. Скажем, получилось 1600 рх, можно сделать так, чтобы текст, через каждые 600 рх переносился на новую строчку?

[Stilet]

Canvas.TextWidth('Строка') - Даст ширину в пикселях.

[Agafon]

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

Canvas.TextWidth('Строка') - Даст ширину в пикселях.

Я это понимаю. Но я наверно чуть не так выразился. Я формирую строку (собираю её из разных мест), она может быть и 3000 рх и выше. А в результате я хочу её вывести ровными строками по 600 рх. Вот моя задача.