C++Builder相談室 Part19
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2008/08/01(金) 16:30:32※2008/07よりCodeGear(Borland IDE/DB部門)はBorlandからEmbarcaderoに移動しました
【前スレ】
C++Builder相談室 Part18
http://pc11.2ch.net/test/read.cgi/tech/1188607282/
過去スレ・関連サイトは>>2-7あたり。
※Borland C++ Compiler 5.5.1についての質問は以下のスレへ
タダで使えるBorland C++ Part5
http://pc11.2ch.net/test/read.cgi/tech/1135127048/
※BDS(Borland Developer Studio)の総合スレはこちら
Borland Developer Studio 2006 No.13
http://pc11.2ch.net/test/read.cgi/tech/1175861395/
※CodeGear(Borland/Embarcadero)関連はこちら
【CodeGear】Embarcaderoオッチャ その10
http://pc11.2ch.net/test/read.cgi/tech/1216250111/
＜関連スレ＞
くだすれC++Builder（超初心者用）その3
http://pc11.2ch.net/test/read.cgi/tech/1171219191/
[Tips]Borland C++Builder ちょいテク No.01
http://pc11.2ch.net/test/read.cgi/tech/1154580209/
【Delphi】 Indyコンポーネント 【C++Builder】
http://pc8.2ch.net/test/read.cgi/tech/1093654251/
0159155
2008/10/23(木) 16:30:300160デフォルトの名無しさん
2008/10/23(木) 16:34:11ああ、それだ。滅多に使わないから忘れかけてた。
Delphiならスマートに書けるのだがC++Builderならムリヤリ感が。
>>158
まあそういう事だ。
0161デフォルトの名無しさん
2008/10/23(木) 16:44:00普段はオブジェクトインスペクタからいじっちゃうからね
コードでいじる場合はどうしてもヘルプ頼りに
0162デフォルトの名無しさん
2008/10/23(木) 16:52:42TVarRecとか
カッコを二重に書かなければならないのを時々忘れる
0163デフォルトの名無しさん
2008/10/23(木) 16:54:480164デフォルトの名無しさん
2008/10/29(水) 11:22:19C++BuilderでVBスクリプト？を使ってSNMPで値の送受信を行いたいのですが
VBのソースは以下の通りです
Dim objSNMP
Set objSNMP = CreateObject("OlePrn.OleSNMP")
objSNMP.Open "192.168.0.40", "public", 2, 1000
Dim myObjectValue
ObjectValue = objSNMP.Get(".1.3.6.1.2.1.1.4.0")
WScript.Echo ObjectValue
objSNMP.Set ".1.3.6.1.2.1.1.4.0", CStr("e-mail:[email protected] tel:xxx-xxxx-xxxx")
Dim myChangedObjectValue
myChangedObjectValue = objSNMP.Get(".1.3.6.1.2.1.1.4.0")
objSNMP.Close()
これをC++Builderではどのような記述になるのでしょうか？
CreateObjectはたぶんこんな感じになると思うのですが
この続きの記述を教えてください。。
Variant cn = Variant::CreateObject("OlePrn.OleSNMP");
0165デフォルトの名無しさん
2008/10/30(木) 16:49:460166デフォルトの名無しさん
2008/10/30(木) 16:53:580167デフォルトの名無しさん
2008/10/30(木) 16:58:200168デフォルトの名無しさん
2008/10/30(木) 17:02:530169デフォルトの名無しさん
2008/10/30(木) 18:41:080170デフォルトの名無しさん
2008/10/30(木) 19:02:180171デフォルトの名無しさん
2008/10/31(金) 15:32:060172デフォルトの名無しさん
2008/10/31(金) 15:37:40ほんとお前らって何の役にも立たないブタだよな・・・
0173デフォルトの名無しさん
2008/10/31(金) 16:27:080174デフォルトの名無しさん
2008/11/01(土) 00:31:47役に立たないどころかすべてが計算通りに進んだということですｗ
0175デフォルトの名無しさん
2008/11/03(月) 20:06:59656,000,1123,5454
756,000,5454,3455
545,001,6565,4554 6565
545,002,5455,7775 → 5455
223,006,5656,9898 5656
054,004,5554,5554 5554
・ ・
・ ・
・ ・
843,022,6643,4443 6643
565,011,3434,4455 3434
656,000,3343,2432
789,000,5545,6665
こんな感じで配列が並んでいるのですが各数列の２番目数字が000以外のときに
３番目の数字だけを配列として順にMemo1にだしたいのですがどのようにすればよいでしょうか
0176デフォルトの名無しさん
2008/11/03(月) 20:10:04csv方式で
656,000,1123,5454
756,000,5454,3455
545,001,6565,4554 6565
545,002,5455,7775 → 5455
223,006,5656,9898 5656
054,004,5554,5554 5554
・ ・
・ ・
・ ・
843,022,6643,4443 6643
565,011,3434,4455 3434
656,000,3343,2432
789,000,5545,6665
こんな感じで配列が並んでいるのですが各数列の２番目数字が000以外のときに
３番目の数字だけを配列として順にMemo1にだしたいのですがどのようにすればよいでしょうか
0177デフォルトの名無しさん
2008/11/03(月) 20:28:15{
std::ifstream ifs("File1.txt");
std::string str;
AnsiString as;
if (ifs) {
TStringList* Data = new TStringList;
Data->Delimiter = ',';
while (std::getline(ifs, str)) {
Data->DelimitedText = str.c_str();
if (Data->Strings[2] != "000")
Memo1->Lines->Add(Data->Strings[3]);
}
delete Data;
}
0178デフォルトの名無しさん
2008/11/03(月) 20:30:24void __fastcall TForm1::Button1Click(TObject *Sender)
{
std::ifstream ifs("File1.txt");
std::string str;
AnsiString as;
if (ifs) {
TStringList* Data = new TStringList;
Data->Delimiter = ',';
while (std::getline(ifs, str)) {
Data->DelimitedText = str.c_str();
if (Data->Strings[1] != "000")
Memo1->Lines->Add(Data->Strings[2]);
}
delete Data;
}
}
0179デフォルトの名無しさん
2008/11/03(月) 20:44:28いらないけどさ
0180デフォルトの名無しさん
2008/11/03(月) 20:46:46ごめんそうです
削ってくらはい
0181デフォルトの名無しさん
2008/11/03(月) 20:56:09ありがとうございます！
csv形式のテキストはオープンダイアログから読み込みその中から抽出することはできるのでしょうか
また先ほどの文で
DelimiterとDelimitedTextはTStringListのメンバーではないと言われるのですが
何か宣言文などが必要なのでしょうか。
まだまだ初心者でして；いろいろご迷惑かけてすいません。
0182デフォルトの名無しさん
2008/11/03(月) 21:17:26>csv形式のテキストはオープンダイアログから読み込みその中から抽出することはできるのでしょうか
できます。
TOpenDialog->Filesに入ります。
>DelimiterとDelimitedTextはTStringListのメンバーではないと言われるのですが
>何か宣言文などが必要なのでしょうか。
えっもしかしてC++Builderのバージョンは5以前ですか？
0183デフォルトの名無しさん
2008/11/03(月) 23:14:27書いてみました。
コンマの数や桁数などは決め打ちになってますので必要ならば適宜変更して
ください。
void __fastcall TForm1::Button2Click(TObject *Sender)
{
OpenDialog1->Execute();
std::ifstream ifs(OpenDialog1->FileName.c_str());
std::string str;
if (ifs)
while (std::getline(ifs, str)) {
std::string::size_type pos = str.find(',') + 1;
if (str.substr(pos, 3) != "000") {
pos = str.find(',', pos) + 1;
Memo1->Lines->Add(str.substr(pos, 4).c_str());
}
}
}
0184デフォルトの名無しさん
2008/11/04(火) 19:29:47返事が遅れてすいません。ありがとうございました！大変感謝しています
こちらのやり方で動きました。c++builderはver5を使っています
あと桁数をコンマの数をかえるとのことなのですが、
桁数を変える場合は５桁表示するならpos 5 にすればよいことはいじっていてわかったのですが
コンマの位置を変える場合どの部分を変えていけばよいのでしょうか・・・
よろしければアドバイスお願いします＞＜
実際の応用テキストではさらに数字が多く６番目数字(コンマ５つ目)が00:00:00(桁数は変化しない)以外の時に
１１番目(コンマ１０個目)の数字を表示するようにしたいのです。実際に表示したい数字も小数点を含む5.55(桁数は変化しない)などです。
0185デフォルトの名無しさん
2008/11/04(火) 20:07:38かなり汚いですが一応動くので載せておきます。
コンマの位置を変えるにはfor文の数字をいじればいいですが、
できればコンマn番目から次のコンマもしくは行末までの文字列を
取り出す関数を別に作ってそれを呼び出した方が綺麗に書けると
思います。
void __fastcall TForm1::Button4Click(TObject *Sender)
{
OpenDialog1->Execute();
std::ifstream ifs(OpenDialog1->FileName.c_str());
std::string str;
if (ifs)
while (std::getline(ifs, str)) {
std::string::size_type pos = 0;
for (int i = 0; i < 5; i++) {
if((pos = str.find(',', pos)) == std::string::npos)
goto next;
pos++;
}
次に続く
0186デフォルトの名無しさん
2008/11/04(火) 20:08:38if (str.substr(pos, pos2 - pos - 1) != "00:00:00") {
pos = pos2;
for (int i = 0; i < 3; i++) {
if((pos = str.find(',', pos)) == std::string::npos)
goto next;
pos++;
}
pos2 = str.find(',', pos);
if (pos2 == std::string::npos)
pos2 = pos;
else
pos2++;
Memo1->Lines->Add(str.substr(pos2, 4).c_str());
}
next:;
}
}
要するにTStrings::operator[] の機能を自前で書けばすっきりするはずです。
0187デフォルトの名無しさん
2008/11/04(火) 20:21:50__property AnsiString Cells [int rows] [int cols]= {read=GetCell, write=SetCell};
こんなメンバ持たせたCSVクラス作って使ってるなぁ
0188デフォルトの名無しさん
2008/11/04(火) 20:29:44BCBはDelphiとのインターフェースが割合簡単に取れるから、
Delphiで書かれたcsvパッケージでも入れたら楽でしょうね。
0189デフォルトの名無しさん
2008/11/04(火) 20:31:03ありがとうございます。重ね重ねすいません；；
if (str.substr(pos, pos2 - pos - 1) != "00:00:00") の部分がよくわからなくて
６番目の数字が00:00:00場合読み込まないようにするのではなく一つ増えて00:00:00:00の場合に読み込まないようにするには
どのように変更したらいいのでしょうか・・
実際１１番目の数字(6.44や9.88など桁数は変らず)を表示させるときは６番目の数字が00:00:00:00以外のとき(00:00:00:45や00:00:05:35など)でこちらも桁数については変りません。
0190デフォルトの名無しさん
2008/11/04(火) 20:33:23今回のプログラムは00:00:00の桁数については決め打ちしていませんので
"00:00:00"を"00:00:00:00"に変更すればいいです。
0191デフォルトの名無しさん
2008/11/04(火) 20:56:52わざわざありがとうございます；；どうやら勘違いしていたようでした。
実際の00:00:00:00のテキストのほうではコンマごとにわかりやすいように半角スペースがついており
半角スペース５列数字、半角スペース１列数字、半角スペース１列数字、半角スペース３列数字・・・
などのように書かれており上記のプログラムで半角スペースも認識されるため正しい数字が出せていないようでした。
（半角スペースを全部埋めていった場合正しい数字がでました。）
半角スペースを含んだ上で数値を出したいのですがこういう場合どのようにすればいいのでしょうか。
0192デフォルトの名無しさん
2008/11/04(火) 21:03:36これ以上後出し条件はやめてください。
どこかのロダにそのテキストをうｐしていただけませんか。
0193デフォルトの名無しさん
2008/11/04(火) 21:06:59TStringsListのバージョンは古くて使えないしだから
C++相談室にでも書いてみたら？
0194デフォルトの名無しさん
2008/11/04(火) 21:08:06あなた専用のサポートスレではないんですよって感じですかね
0195デフォルトの名無しさん
2008/11/04(火) 21:13:55イラッと来ると思うけどね
0196デフォルトの名無しさん
2008/11/04(火) 21:18:54TStringListに分解する関数を作って使ってる。
この関数１個あれば、CSVを全然意識せずに文字列として扱える。
0197デフォルトの名無しさん
2008/11/04(火) 21:25:44最初の頃は全然使い方が分からなくて、その頃に丁度Delphi6
のフリー版が出たので、Delphi本をBCBに翻訳しながら打ち込んで
動かす事で覚えたっけ。
お陰様でBCB6からは自由自在に使えるようになった。参考書も
BCB用が皆無の頃でDelphi本を買って参考にしたっけ。
0198デフォルトの名無しさん
2008/11/04(火) 21:31:37次からはもう少し慎重に確認していくように注意します。
ここから先は自己解決していきたいと思います。
何度も教えていただきありがとうございました！！
0199デフォルトの名無しさん
2008/11/04(火) 21:32:21少しの言語拡張とC++のクラスの柔軟性とマクロの多用で対応して
いるが、今見ても頭がおかしい人が設計したんじゃないかと思う事がある
0200デフォルトの名無しさん
2008/11/05(水) 09:16:56CommaTextというプロパティがあってね・・・
１例だけ特殊対応しなければいけないけど大抵はこのプロパティだけで大丈夫だな
0201デフォルトの名無しさん
2008/11/05(水) 12:43:08CSVの記述が正確ではない場合
悲惨な結果をもたらすことになる。
趣味なら笑って済ますことも出来るだろうが
業務用プログラムでは、
とてもじゃないが、CommaTextは使えない。
0202デフォルトの名無しさん
2008/11/05(水) 13:39:21それスペースまで区切りとみなしちゃうだろ？
""で囲ってあればいいけどそうでないのってどうしてる？
0203デフォルトの名無しさん
2008/11/05(水) 13:41:32その後、TStringList系は使いまくってるけど。
0204203
2008/11/05(水) 13:42:270205デフォルトの名無しさん
2008/11/05(水) 13:49:10>>201CSVの記述が正確では無かったら何やっても悲惨になるんだがｗ
俺はStringListに分解したあとにチェック入れてる
0206デフォルトの名無しさん
2008/11/05(水) 13:57:34これって６から？
0207デフォルトの名無しさん
2008/11/05(水) 13:59:24そう
俺はBCB6から本格的にBCBを使い出したからBCB5以前の
奴とは話が時々合わず苦労する
0208デフォルトの名無しさん
2008/11/05(水) 14:01:56Indy増えるし、やっぱそれに関しては無条件バージョンうｐじゃね？
6から200Xへはやったことないｶﾞｸﾌﾞﾙ
0209デフォルトの名無しさん
2008/11/05(水) 14:24:24Delphi + BCB で3万円が妥当な価格だと思う
エンバカは高く設定し過ぎ
0210デフォルトの名無しさん
2008/11/05(水) 16:24:570211デフォルトの名無しさん
2008/11/09(日) 20:51:23業務アプリはネイティブで作ると楽だけど配布がウザすぎてWebにしたくなる。
0212デフォルトの名無しさん
2008/11/11(火) 17:24:47CLXアプリをVCLアプリに書き換えてるんですが、CLXのラジオボタンがスペーキーを押すまでチェックされないみたいなので…
環境はCLX→6.0 VCL→2007です
0213デフォルトの名無しさん
2008/11/11(火) 19:38:51バカに貢俺らって、バカ馬鹿だな
0214デフォルトの名無しさん
2008/11/11(火) 20:12:420215デフォルトの名無しさん
2008/11/16(日) 15:27:45そのA1とA2の配列の計算をしたいのですが
AnsiString k1;
for(int j=0;j<500;j++){
k1 = A1->Strings[j] + A2->Strings[j];
Memo1->Lines->Add(k1);
}
こんな形でやってみたところA1とA2の同じ行が足し算されず
メモにはA1とA2の同じ行の数字が並んで表示されているだけなの
ですがこれでは配列の足し算はできていないのでしょうか？
どなたかよければアドバイスお願いします。
0216デフォルトの名無しさん
2008/11/16(日) 15:34:11C++のデータには「型」があるんよ。数値とか文字とか。
StrToIntとかで数値に変換してから足せ。
0217デフォルトの名無しさん
2008/11/16(日) 16:13:42型で変換してみたのですが少数を含んだ数値の配列で
strtodで
AnsiString k1;
for(int j=0;j<500;j++){
k1 = strtod(A1->Strings[j]) + strtod(A2->Strings[j]);
Memo1->Lines->Add(k1);
}
と書いたときTStringlistに格納しているものなので、AnsiStringに一致するものが見つからないと出て
しまいます。どのような変換で書いていけばよいのでしょうか
各配列の数値は 197.543545 や54.47673423のような数値の500個の配列です。
0218デフォルトの名無しさん
2008/11/16(日) 16:46:250219デフォルトの名無しさん
2008/11/16(日) 16:48:05A1->Strings[j].ToDouble()
0220デフォルトの名無しさん
2008/11/16(日) 16:59:450221デフォルトの名無しさん
2008/11/16(日) 17:04:48ありがとうございます。
うまく変換して計算することができました。
0222デフォルトの名無しさん
2008/11/16(日) 17:24:360223デフォルトの名無しさん
2008/11/17(月) 15:37:380224デフォルトの名無しさん
2008/11/17(月) 16:26:550225デフォルトの名無しさん
2008/11/17(月) 16:45:240226デフォルトの名無しさん
2008/11/17(月) 16:57:010227デフォルトの名無しさん
2008/11/17(月) 17:07:160228デフォルトの名無しさん
2008/11/18(火) 02:53:53どのようにすれば良いのでしょうか。
モジュール 'rtl100.bpl' のアドレス 51F515BE でアドレス 00000008 に対する読み込み違反がおきました。
EPackageRegistrationException がモジュール coreide100.bpl の 000DCB21 で発生しました。
登録プロシージャ Cppproject.IDERegister (パッケージ c:\program files\borland\bds\4.0\Bin\bcdide100.pbl) が例外クラス EOleSysError を生成しました: クラスが登録されていません, ClassID: {F8FEDD39-E3CE-4B8D-A657-9CA24686881F}.
モジュール 'coreide100.bpl' のアドレス 20BA0DAF でアドレス 00000004 に対する読み込み違反がおきました。
モジュール 'designide100.bpl' のアドレス 20EE71DE でアドレス 00000000 に対する読み込み違反がおきました。
Borland® Developer Studio for Windows は動作を停止しました
問題が発生したため、プログラムが正しく動作しなくなりました。このプログラムを閉じてください。
0229デフォルトの名無しさん
2008/11/18(火) 14:04:08ttp://support.codegear.com/article/36202
0230デフォルトの名無しさん
2008/11/18(火) 22:52:25教えて頂いたリンク先にあった内容や、
ttp://support.codegear.com/article/37345にあった内容を試したのですが、全く状況に変化が見られませんでした…
どうも無理そうなので、とりあえずVista正式対応を待つことにします。
0231デフォルトの名無しさん
2008/11/18(火) 23:08:460232デフォルトの名無しさん
2008/11/25(火) 13:49:410233何をしたいのかを具体的に書けば有効な回答が得られるのでは？
2008/11/25(火) 22:38:530234デフォルトの名無しさん
2008/12/03(水) 11:42:25指定コントロールのヒントを手動で表示される方法を教えてください
0235デフォルトの名無しさん
2008/12/03(水) 22:57:470236デフォルトの名無しさん
2008/12/04(木) 10:40:48なるほど。
まずはちょっと試してみますありがとう
0237デフォルトの名無しさん
2008/12/04(木) 22:47:38ローカルはOK、リモートでもコネクションは繋がってテーブル名は見える。
が、テーブルを開こうとするとエラー65535がでて繋がらない。
0238デフォルトの名無しさん
2008/12/08(月) 17:23:25０
０
０
０
１
１
０
０
１
１
・
・
・
１
１
０
０
０
とこのような感じで０と１が何千行と出されているのですがメモの上から順番にforで回して
１が出た場合その行数とそこから１がどれだけ続いたかカウントしていくプログラムを作成したいのですが
どういったようにつくっていけばよいのでしょうか？
0239デフォルトの名無しさん
2008/12/08(月) 17:26:46先ず何が問題？
・C++文法
・ファイル操作
・ロジックの書き方
0240デフォルトの名無しさん
2008/12/08(月) 17:34:38それってMemoでなくても配列の中に1がいくつ続いているかを
数えるのと同じ問題だよね
0241デフォルトの名無しさん
2008/12/08(月) 18:05:48お前等が馬鹿すぎてﾜﾛﾀ
知らないならレスするなよクズ共
>>238は普通にTMemoでどうやって書くかを聞いてんだろｗ
Memo->Lines->Count
Memo->Lines->Strings[i]
0242デフォルトの名無しさん
2008/12/08(月) 18:10:12？？
0243デフォルトの名無しさん
2008/12/08(月) 18:12:350244デフォルトの名無しさん
2008/12/08(月) 18:18:490245デフォルトの名無しさん
2008/12/08(月) 22:00:28何がわからないのかを書いていない。
基本的に質問の仕方を知らない。
きっと何がわからないのかさえわからないのだろう。
そんな人は、たぶん論理的に組み上げていく
プログラミングということはムリなのではないかと思う。
丸投げで全部教えてもらいたかったら
C/C++の宿題を片付けます 119代目
http://pc11.2ch.net/test/read.cgi/tech/1228313292/
こっちで聞くべき
0246デフォルトの名無しさん
2008/12/09(火) 10:29:15答え方がわからないならレスしないで下さい。ウザイだけです。
0247デフォルトの名無しさん
2008/12/09(火) 11:07:58おいばかやめろ
Win32APIスレから出てこないでください
0248デフォルトの名無しさん
2008/12/09(火) 15:57:060249デフォルトの名無しさん
2008/12/09(火) 23:48:23今C++Builder動く環境にないので疑似コードで。
変数start_posに-1を代入。（-1は「カウントしてない」というマーキング）
変数iを使って、メモ１の最初から最後までループを回す。{
start_posの値が-1で、{
メモ１の行iの内容が"1"なら、{
start_posにiの値を代入。
}
}
そうじゃなくて、{
メモ１の行iの内容が"0"なら、{
start_posの値が"1"の開始位置を指しているので、これを表示。
そして(i-start_pos)の計算結果が"1"の続いた個数なので、これも表示。
次のカウントのために、start_posに-1を代入する。
}
}
}
連続したデータを処理するときはいろんなやり方があるけど、
・データの変わり目に注目する。（"1"の始まりと、"1"の終わり="0"の始まり）
・変わり目でプログラムで行う処理を切り替える。（カウント中と、結果表示＆カウント終了）
とするのが一つの方法。
0250デフォルトの名無しさん
2008/12/14(日) 08:53:260251デフォルトの名無しさん
2008/12/15(月) 00:47:490252デフォルトの名無しさん
2008/12/15(月) 00:51:00ちゃんとした店なら買う時に学生証見せてなんか書かなきゃいけないと思うけど
0253デフォルトの名無しさん
2008/12/15(月) 14:15:38あれ今もあるのかな
0254デフォルトの名無しさん
2008/12/15(月) 17:20:08dclusr.dpkを読み込もうとすると、これがないって
えらーになるんですが、
Delphiをインストールしないとダメですか？
0255デフォルトの名無しさん
2008/12/15(月) 17:22:200256デフォルトの名無しさん
2008/12/18(木) 14:45:240257デフォルトの名無しさん
2008/12/18(木) 14:51:33TScreen::Cursors
0258デフォルトの名無しさん
2008/12/18(木) 15:01:00そこにLoadCursorでぶち込むんですよね？
それってリソースに予めないとダメですよね？
■ このスレッドは過去ログ倉庫に格納されています