请问我写的一段排列很乱的代码,可不可以让它自动对齐阿?
请问我写的一段排列很乱的代码,可不可以让它自动对齐阿?
例如:
procedure listuser(qry1: Tadoquery; lstbox1: Tlistbox);
var i, j: integer;
begin
lstbox1.Clear;
with qry1 do
begin
close;
sql.clear;
sql.Add('select username from userdb');
open;
end;
j := qry1.RecordCount;
if j > 0 then
begin
with qry1 do
begin
for i := 1 to j do
begin
lstbox1.Items.Add(FieldValues['username']);
next;
end;
end;
end;
end;
可不可以自动变成:
procedure listuser(qry1: Tadoquery; lstbox1: Tlistbox);
var i, j: integer;
begin
lstbox1.Clear;
with qry1 do
begin
close;
sql.clear;
sql.Add('select username from userdb');
open;
end;
j := qry1.RecordCount;
if j > 0 then
begin
with qry1 do
begin
for i := 1 to j do
begin
lstbox1.Items.Add(FieldValues['username']);
next;
end;
end;
end;
end;
多谢,