掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMyStringHelperの代案について (ID：48331)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
tomoさんこんにちは。 実際に使ってはいませんが、こんな感じならできます。 type MyString = type string; type TMyStrigHelper = record helper for MyString function Double: string; end; function TMyStrigHelper.Double: string; begin result := self + self; end; procedure TForm1.Button1Click(Sender: TObject); var wStr : MyString; s : string; begin wStr := 'A000'; ShowMessage(wStr.Double); s := 'A111'; ShowMessage(MyString(s).Double); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.