Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 6945|回复: 4

lazarus里面怎么格式化代码?

[复制链接]

该用户从未签到

发表于 2010-8-5 16:03:34 | 显示全部楼层 |阅读模式
lazarus里面怎么格式化编辑器里面的代码?
回复

使用道具 举报

该用户从未签到

发表于 2010-8-5 16:25:25 | 显示全部楼层
怎么格式化?
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2010-8-6 11:14:23 | 显示全部楼层
下面的代码
procedure TMainForm.SystemExit1Execute(Sender: TObject);
begin
      if MessageBox(0,'确定退出程序?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2) = 1 then
                    Close;
end;

能否自动格式为
procedure TMainForm.SystemExit1Execute(Sender: TObject);
begin
      if MessageBox(0,'确定退出程序?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2) = 1 then
        Close;
end;

delphi 2010可以自动格式化为这种形式,不知道lazarus能否做到
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-8-12 21:35:47 | 显示全部楼层
Tools 裡面有一个 JEDI Code Format

或者用 Free Pascal 附带的 ptop (文档在 http://http://wiki.freepascal.org/PTop)。

Google 一下 pascal source formatter 就出来了。
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2010-8-12 22:31:56 | 显示全部楼层
谢谢,JEDI Code Format已经实现了
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2025-5-3 12:49 , Processed in 0.027465 second(s), 10 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表