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

G

ghj1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
ss : string;
begin
ss := 'inttostr(10)'
label1.Caption := ss;
end;

我如何实现label1.Caption的显示的是“10”，而不是"inttostr(10)"????
不要告诉我用label1.Caption := inttostr(10);

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #2

label1.Caption := '10'
^o^

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #3

显示'10'?
label1.caption:=''10''
注意
是两个单引号在一起
不是双引号

 

L

liuchuanbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #4

too

 

G

ghj1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #5

不会把，这么多人想干嘛。
是inttostr(10)的值。

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #6

10的ascii码上多少？

 

L

liuchuanbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #7

procedure TForm1.Button1Click(Sender: TObject);
var
ss : string;
begin
ss := inttostr(10)
label1.Caption := ss;
end;

 

G

ghj1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #8

看来问题的露洞太多了。让这么多人找到了。
改一下问题的提法：

procedure TForm1.Button1Click(Sender: TObject);
var
ss : string;
begin
ss := table1.fieldbyname('expression').asstring;
// table1.fieldbyname('expression').asstring 的值为 'inttostr(10)'
label1.Caption := ss;
end;

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #9

1、在Delphi中显示单引号要用''显示双引号要用''''再加上一个字符串10要用'10'表示
所以要这样:
Label1.Caption := '''''10''''';
2、如果用变量则应该这样:
var
ss : string;
begin
ss := inttostr(10);
Label1.Caption := ''''''+ss+'''''';
end;

在D5+W98下运行通过

 

G

ghj1976

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #10

与"、'无关，可能是现在写asp多了，与delphi混了。
我的问题被这么多人误解了。呜呜呜呜呜呜呜呜呜呜呜
如果要分的话,我仅有3分了一起送上。

问题的关键是:如何让delphi执行一个用字符窜写的函数。

看来问题我根本说不清了。
呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #11

您也开始三毛流浪记？
可惜kang现在不能观看了。。呵呵。

 

T

tianrei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #12

procedure TForm1.Button1Click(Sender: TObject);
var
ss:string;
begin
ss:='inttostr(10)';
label1.caption:=copy(ss,10,2);
end;
刚调试过，
建议看看COPY的用法！

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-23

• #13

呵呵，ghj1976大概是想实现一个宏替换的功能吧

 

L

lenjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #14

procedure TForm1.Button1Click(Sender: TObject);
var
ss : string;
begin
ss :='10';
label1.Caption := ss;
end;
没有调试过，应该没问题

 

康

康夫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #15

找一个 TinyPascal 之类的编译器， 研究完之后，写一个 TMy函数解释器，Ok?

 

Z

zh_sh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #16

我懂他的意思了，他的意思是字符串中保存的是一个函数形式的串，现在要执行字符串中的函数，在把结果付给另一个字符串，可惜，我也不会

 

K

kurt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #17

procedure TForm1.Button1Click(Sender: TObject);
var
ss:string;
begin
ss := inttostr(10);
label1.Caption := '"'+ss+'"';
end;
试一试，调试成功！

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-24

• #18

>>问题的关键是:如何让delphi执行一个用字符窜写的函数。

试试用 case 语句了

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-30

• #19

>>问题的关键是:如何让delphi执行一个用字符窜写的函数。
除非你的编译原理很行,否则...只好用if语句了.
wjiachun,case不支持string吧?

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-30

• #20

当然，可以变通一下嘛 ：－）