关于pascal的菜鸟问题。(70分)

飞

飞飞鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #21

我的头大了

 

H

hhhkkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #22

inttostr(10)不要加''

 

不

不好

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #23

procedure TForm1.Button1Click(Sender: TObject);
var
ss:String;
aa:String;
i:integer;
begin
i:=10;
ss:=inttostr(i);
aa:='''';
label1.Caption :=aa + ss + aa;
end;
//没有调试过，应该没问题

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #24

1.Label1.Caption :='''' +ss+'''';// '10'
2.Label1.Caption := ss
// 10
3.Label1.Caption := '"'+ss+'"'
// "10"
不知道可不可以？！

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #25

我想ghj1976是想把 一个带有数字的字符串，提取其中的数字部分吧

 

H

hcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #26

基本同意kurt

 

跑

跑的快

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #27

什么呀,越来越乱! ^o^

 

A

Atomic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #28

&_&

 

I

iambest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-01

• #29

“10”，１０上面的是双引号还是两个单引号呀
如果是单引号如下label1.Caption := ''''''+inttostr(10)+'''''';
如果是双引号则是label1.Caption :='"'+inttostr(10)+'"';
其中 ' 是单引号, " 是双引号.
OK ?

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-01

• #30

哈哈哈哈哈哈.
笑死我了.

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-03

• #31

我想他是想在数据库域里嵌一个计算函数吧
函数本身还带参数？
那也只好写一些代码来分析了。
要是支持函数种类太多的话，简直不成了内嵌一个pascal解释器？
而且inttostr还是扩展的pascal函数呢

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #32

想想pascal怎么识别编译inttostr(10)的！：）
不过数据库里的东西应该有些规律的，用if,else

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #33

看来，你的问题还比较复杂，根据前面各位大侠的分析，你好象是要求
Label1.Caption ：= 给定函数的返回结果字符串。
现在的问题是，你的函数是有限的几个还是随意书写的。
若是前者，处理起来就简单一些，可以将这些函数分析以下，声明一个统一格式的函数类
型，并对每一种不同的函数设置一个编码并予以具体实现，在表的字段里填写具体函数的代
码和参数，执行过程中根据函数编码将对应的函数赋值给函数变量，最后通过函数变量调用
函数获得返回结果并赋值给Label1.Caption即可。
如果你的函数可以随意书写，包括任意表达式，如：
"这是"+ToStr(Date,'YYYY"年"MM"月"')+A.报表类型+'报表'
那么,你需要建立一套完整的表达式处理机制, 相当于Basic解释器。
我倒是有一套表达式处理系统，包括若干单元（各种混合运算、常规数学函数、时间函数
、字符串函数、数据库访问函数等等），但我不能给你源程序，如果需要的话可以给你 .BPL。

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #34

富翁们现在怎么了?明明不对的东西硬要往上贴!前面人家没说明白贴点也罢了,
怎么后面人家都说的很清楚了还硬是往上帖不对的玩意?真不明白到底是谁很菜!

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-04

• #35

接受答案了.