Замена

[Dr.Badnezz]

Привет. У меня немного ламерский вопрос, то пожалуйста помогите:
Как заменить одно слово другим? Например заменить слово Маша на слово Юля?

[eoln]

Где заменить? В коде? В компоненте? В файле? В паспорте?

[Dr.Badnezz]

Извините пожалуйста...
Нужно заменить в RichEdit программно. Т.е. нажал чел на кнопку и заменилось.

[eoln]

Меняем всех Машей на Юлей

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TCaption;
  d: integer;
begin
  s := RichEdit1.Text;
  d := pos('Маша', s);
  while d > 0 do
  begin
    delete(s, d, 4);
    insert('Юля', s, d);
    d := pos('Маша', s);
  end;
  RichEdit1.Text := s
end;

[puporev]

Это если заданное слово не является частью другого слова. Например если задано слово СТО, то в словах типа СТОл, проСТО буквы С Т О будут заменены на другие.

[Dr.Badnezz]

Еще один тупой вопрос... скажите код создания новой строки. например в VB .NET это VBCrLf, а в Delphi?

[Dr.Badnezz]

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

Это если заданное слово не является частью другого слова. Например если задано слово СТО, то в словах типа СТОл, проСТО буквы С Т О будут заменены на другие.

Тут встречный вопрос: а можно это как то изменить? Чтобы такого не было.

[Dr.Badnezz]

Сообщение от Dr.Badnezz

Еще один тупой вопрос... скажите код создания новой строки. например в VB .NET это VBCrLf, а в Delphi?

С этим вопросом уже разобрался.

[Dr.Badnezz]

if Com_line.Lines[1] <> '' then
  Begin
  Editor.lines.text:=Com_line.Lines[1];
  end;

Содержание Com_line:
Строка1
Строка2

Editor пустой. Так вот нужно первую строку Com_line добавить в Editor

Com_line и Editor - RichEdit
____________________
P.S. пишу в этой теме, т.к. не хочу создавать новую

[Crivel]

if Com_line.Lines[1] <> '' then
Begin
Editor.lines.text:=Com_line.Lines[1];
end;

Содержание Com_line:
Строка1
Строка2

Editor пустой. Так вот нужно первую строку Com_line добавить в Editor

Com_line и Editor - RichEdit

Editor.Lines.Add(Com_line.Items[0]);