Преобразовать заданную строку

[Saren]

Добрый день всем. Вот задание которое не могу выполнить.

Преобразовать заданную строку, заменив в ней каждое сочетание символов '<–>' на '–+–'

 procedure TForm1.Button1Click(Sender: TObject);
var
  Str : string;
begin
str:=Edit1.Text;
  while Pos('<–>', Str) <> 0 do
Str.Replace('<–>','–+–'); 
end;

Str.Replace('<–>','–+–'); - на эту команду выдает ошибку.
[Ошибка] Unit1.pas(33): Record, object or class type required

[WinCoder]

на эту команду выдает ошибку

Не удивительно. Где Вы такую чушь скопировали?

uses StrUtils;
...
Str := ReplaceStr(Str, '<–>', '–+–');

[Saren]

Вот так полностью выглядит код:

 unit Unit1;

interface

uses
  Windows, StrUtils, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Str : string;
begin
str:=Edit1.Text;
  while Pos('<–>', Str) <> 0 do
Str := ReplaceStr(Str, '<–>', '–+–');
end;

end.

Все равно на эту команду Str := ReplaceStr(Str, '<–>', '–+–'); выдает ошибку

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:=StringReplace(Edit1.Text,'<–>', '–+–',[rfreplaceall]);
end;

[Iron Monk]

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

Все равно на эту команду Str := ReplaceStr(Str, '<–>', '–+–'); выдает ошибку

А так?

Str := StringReplace(Str, '<–>', '–+–',[rfReplaceAll]);

Опоздал...)))

[Saren]

НЕ Преобразовывает строку <–> следующая команда:

 Str := StringReplace(Str, '<–>', '–+–',[rfReplaceAll]);

[Saren]

Все разобрался спасибо

[Saren]

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Str : string;
begin
str:=Edit1.Text;
  while Pos('<–>', Str) <> 0 do
 Str := StringReplace(Str, '<–>', '–+–',[rfReplaceAll]);
 Edit1.Text:=str;
end;

end.

[Iron Monk]

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

НЕ Преобразовывает строку <–> следующая команда:

 Str := StringReplace(Str, '<–>', '–+–',[rfReplaceAll]);

Вот эту строку '<–>' скопируй из своего Edit1 и вставь в свой код.
И всё станет замечательно...

[WinCoder]

Все разобрался спасибо

Не заметно. Цикл в данном коде не нужен вообще.

Все равно на эту команду Str := ReplaceStr(Str, '<–>', '–+–'); выдает ошибку

А всё потому, что кто-то не потрудился указать среду.