在 BCB 中 , BCB 將 Pascal 的 string type 寫成一個物件類別 我想在 Delphi 中實作這個 物件類別 不知有否長官可以給我範例指導,謝謝 例如此類別定義叫做 mystring 傳統寫法 string s; s:='123456'; ShowMessage(Copy(s,1,5)); ShowMessage(IntToStr(Length(s))); mystring 物件類別的用法 (像是 BCB) mystring s; s:='123456'; ShowMessage(s.SubString(1,5)); ShowMessage(IntToStr(s.Length()));

Not tested (and no error checking/handling), just an idea  < class="code">type mystring = class private FStr: string; public constructor Create; overload; constructor Create(const Value: string); overload; function Length: integer; function SubString(StartPos, Len: integer): string; end; procedure mystring.Create; begin inherited; FStr := ''; end; procedure mystring.Create(const Value: string); begin Create; FStr := Value; end; function mystring.Length: integer; begin Result := System.length(FStr); end; function mystring.SubString(StartPos, Len: integer): string; begin Result := Copy(FStr,StartPos,Len); end; {....} s := mystring.Create('123456'); ShowMessage(s.SubString(1,5)); ShowMessage(IntToStr(s.Length));

謝謝長官 跟我點一下 我就可以舉一反三了 對了 BCB 中 string 可以直接宣告並指定 如 string a="123456"; 不用下 create 的指令... c/c 並沒有 string 這種型態 看bcb書上說bcb也是用宣告去模擬 pascal string 的型態 我在研究看看 ...