procedure TForm1.Button1Click(Sender: TObject);
var? s,m:string;
? ? ? i:Integer;
begin
? ? ? ? s:='abcdefg';
? ? ? ? ? m:='';
? ? ? ? for i:=1 to Length(s)? do
? ? ? ? ? m:=s[i]+m;
? ? ? ? ShowMessage(m);
end;
procedure TForm1.Button1Click(Sender: TObject);
var? s,m:string;
? ? ? i:Integer;
begin
? ? ? ? s:='abcdefg';
? ? ? ? ? m:='';
? ? ? ? for i:=1 to Length(s)? do
? ? ? ? ? m:=s[i]+m;
? ? ? ? ShowMessage(m);
end;