奇怪的SaveDialog1.FileName显示(50分)

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #1

大家看这句话：
ShowMessage(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-4,
Length(SaveDialog1.FileName)-4));
如果SaveDialog1.FileName是“……/……/123.txt”，按理说应该显示的是“.”吧？
可是显示的是“3.txt”，这是为啥？
应该如何做才能让它显示“.”呢？

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #2

老兄再看看Copy的帮助:
function Copy(S; Index, Count: Integer): string;
参数:
Index是S字符串的序号,由字符串首从0开始编号,
Count是拷贝的字符数
改成这样就行了:
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:=SaveDialog1.FileName;
ShowMessage(Copy(s,Length(s)-3,1));
// ~ ~
end;

 

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #3

嘿嘿，我呆得可以啊~~~~~```
随便再呆一次了，如何在程序即将关闭的时候判断程序生成的memo里面的默认内容是不是
被修改了？（默认内容不是固定的）

 

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #4

接受答案了.

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #5

最简单的办法:
响应Memo的OnChange事件
var
Modify:Boolean;
...
procedure TForm1.Memo1Change(Sender: TObject);
begin
Modify:=true;
end;
...
其它地方处理的时候只要判断Modify的值就行了.