我是delphi初学者...请问关于回车换行的char(13)和#13#10有什么区别?
varForm1:TForm1;i,x,y,z:integer;implementation{$R*.dfm}procedureTForm1.Button1Click(S...
var
Form1: TForm1;
i,x,y,z:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=1;
z:=1;
i:=1;
while (x<17) do
begin
y:=1;
while (y<25) do
begin
z:=(30-x-y);
if (3*x+2*y+z=50) then
begin
memo1.Lines[i]:=inttostr(x)+' '+inttostr(y)+' '+inttostr(z)+#13#10;
i:=i+1;
end;
y:=y+1;
end;
x:=x+1;
end;
end;
请问把上面的#13#10换成char(13)时,为什么只能显示一个解?而不能把所有的解在memol上显示出来?? 展开
Form1: TForm1;
i,x,y,z:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=1;
z:=1;
i:=1;
while (x<17) do
begin
y:=1;
while (y<25) do
begin
z:=(30-x-y);
if (3*x+2*y+z=50) then
begin
memo1.Lines[i]:=inttostr(x)+' '+inttostr(y)+' '+inttostr(z)+#13#10;
i:=i+1;
end;
y:=y+1;
end;
x:=x+1;
end;
end;
请问把上面的#13#10换成char(13)时,为什么只能显示一个解?而不能把所有的解在memol上显示出来?? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询