如何获取Delphi源代码中的字符串(100分)

J

jwd01

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-27

• #1

如何获取Delphi源代码中的字符串
例如
ErrorString = 'It''s Good Day!';
要考虑到字符串中是否包含引号
或者
ErrorString = 'It''s Good Day!'#10#13'My name is ''%s''';
如何获取引号中的字符串？也就是It's Good Day!和My name is '%s'

 

F

findwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-27

• #2

1. edit1.text:= ErrorString;

 

J

jwd01

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-27

• #3

楼上的回答有误解，ErrorString不是一个变量，而是源代码中的一行
如果是这种形式的，怎么办
resourcestring
ErrorString = 'It''s Good Day!'
+#10#13
+'My name is ''%s''';
注意：是分成多行的

 

普

普行

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-27

• #4

刚才看错了
应该是分析引号的配对关系和+号吧

 

普

普行

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-27

• #5

ErrorString = 'It''s Good Day!'
^ ^^ ^
等号后第一个(’)一定是字符串开头起引用作用，第二三个（’）如果不连续的话，第二个引号一定是结束引用的（’），现在连续就要分析连续的有几个，如果偶数个则每两个对应一个字符串中的（‘），如果是奇数个则最后一个必须是结束引用的（’），其余在分析后续的（+），类推。
+#10#13
^
+'My name is ''%s''';
^^ ^^ ^^^