くだすれDelphi(超初心者用)その51

くだすれDelphi(超初心者用)その51at TECH

くだすれDelphi(超初心者用)その51 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

954:デフォルトの名無しさん
 10/07/05 17:05:21 
そういうときはIndyのバージョンも書けよ

955:デフォルトの名無しさん
 10/07/05 17:31:55 
Double, Integer, Byte, Word, ShortIntなどの2値を比較し、その結果を返すような関数を作りたいのですが、 
 
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : TypeID ): Boolean; 
begin 
 if ( srcVal < dstVal) then begin 
  Result := False; 
 end else begin 
  Result := True; 
 end; 
end; 
 
イメージ的にこういう感じのメソッドを作る方法ってないもんでしょうか。 
↑だと、型が限定されないからか、コンパイルが通りません。 
 
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : Double ): Boolean; 
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal :  ): Boolean; 
function TCompareClass.chkValProc<TypeID>( const srcVal, dstVal : TypeID ): Boolean;

956:デフォルトの名無しさん
 10/07/05 17:33:11 
失礼しました。後半あやまって送信してしまいました 
 
function TCompareClass.chkValProc( const srcVal, dstVal : Double): Boolean; 
function TCompareClass.chkValProc( const srcVal, dstVal : Integer ): Boolean; 
function TCompareClass.chkValProc( const srcVal, dstVal : Byte ): Boolean; 
function TCompareClass.chkValProc( const srcVal, dstVal : Word ): Boolean; 
function TCompareClass.chkValProc( const srcVal, dstVal : ShortInt ): Boolean; 
 
こういう風に全部用意してやれば一応目的は達成できるのですが、1つにまとめたく思います。

次ページ