【Delphi7】字串的處理

uses ..., StrUtils;

...
...

var
    wstr: WideString;
    str: string;
    ss: string;
    x: integer;
begin
    // 同樣的字串, 存成不同的字串型態
    // 就會有不同的結果
    wstr := '一二三四五67八九十';
    str := '一二三四五67八九十';
    x := Length(str);     // x = 18 = 8 個中文字 + 2 個英數字 = 8*2 + 2 = 18
    x := Length(wstr):    // x = 10 = 實際字數

    ss := LeftStr(str,6);     // ss = '一二三四五6'
    ss := LeftStr(wstr,6);    // ss = '一二三四五6'
    ss := copy(str, 6);       // ss = '一二三' 
    ss := copy(wstr, 6);      // ss = '一二三四五6'
end;