Небольшая задачка. Нужна помощь.

[Prayerok]

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

Ввод строки через OpenDialog, там проблем нет. Очевидно в приведеном коде что-то не так.

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var a:string; n,i:integer;
begin
a:=(Edit1.Text);
n:=length(a);
for i:=1 to n do if a[i]='{' then a[i]:='(';
Edit2.Text:=(a);
end; 


Заранее спасибо, строго не судите, ибо в Дельфи я мало что понимаю.

[AlexanderKs]

Не совсем понятно, в чём ошибка.. Может быть вот так?

procedure TForm1.Button1Click(Sender: TObject);
var a:string; i:integer;
begin
  a:=Edit1.Text;
  for i:=1 to length(a) do begin 
     if a[i]='{' then a[i]:='(';
     if a[i]='}' then a[i]:=')';
  end;
  Edit2.Text:=a;
end;

[Prayerok]

AlexanderKs, спасибо, но не помогло.

Ошибку действительно забыл описать ), а заключается она в следующем: программа запускается, но увы при нажать на кнопку1 ничего не происходит. Извините за корявость обьяснения.

[AlexanderKs]

Хм.. код сработает, если в Edit1 есть текст..

[Prayerok]

AlexanderKs, Он там есть. Возможно ошибка где-то в другом месте, приведу код полностью в таком случае.

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var a:string; i:integer;
begin
  a:=Edit1.Text;
  for i:=1 to length(a) do begin
     if a[i]='{' then a[i]:='(';
     if a[i]='}' then a[i]:=')';
  end;
  Edit2.Text:=a;
end;
procedure TForm1.Button2Click(Sender: TObject);
var a:string; f1:textfile;
begin
OpenDialog1.Execute;
assignfile(f1,OpenDialog1.FileName);
reset(f1);
read(f1,a);
closefile(f1);
Edit1.Text:=a;
end;

end. 


[AlexanderKs]

Создал проект, расставил компоненты (2 Button`a и 2 Edit`a), скопировал код, не проверяя, запустил - всё работает..

[Prayerok]

AlexanderKs, интересно =), спасибо огромное за помощь. Попытаюсь запустить программу на другом ПК.

[psycho-coder]

Попробуйте создать новый проект и скопировать в него код из старого.
Или перезапустите Delphi

[AlexanderKs]

Вот проект, может я чего не понял..
Проект (архив)

[Prayerok]

AlexanderKs огромнейше спасибо! Все замечательно работает.