win7 64 +delphixe 10.3
运行效果如下:
代码如下
procedure TForm5.Button1Click(Sender: TObject);
var
i,j:integer;
begin
for I := 0 to 9 do
memo1.Lines .add(string.Create(chr(i+48),i));
memo1.Lines .add('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>');
for j := 0 to 9 do
memo1.Lines .add(string.Create(' ',j)+'前面有'+j.ToString +'空格');
end;