[ 2013-05-13 ]
【字符串操作】
AnsiStartsText('DATA ', strCommand) —— 如果字符以此打头,需引用 StrUtils
SameText(strCommand, 'QUIT') —— 判断两个字符相同
s:='0001000200030004';
s1:= LeftStr(s,4); //结果为0001
s2:= RightStr(s,4);//结果为0004
LeftStr / RightStr 只对英文有效,中文需当成两个字节,所以中文不能用,需要加WideString
1,LeftStr(Str,2)=He;//从Str字符串变量的最左边(第一个字符包括第一个字符)开始截取2个字符;
2,RightStr(Str,2)=ld;//从Str字符串变量的最右边(第一个字符包括第一个字符)开始截取2个字符;
3,MidStr(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;
另外有一个函数Copy
4,Copy(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;(类似于MidStr);
a := trim('DATA sdasd大家好');
b := Rightstr(a, Length(WideString(a))-5 );
第一个参数为要进行处理的字符串,第二个参数为从何处开始删除,第三个参数为删除的字符个数。
S := 'I Like Reading CPCW.';
Delete(S, 16, 1); // 代码将删除S变量中的“C”字符
【ListBox操作】
ListBox1.Items.Add('服务器启动成功!') —— 添加一行内容
[ 2013-05-19 ]
报错:access violation at address 004d76f1 in module 'ys.exe'.read of address 00000004
解决:这个错误往往是你的指针没有初始化,或者已经被释放以后,再调用其指向的内容或者对象造成的。
[ 2013-05-31 ]
1.Insert INTO Select语句
语句形式为:Insert into Table2(field1,field2,...) select value1,value2,... from Table1
要求目标表Table2必须存在,由于目标表Table2已经存在,所以我们除了插入源表Table1的字段外,还可以插入常量。
Sample:
insert into TBL_QUESTION_RT(PROJID, EXAMID, SECTIONID, QUESID, EXAMINEEID, QUESANSWER, EXAMINEEANSWER, QUESSCORE, EXAMINEESCORE, SEQUENCEID, ISMARK )
Select PROJID, "'+ExamineeObj.ExamID+'" as EXAMID , SECTIONID, QUESID, "'+ ExamineeObj.ExamineeID +'" as EXAMINEEID, QUESANSWER, "" as EXAMINEEANSWER, QUESSCORE, 0 as EXAMINEESCORE, SEQUENCEID, "0" as ISMARK
from TBL_QUESTION
insert into TBL_QUESTION_RT(PROJID, EXAMID, SECTIONID, QUESID, EXAMINEEID, QUESANSWER, EXAMINEEANSWER, QUESSCORE, EXAMINEESCORE, SEQUENCEID, ISMARK )
Select "P1006" as PROJID, "P1006E01" as EXAMID , SECTIONID, QUESID, "C100009"
【字符串操作】
AnsiStartsText('DATA ', strCommand) —— 如果字符以此打头,需引用 StrUtils
SameText(strCommand, 'QUIT') —— 判断两个字符相同
s:='0001000200030004';
s1:= LeftStr(s,4); //结果为0001
s2:= RightStr(s,4);//结果为0004
LeftStr / RightStr 只对英文有效,中文需当成两个字节,所以中文不能用,需要加WideString
1,LeftStr(Str,2)=He;//从Str字符串变量的最左边(第一个字符包括第一个字符)开始截取2个字符;
2,RightStr(Str,2)=ld;//从Str字符串变量的最右边(第一个字符包括第一个字符)开始截取2个字符;
3,MidStr(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;
另外有一个函数Copy
4,Copy(Str,2,2)=el;//从Str字符串变量的中第2个字符开始取长度为2个字符的字符串;(类似于MidStr);
a := trim('DATA sdasd大家好');
b := Rightstr(a, Length(WideString(a))-5 );
第一个参数为要进行处理的字符串,第二个参数为从何处开始删除,第三个参数为删除的字符个数。
S := 'I Like Reading CPCW.';
Delete(S, 16, 1); // 代码将删除S变量中的“C”字符
【ListBox操作】
ListBox1.Items.Add('服务器启动成功!') —— 添加一行内容
[ 2013-05-19 ]
报错:access violation at address 004d76f1 in module 'ys.exe'.read of address 00000004
解决:这个错误往往是你的指针没有初始化,或者已经被释放以后,再调用其指向的内容或者对象造成的。
[ 2013-05-31 ]
1.Insert INTO Select语句
语句形式为:Insert into Table2(field1,field2,...) select value1,value2,... from Table1
要求目标表Table2必须存在,由于目标表Table2已经存在,所以我们除了插入源表Table1的字段外,还可以插入常量。
Sample:
insert into TBL_QUESTION_RT(PROJID, EXAMID, SECTIONID, QUESID, EXAMINEEID, QUESANSWER, EXAMINEEANSWER, QUESSCORE, EXAMINEESCORE, SEQUENCEID, ISMARK )
Select PROJID, "'+ExamineeObj.ExamID+'" as EXAMID , SECTIONID, QUESID, "'+ ExamineeObj.ExamineeID +'" as EXAMINEEID, QUESANSWER, "" as EXAMINEEANSWER, QUESSCORE, 0 as EXAMINEESCORE, SEQUENCEID, "0" as ISMARK
from TBL_QUESTION
insert into TBL_QUESTION_RT(PROJID, EXAMID, SECTIONID, QUESID, EXAMINEEID, QUESANSWER, EXAMINEEANSWER, QUESSCORE, EXAMINEESCORE, SEQUENCEID, ISMARK )
Select "P1006" as PROJID, "P1006E01" as EXAMID , SECTIONID, QUESID, "C100009"