اشکال برنامم چیه؟ راهنمایی ....

[s.moghadam1989]

سبام دوستان؛ راهنمایی میخوام
این تیکه برنامه ایه برای اینکه کلمه ای که در ادیت تایپ شده را به کد اسکی تبدیل کرده ، به اضافه ی 5 کرده و به حرف تبدیل می کند.
لطفا اگر مایل به راهنمایی بودید به این آدرس مراجعه کنید و برنامه را ببینید
http://barnamenevis.org/forum/attachment.php?attachmentid=22987&stc=1&d=1220970206
ممنون



procedure TForm1.Button1Click(Sender: TObject);
var
a:array [1..2000] of integer ;
i:integer;
s:string;
begin
i:=1;
s:=edit1.text;
repeat
a[i] :=ord(s[i])+5;
i:=i+1;
until i<=Length(Edit1.Text ) ;
i:=1;
repeat
Edit2.Text:=(char(a[i]))+edit2.Text ;
i:=i+1;
until i<=Length(Edit1.Text );
edit1.Text:='';
end;

[amin_alexi]

سلام

procedure TForm1.Button1Click(Sender: TObject);
var
a:array [1..2000] of integer ;
i:integer;
s:string;
begin
i:=1;
s:=edit1.text;
repeat
a[i] :=ord(s[i])+5;
i:=i+1;
until i>Length(Edit1.Text ) ;
i:=1;
Edit2.Clear;
repeat
Edit2.Text:=(char(a[i]))+edit2.Text ;
i:=i+1;
until i>Length(Edit1.Text );
edit1.Text:='';
end;


در موقع گذاشتن كد از تگ Code استفاده كن !
در اون كد كه نوشتي بايد يادت باشه كه شرط repeat بر عكس While يعني repeat تا زماني كه برقرار نباشه اجرا ميشه و While تا زماني كه شرط برقرار باشه !!!

موفق باشي !

[Cave_Man]

حاجی آخه این چه عنوانیه که واسه بحثت انتخاب کردی .
یه عنوان با مصما بزار که ملت بفهمن در چه مورده.