DELPHI 7 学习笔记

[ 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"