掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FieldByNameのような関数を自作したい (ID：28799)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Memo1.Lines.Add(MyTabel.FieldByName('CUSTOM')); のように単純に関数で返すのならば Fname を StringList にして function First; begin Index := 0; end; function Next; begin Inc(Index); end; function FieldByName(FieldName:String):String; begin FieldIndex := StringList.IndexOf(FieldName); if FiledIndex <> -1 then begin Result := DataS[FiledIndex,Index]; end else begin //Fieldが存在しない end; end; .AsString で返すのならば TMyField だけでは無理です TBinaryFieldみたいのを作成して下さい
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.