QQ登录

只需一步,快速开始

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 1844|回复: 3

LGPL开源的 freepascal lazaurs 很象当年曾经辉煌的Dephi一样

[复制链接]
发表于 2010-1-8 22:48:22 | 显示全部楼层 |阅读模式
虽然说用了Qt,Linux下快速开发已经没有多少可以选择了,不过最近下载打包了一些软件的源码既不是Qt写的,也不是GTK或wxGTK写的,真的象发现新大陆一样被早被遗忘多年的pascal兄弟给找出来了。同freepascal相伴的还有lazaurs这个IDE,操作起来和当年曾经Win编程辉煌一时的Dephi简直是一模一样。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
 楼主| 发表于 2010-1-9 10:56:35 | 显示全部楼层
找个object pascal语言的教程都有点困难了,读写文本的操作在网上居然搜了半天
lazaurs 对中文支持较差,默认保存utf8码,保存过的GB码文件还是可以正常读出,最大的困扰是编辑器内不能打入中文却能复制进中文。。。MGC系统默认GB码,所以很可能终端输出乱码。

Var
    textf:TextFile;    //定义文件变量textf
    F : Textfile;
    str:String;
    S:String;
    i:Integer;
    begin
    AssignFile(textf,'./File.txt'); //将文件变量textf与当前目录中的“file.txt"文件关联
    Rewrite(textf);   //创建文件或打开已存在的文件进行覆盖
    for i:=1 to 5 do
             begin
              S:='This is Line#';
               writeln(textf,s,i);
             end;
    AssignFile(F,'./read.txt');
    Reset(F);
    Readln(F,str);
    writeln('用窗口模式',str);
    Closefile(F);
    CloseFile(textf);    //关闭已打开的文件textf
    end.

[ 本帖最后由 haulm 于 2010-1-9 11:17 编辑 ]
回复

使用道具 举报

whistler_wmz 该用户已被删除
发表于 2010-1-12 16:43:11 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

发表于 2010-1-13 19:47:24 | 显示全部楼层
目前还不是正式版……如果作为开发的话还是不太成熟……等正式版……还有就是控件还不够多……
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

GMT+8, 2024-11-2 16:27 , Processed in 0.043296 second(s), 16 queries .

© 2021 Powered by Discuz! X3.5.

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