String 物件 |
尚未結案
|
bruce0211
版主 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
在 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()));
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
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));
|
bruce0211
版主 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |