初学者问题
54321
4321
321
21
1
这个怎么写？


[解决办法]
不明白你要表达什么意思啊。
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
const
S : String = '54321 ';
var
I : integer;
begin
for I := 1 to Length(S) do
Memo1.Lines.Add(StrPas(@S[I]));
end;