掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
「；」区切りの読込みをするには？ (ID:2818)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自己レスです。 CommaTextみたいに簡単にできる方法はないかと考えていましたが、 セミコロンをカンマに置き換えてリスト表示することにしました。。。 var IndexText : String; GridText : String; c : SmallInt; begin IndexText := Table1.IndexFieldNames; repeat // セミコロン位置の取得 c := AnsiPos(';',IndexText); // セミコロンをカンマに置き換える if c > 0 then GridText := GridText + Copy(IndexText,1,c - 1) + ',' else if c = 0 then GridText := GridText + Copy(IndexText,1,Length(IndexText)); IndexText := Copy(IndexText,c + 1,Length(IndexText)); until c = 0; ListBox1.Items.CommaText := GridText; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.