Free Pascal和Turbo Pascal 的区别

本文部分是我自己翻译的Freepascal官网的文件,部分参考www.noi.cn的文件

虽然Free Pascal尽量设计得和Turbo Pascal接近,但是由于以下的两个原因,两者之间还是有一些区别的

最主要的:
1. Free Pascal是一个32位的编译器,而Turbo Pascal只是16位编译器;
2. Free Pascal是一个跨平台的编译器,而Turbo Pascal只在windows上使用。
如果你的代码是遵守ANSI Pascal的,那么代码从Turbo Pascal移植到Free Pascal是没有问题的。

下面是在Turbo Pascal上可以使用,但是在Free Pascal就不能使用的一些语言特性:
1. 函数和过程在使用时,参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。
2. PROTECTED,PUBLIC,PUBLISHED,TRY,FINALLY,EXCEPT,RAISE成为了关键字,因此不能作为函数和过程的名字。
3. FAR,NEAR不再是关键字了。原因是Free Pascal是32位系统,不再需要这些关键字。
4. 布尔表达式不一定要全部进行计算。只要最终结果已经能够确定,就不再计算其它还没有计算的部分了。比如布尔表达式exp1 AND exp2 AND exp3,如果已知exp1的结果是false,那么怎么表达式的结果肯定是false,exp2和exp3就不用进行计算了。
5. 在Free Pascal中,集合中的元素都是4个字节长的。
6. 表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。
7. 如果用Rewrite打开文件,那么文件就只能被写入了。如果需要读取这个文件,要对文件执行Reset。
8. Free Pascal在程序结束之前一定要关闭输出文件,否则输出文件可能不能被正确的写入。
9. Free Pascal理论上可以使用4GB的内存,因此实际上几乎可以使用系统中的所有剩余内存(除非赛题中有内存限制)。这是Free Pascal由于32位的编译器。但是对于Turbo Pascal来说,由于是16位的编译器,因此不能定义大小超过64KB的数据类型和变量,并且在DOS实模式下可以使用的内存总数只有640KB。

下面是Free Pascal相对于Turbo Pascal扩充的一些功能:

1. 函数可以返回复杂的类型,比如记录和数组。
2. 在函数中,函数的返回值可以作为一个变量来处理。比如:
function a : longint;
begin
a:=12;
while a>4 do
begin
{…}
end;
end;
这个例子在Turbo Pascal中,a>4会被认为是函数的递归调用,但是在Free Pascal中会认为a只是一个变量。如果想在Free Pascal中实现递归调用,就要写成下面的形式:
function a : longint;
begin
a:=12;
{ this is the recursive call }
if a()>4 then
begin
{…}
end;
end;
3. exit可以接受一个参数作为函数的返回值。比如:
function a : longint;
begin
a:=12;
if a>4 then
begin
exit(a*67); {函数的返回值就是a*67 }
end;
end;
4. Free Pascal支持函数重载。可以用相同的名字定义不同的函数,只要这些函数的参数不同,就是不同的函数。比如:
procedure DoSomething (a : longint);
begin
{…}
end;

procedure DoSomething (a : real);
begin
{…}
end;
可以使用不同的参数类型longint或者real来调用不同的DoSomething过程。
由于这个功能,函数的提前声明必须有完整的参数声明:
procedure x (v : longint); forward;
{…}

procedure x;{ 这里定义的过程x重载了前面声明的过程x。因此这里的两个x是不同的}
begin
{…}
end;
5. Free Pascal容许运算符重载。比如,可以自己为矩阵运算定义一个“+”运算。
6. Free Pascal在windows 95及其以上的windows版本上支持长文件名。对于文件名,由于windows系统对大小写不敏感,因此在程序中,文件名的大小写是无关的。但是对于其它大小写敏感的系统,比如linux,程序中用到的文件名必须和系统中的文件名完全一致。但是由于信息学竞赛的评测系统一般是linux,因此要求程序中的文件名和系统中的文件名一样。

汇编程序:
1。默认的汇编程序使用另一种语法,但是你也能打开INTEL风格汇编程序进行阅(也就是TP7所使用的,不过对于我们似乎没有用),在命令行上加上选项-Rintel,或者在源程序中加入编译选项{asmmode intel} 。
2。32位存储器The 32 bit memory model requires a complete recoding of your assembler blocks.

