请问我写的一段排列很乱的代码,可不可以让它自动对齐阿?

karach 2003-10-23 09:37:08
请问我写的一段排列很乱的代码,可不可以让它自动对齐阿?
例如:
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;
多谢,
...全文
100 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
shacy 2003-10-23
  • 打赏
  • 举报
回复
to DelphiBird(爱你等于爱自己)
给我发一个吧,谢谢。
moonyar@sina.com
karach 2003-10-23
  • 打赏
  • 举报
回复
谢谢 DelphiBird(爱你等于爱自己)
我找找看!
DelphiBird 2003-10-23
  • 打赏
  • 举报
回复
搜索一下工具
delphi Format
找不到我发给你个
rick29 2003-10-23
  • 打赏
  • 举报
回复
呵呵,VC里可以,DELPHI么……
karach 2003-10-23
  • 打赏
  • 举报
回复
是不是需要下载个控件还是在什么地方设置一下阿,我找了很久没有找到,各位来帮忙阿!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