运行库:
1。使用接口队列,在你的使用从句加入一个PORTS unit(只能在Dos/Go32v2 and Linux下)。
2。在TP7下可以使用MEM[seg:ofs](像MemW和MemL)读实模式内存,但是FP中只能在Go32v2中使用,这个方法也是原来竞赛时使用卡时的。
3。OFS()将返回一个longint取代word的类型数
4。OVERLAY UNIT(覆盖单元)是不能使用的
5。TP中还有不可利用的的单元版权问题

预处理程序及语法:
1。如果你在命令行下使用-So 命令开关或者使用{mode TP}在你的源程序中,编译器会进入TP的兼容模式,几个FP的先进的功能将无法使用(像函数重载),以便更好的和TP兼容。
3。嵌套的注释是允许的,不过在TP模式下不行

语法:
1。FAR 和NEAR是不起作用的。
2。取得一个函数或过程的地址赋给过程变量是允许的,你必须使用@操作符(在TP模式下不变),这个学过C的一般比较好理解,就是函数指针.
procedure p;
begin
end;
var
proc : procedure;
begin
proc:=@p;
end;
3.INLINE功能被编译器提供,但是被用来插入pascal代码,而不是二进制代码,INLINE应该和C是同一个用途.
4.The headers of forward declared functions/procedures always have to be completely rewritten in the definition, otherwise the compiler thinks that they are overloaded (not required if you use -So).
5.有更多的保留字.
6.一些DELPHI中扩展的功能部分的提供了.

语法:
1.Intel下最大的参数传递给子程序达64K,摩托罗拉版本32K.
2.记录总是以字节内对齐,使用”packed record”或者{PACKRECORDS 1}可以获得与TP兼容的类型,一个字节警告:只有你到非用不可的时候使用紧缩的,否则有可能在非INTEL的CPU下没有对齐的出问题,数据将被切断在所有的可能情况下.
type
r1=record
a : byte;
b : word;
end;
r2=packed record
a : byte;
b : word;
end;
begin
writeln(sizeof(r1)); { outputs 4 }
writeln(sizeof(r2)); { outputs 3 }
end.
3.警告:FP中许多当前设置为longint或32位的,在TP中常常是word或者byte的A current work around for this is declaring your sets as a byte/word and then use the bit manipulation unit available on the contributions page to manually include/exclude items. Of course, this is only necessary if you need TP compatible records, otherwise you can use the standard FPC sets
4.在FP中函数返回类型可以是复杂的类型.
5.在FP中函数可以作为一个变量使用,可以直接赋值. 上面说咯

7.exit可以带一个数作为函数值退出函数时:
function a : longint;
begin
a:=12;
if a>4 then
exit(a*67);
end;
8.Forward defined functions always have to be defined with the full header (not in TP mode):
procedure x(v : longint);forward;
procedure x; { this overloads the procedure x !!!!}
begin
{ … }
end;
{ write instead: }
procedure x(v : longint);
begin
{ … }
end;
9.BOOL数据都是短类型的(似乎和DELPHI不一样);

其他:
1.命令行参数不同.
2.不是所有的编译开关都支持.
3.单元并不是二进制兼容的,也就是说FP编译的和TP编译的单元不能彼此调用

漂流而过

我告诉自己:如果你找到了想要的幸福,我愿意成全;如果我不能再拥有,我只能放弃。
  太阳越来越烈,我倔强地抬头看它,直到双眼阵阵刺痛,我闭上眼睛:这个春天真的走了,我们的一切随着泪漂流而过。
  我开始无休止地搜索所有关于你的回忆。
  当一切已成为曾经拥有时,我能做的仅是在无尽的思念中忘却……
  你曾经用怜惜的眼神看着我说:“你的前世是一只海明威的猫,流浪,孤独,忧郁的让我心疼。”而我习惯用沉默回答你的关爱。
  就这样你不顾6小时车程的辛苦来陪我逛街,吃饭,泡吧……渐渐的那个春天我不再听那首“一个人的生活”,习惯了在一起时痴痴地看你,一个人时静静地想你。
  那段时间我真的相信幸福已伸手可及,相信我们会平淡地在一起,也开始相信,我的所得和所求有时也会相同。
  可我的爱有太多的贪恋,所以我不忍看到你的一点三心二意,当你那长辈式的溺爱慢慢远去我知道自己陷入了万劫不复,于是我们更沉默了。我们的沟通就是这样,从爱惜开始,最终走入僵局,因为彼此不知道该如何正确表达。
  那个春天开始时你说:“我不愿成为你的平行线,一生只能远远的和你观望。”后来我懂了你成了我的相交线,片刻温暖后越走越远。
  我们相爱,却并不宽容,伤害对方,不留余地。我想探测你内心极其静默的秘密,跟随它喜抑或忧,发现在你心中那个小小的角落已经住着她,只有这微小的距离,却觉得不可触及。从爱到无爱,于是有了叛离。
  我软弱,也不是一个放得下的人,感情破裂时总会留下一条无法愈合的伤痕,更痛恨自己始终学不会该如何治疗,只是默默地痛着,忍着。
  你终于还是走了,分手了不说再见,当一切都已清楚,我们无法乞求原谅。要怎样才能,原来的归原来,往后的归往后,我的心硬了,也冷了,原来水蒸汽爱上天花因此只有向上。
  我想我们的爱像烟花一样,灿烂一时,然后灰飞烟灭,而我站在那里,久久的回不去。
  生命中会出现多少人,可有几个是能一辈子刻骨铭心的。
  梦中,抚摸你的脸已经漫长无期,但我依然不知道该如何去捕捉你,就像捕捉从指缝间穿过的风。
  原来爱情,我从未轻易抓住过……

很久以前转载的,重读,我仿佛看见当时的心情,但我猜不透

悟情

前几天把仙三问情的所有动画看了遍,截了两张图
一张是温慧和南宫煌偷听长卿掌门商量时两人相对而视.温慧脸红的样子 

另外一张是完美结局中王蓬絮的一张什么呢?看看咯

呵呵,点击查看大图吧,blog限制看不清的

仙三中只有完美结局我喜欢,我比较喜欢那种好,圆满.虽然知道世事并不如人所愿,但是仍希望着!
问情!很久以前就有人问咯:

《摸鱼儿-雁丘词》-元-元遗山

  问世间情为何物,直教生死相许.天南地北双飞客,老翅几回寒暑.欢乐趣,离别苦.就中更有痴儿女.君应有语,渺万里层云,千山暮雪.只影像谁去?
  横汾路,寂寞当年箫鼓,荒烟依旧平楚,招魂楚些何嗟及,山鬼暗啼风雨.天也妒,未信与,莺儿燕子俱黄土.千秋万古,为留待骚人,狂歌痛饮,来访雁丘处!

  好一首雁丘词,凭此元遗山足以千古留名咯,不过却是金庸将其带入普通人的生活中,回想当初看<神雕侠侣>李莫愁的’问世间…’可也是让人颇有感受,已经6年多咯,还是小学时,却也影响深刻…初中我背下咯这首词,虽然时有忘记,但今天似乎还行…
  元遗山是元朝人,神雕侠侣是写的宋朝事,虽然有些那个.但是时间也差的不是太多!
  情为何物?我也想不通,为什么要去想呢?我也不知道的…什么都不懂,什么都别说…让我静静…清凉的夏夜,躺在草地仰望满天繁星,不知和海上甲板看有什么区别?
  我这样想,可能笑杀昆仑山的仙人吧..

利用phpmyadmin恢复数据

经过一番摸索,其实现在提供的功能已经可以给我们恢复数据库咯

具体方法如下
前提你要创建数据库咯

控制面板->管理工具->SQL管理->数据库->点击创建的数据库名->

然后有几个分页出来,你可以选择SQL这个分页
然后选择本地的备份文件,一般是没有压缩的

点击->执行

这样你的数据库的数据就会恢复

不过只适合2M以下的数据文件

大家可以参考参考咯

注意啊!!!用phpmyadmin导出来的数据要处理一下,可能,我是先创建的数据库再导入的,用从phpmyadmin导出的SQL文件导入的话是会提示你数据库已经创立咯(我的两个名字相同),要修改一下,具体怎么处理,我也不太知道咯
可能去掉创建数据库名的SQL语句就有咯

从PHPMYADMIN导出来的SQL文件应该只要删除

CREATE DATABASE `databasename`;
USE databasename;

就可以咯,而且导出来的时候使用何种方法应该无所谓