1001コメント290KB

くだすれDelphi（超初心者用）その25

■ このスレッドは過去ログ倉庫に格納されています

0001774:　3　　　挿入

2005/06/17(金) 20:34:51

このスレッドはBorland（ボーランド）のDelphi（デルファイ）について、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

＜前スレ＞
くだすれDelphi（超初心者用）その24
http://pc8.2ch.net/test/read.cgi/tech/1115581376/

＜雑談・討論などはこちらへ＞
ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室その23
http://pc8.2ch.net/test/read.cgi/tech/1116997081/

＜その他＞
Borland Home Page
http://www.borland.co.jp/
DelWiki （無料版Delphiの入手方法など）
http://onigiri.s3.xrea.com:8080/delphi/

0002774:　3　　　挿入

2005/06/17(金) 20:36:00

0003774:　3　　　挿入

2005/06/17(金) 20:36:41

0004デフォルトの名無しさん

2005/06/17(金) 22:06:43

ペ様

0005デフォルトの名無しさん

2005/06/17(金) 23:53:43

Delphi2005のWin32のVCLはUnicodeに対応していますか？

0006デフォルトの名無しさん

2005/06/18(土) 00:50:35

>5
してない
TNTを使えとのこと

0007デフォルトの名無しさん

2005/06/18(土) 04:56:51

そういやTNTの爆弾マークの意味最近知った

0008デフォルトの名無しさん

2005/06/18(土) 06:37:39

>>6
ありがとうございます。
{$IFDEF　UNICODE}
とかでunicodeにできるといいなあとか思ったりしました。
いちいち～WとかWIde～とか面倒ですし

0009デフォルトの名無しさん

2005/06/18(土) 08:18:42

普段からTNTで作ればよいのでは？

0010デフォルトの名無しさん

2005/06/18(土) 10:20:11

ユニコードを使うなら、もう VCL+TNT なんていう中途半端はやめた方がいい。
C# でやりましょう。

0011デフォルトの名無しさん

2005/06/18(土) 10:26:23

　TreeView1 のコピーを以下のようにしているのですがノードが1000以上になると目立って
遅くなります。何かいい方法はないでしょうか？
SubTree.Items.BeginUpdate;
SubTree.Items.Clear;
SubTree.Items.Assign(MainTree.Items);
SubTree.Items.EndUpdate;

0012デフォルトの名無しさん

2005/06/18(土) 10:39:11

>>10
巣にお帰り

0013デフォルトの名無しさん

2005/06/18(土) 10:40:03

>>11
ヒント：仮想

0014デフォルトの名無しさん

2005/06/18(土) 12:03:32

え？
TTreeViewにもTListViewの仮想リストビューのようなものが使えるのですか？

0015デフォルトの名無しさん

2005/06/18(土) 12:26:48

ちょっと癖があるけど
http://www.delphi-gems.com/VirtualTreeview

使えるようになると便利

0016デフォルトの名無しさん

2005/06/18(土) 16:58:14

エクスプローラにD&Dした時にD&D先のPathを取得したいんだけど
どうしたらいいのでしょうか?

エクスプローラからファイル名を取得したり、
エクスプローラへファイル名を渡してコピーする、
というのはいくつか情報が見つかりましたが、
上記の方法がわかりません。

0017デフォルトの名無しさん

2005/06/18(土) 18:22:35

>>16
失礼かもしれないけど、自分の作ったアプリにドラッグアンドドロップされたファイル名を受け取るロジックは理解しているの？

0018デフォルトの名無しさん

2005/06/18(土) 18:22:55

OLE D&D でググル

0019デフォルトの名無しさん

2005/06/18(土) 18:24:15

>>17
受け取るのと渡すのでは違う。失礼かもしれないけどそこのとこ理解してる？

0020デフォルトの名無しさん

2005/06/18(土) 19:02:25

Delphi6 Personal で、
WideString から WideChar や PWideChar に変換するには、
どうしたら良いでのでしょうか？

0021デフォルトの名無しさん

2005/06/18(土) 19:27:22

>>20
WideString <-> PWideChar はキャストを使う
WideString -> WideChar は[ ]で何文字目か指定する

const
　ws: WideString = 'hoge';
var
　pwchar: PWideChar;
　wchar: WideChar;
begin
　pwchar := PWideChar(ws); //キャストで代入

　wchar := s[1]; //sの1文字目を取り出す
end;

0022デフォルトの名無しさん

2005/06/18(土) 19:28:42

>>21
訂正
wchar := ws[1]; //wsの1文字目を取り出す

0023デフォルトの名無しさん

2005/06/18(土) 19:30:50

Delphi6をインスコしようと思いフリメでライセンス登録をしたのですが、最終確認メールが届きません
サイトでは送信しました。と表示されているのですが・・・
これってすぐには届かないものなのでしょうか？

002423

2005/06/18(土) 19:57:41

すみません前スレ読んでませんでした
>>332　>>974付近をよく読んでみます
気長に待って見ます　ご迷惑をお掛けしました

0025デフォルトの名無しさん

2005/06/18(土) 22:03:23

TShellListView でフォルダー（仮想フォルダーではない）を表示しないようにできますか？

0026デフォルトの名無しさん

2005/06/18(土) 22:14:48

>>25
ＡｄｄＦｏｌｄｅｒイベントで追加されようとしているアイテムをＩｓＦｏｌｄｅｒで調べてＴｒｕｅだったら追加しない。

0027デフォルトの名無しさん

2005/06/19(日) 00:07:57

全角ｷﾓｊ

0028デフォルトの名無しさん

2005/06/19(日) 00:53:29

じゃあ来るな。

0029デフォルトの名無しさん

2005/06/19(日) 01:43:25

ＫＩＭＯ

0030デフォルトの名無しさん

2005/06/19(日) 04:10:31

Delphi6 Personal とMSXMLを使っています
CDATAセクションを読み取るにはどうすればよいでしょうか？
niftyのmsxmlサンプルを読んでみましたがCDATAについて書いていませんでした

0031デフォルトの名無しさん

2005/06/19(日) 10:37:39

D6Pなんだが以下と同じ現象でTUIWebBrowserのインストが出来ないんだけど
どのファイルをイジればいいんだ？アフォーでスマンけど教えて
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200309/03090064.txt

003220

2005/06/19(日) 14:15:55

>>21
詳しくありがとうございました。できました。
メモっておこう......

0033デフォルトの名無しさん

2005/06/19(日) 15:45:47

　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿__
　　　　　　|　＿＿＿＿＿＿＿＿＿＿＿__　 |
　　　　　　|　|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::|　|
　　　　　　|　|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::|　|　　ｻﾞｰ
　　　　　　|　|:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::|　|
　　　　　　|　|::::::::::::::::::::::::::::::::::::;;;;;;;;;;;::::::::::::::|　|
　　　　　　|　|:::::::::::/￣￣￣｀´　　　 `ヽ:::::::|　|
　　　　　　|　|::::::::::|　　:ill||||||||||ll:　,-‐‐､l::::::|　|
　　　　　　|　￣￣|　　||||||||||||||||「しi .l ll￣　 .|
　　　　　　|￣「￣|　　|||||||||||||||||i￣川ﾘ￣|￣|
　　　　　　|＿|　ﾉ　　 ||||||||||||||||||　　　　　|＿|
　　　　　　　　/　　　 ||||||||||||||||||
　　　　　　　 /　　　 /||||||||||||||||||
　　　　　　　/￣/￣　|||||||||||||||||
　　　　　　 /　 /　　　 |l|l|l|l|l|l|l|l
　　　　　／　／　　　　|l|l|l|l|l|l|ll
　　　　/　ﾍJ　　　　　　l|l|l|l|l|l|l
　　　　ﾉ川　　　　　　　 ||l||l||ll

【呪いのコピペ】
このレスを見た人は1週間以内に他のスレへコピペしてください。
そうしないと突然ディスプレイからうわなんだおまえやめ

0034デフォルトの名無しさん

2005/06/19(日) 16:04:31

あついなヲイ

0035デフォルトの名無しさん

2005/06/20(月) 00:46:01

あの、ほんとーーにしょうがない質問で恐縮なのですが、
どうやったら皆さんの言う「プログラミング」たるものが作れるんでしょう・・？
なにかソフトを買ってきてＰＣに入れるんですか？それとももうＰＣに作れるようになっているのでしょか？
なんだか自分でもよくわかんない質問ですみません。。
プログラミングは初心者の初心者なんで、お手柔らかに教えていただけると嬉しいです。。。

0036デフォルトの名無しさん

2005/06/20(月) 01:07:00

あついなヲイ

0037デフォルトの名無しさん

2005/06/20(月) 01:20:49

まず粘土を買って来い

0038デフォルトの名無しさん

2005/06/20(月) 01:51:42

>>35
１．メモ帳を開け
２ format c: と入力
３ test.batというファイル名でデスクトップ上に保存。
４ test.batをダブルクリック
最初にプログラマが通る道だ

0039デフォルトの名無しさん

2005/06/20(月) 02:31:05

わはは、ほんとにやりかねないだろ。絶対やるなよ。

> 「プログラミング」たるものが作れるんでしょう

プログラミングを作るんではなく、プログラムをつくるのです。
で、プログラムをつくるにはそのための道具がいります。
Delphi でも無料で使用できるモノがあります。

http://onigiri.s3.xrea.com:8080/delphi/index.php?Delphi%A4%CE%C6%FE%BC%EA%A4%C8%A5%A4%A5%F3%A5%B9%A5%C8%A1%BC%A5%EB

そのほか、Perl や Ruby Java JavaScript なども無料で出来ます。

道具をインストールする必要がなく、かなりオブジェクト指向な JavaScript なんか
から手をつけるのがオススメです。本屋に行って１冊、本を買いましょう。

0040デフォルトの名無しさん

2005/06/20(月) 04:19:40

>>39
大丈夫。初心者ならtest.bat.txtで保存してくれるはずだ。

0041デフォルトの名無しさん

2005/06/20(月) 06:12:19

とりあえずここら辺を見てイメージを掴むとかｗ
ttp://www25.cds.ne.jp/~kamiken/bach/bach.html

手始めにやるなら Ruby がお勧めかな (ツッコんだことを考えだすと問題もあるけど)
日本製なので日本語の情報も本も多く、言語自体が強力で解りやすい。OOP 言語だし。
JavaScript はブラウザでゴニョゴニョするんだったら逆に辛いかも。Linux ではコンソールもあるけど。

0042デフォルトの名無しさん

2005/06/20(月) 06:26:11

何この異様な親切さ加減ｗ

0043デフォルトの名無しさん

2005/06/20(月) 07:00:46

ちょっと感動した。

0044デフォルトの名無しさん

2005/06/20(月) 14:47:48

一時的にEXEファイルを起動不可能にしたいんですけど、出来ますか？

0045デフォルトの名無しさん

2005/06/20(月) 14:56:34

>>44
出来るよ。つーか調べりゃすぐ出てくるじゃんよ！

0046デフォルトの名無しさん

2005/06/20(月) 15:26:27

「exe ファイル捨てたい」

0047デフォルトの名無しさん

2005/06/20(月) 16:09:14

TOpenDialogを使っているんですが、
ショートカットをダブルクリックすると、ショートカットファイル自体がFilesで渡されてるようです。
ダイアログの中できちんとショートカット先に進めるようにはならないでしょうか？

>ofNoDereferenceLinks
>Windows ショートカットの逆参照を無効にする
というプロパティをいじっても何も変わらず……。

環境はD6/WinXPです。

0048デフォルトの名無しさん

2005/06/20(月) 16:14:05

>>47
ショートカットからリンク先のパスを取得しれ。

0049デフォルトの名無しさん

2005/06/20(月) 16:24:03

>>45
調べても出てきません。。

>>46
そのスレを見てもさっぱり。。

005047

2005/06/20(月) 17:25:21

すいません。なんかショートカット云々以前の問題かもしれないです。
ファイル開こうとしただけで強制終了とか。ほんとにすいませんでした。

0051デフォルトの名無しさん

2005/06/21(火) 16:14:25

Windows95（非Winsock2）で、FTPクライアント機能を実現したいんですが、何かいい方法はないでしょうか。
IndyコンポーネントにはIdFTP、IdTrivialFTPコンポーネントがありますが、クライアントが
Winsock2環境でなくてはいけないという条件があり、採用できません。
Delphiのバージョンは７です。
よろしくお願いします。

0052デフォルトの名無しさん

2005/06/21(火) 16:49:47

WinInet

0053デフォルトの名無しさん

2005/06/21(火) 17:09:56

>>51
2chでダメならＭＬですか、松浦くん！

0054デフォルトの名無しさん

2005/06/21(火) 17:21:43

すいません。どうにも時間がないもので。
WinInetはDelphiで提供されているものではなく、DLLなんですね。
かなり難しそうですが、サンプルを提供されている方がいらっしゃいましたんで、
ちょっと調べてみます。
どうもありがとうございました。

0055デフォルトの名無しさん

2005/06/21(火) 23:28:13

TWebBrowserで表示されている値を取得したいです。
以前Niftyの掲示板で見たのですが以前とは変わっていて
前のログは見れなくなりました。

すいませんがどなたか教えてください。
(Niftyはやめちゃいました。)

おぼろげな記憶では
Edit1.txt := Webbrowser1.OleObject・・・・'body'

見たいな感じでした。

0056デフォルトの名無しさん

2005/06/21(火) 23:47:41

http://www.google.co.jp/search?hl=ja&q=TWebBrowser+OleObject++body&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_en

0057デフォルトの名無しさん

2005/06/22(水) 00:09:46

TTimer の interval って、処理時間の分はどうなってるのでしょうか？
例えば、interval が3分で処理時間が10分だった場合、13分おきに実行されるのでしょうか？
3分おきに実行されるのだったら、
処理時間が interval を越えて場合は、どんな処理になるのでしょうか？

0058デフォルトの名無しさん

2005/06/22(水) 00:20:44

メッセージキューで終わるのを待ってるだけ。複数たまると一つにまとめられる。
不思議なことはなにもない。

0059デフォルトの名無しさん

2005/06/22(水) 00:39:57

例えば、処理が Sleep(10 * 60 * 1000); なら、
10分おきに OnTimer が呼び出される。

0060デフォルトの名無しさん

2005/06/22(水) 06:31:06

実行ファイルから実行ファイルのリソースを編集にはどうすればよいでしょうか？
読み込みについては何とかなりそうなんですが、改変の方法がわかりません。

0061デフォルトの名無しさん

2005/06/22(水) 08:43:18

>>60
実行ファイルだろうがデータファイルだろうがファイルはファイルだよ

0062デフォルトの名無しさん

2005/06/22(水) 09:14:57

>>60
散々既出だよ。。

0063デフォルトの名無しさん

2005/06/22(水) 09:32:17

すみません。1つ上のディレクトリを取得したい場合はどのようにすれば良いでしょうか。
例えば「c:\hoge\hoge32」から「c:\hoge」を求めたいと思っています。

0064デフォルトの名無しさん

2005/06/22(水) 09:42:10

>>63
ExtractFilePath(c:\hoge\hoge32)

0065デフォルトの名無しさん

2005/06/22(水) 09:45:59

>>63
ExtractFileDir('c:\hoge\hoge32')='c:\hoge'

0066デフォルトの名無しさん

2005/06/22(水) 13:33:44

質問です。
コンポーネントのプロパティにあるTopとLeftの単位って
何を基準に考えればよいのでしょうか？
例えばTButtonの位置を、今ある位置から正確に1cmだけ
ずらしたい場合などは、実際Leftプロパティを幾つずらせば
正確に1cmずれたことになるのでしょうか？

宜しくお願いします。

0067デフォルトの名無しさん

2005/06/22(水) 13:38:14

cm・・・

0068デフォルトの名無しさん

2005/06/22(水) 13:38:17

単位はピクセル。画面の解像度で640x480とかあるじゃん。
1cmずらすというのは難しいな。モニタのサイズに依存するから。
dpi取得することなんてできるのかね。

0069デフォルトの名無しさん

2005/06/22(水) 13:40:25

>>66
あなたの環境での1cmが他の人の環境での1cmと同じだとでも？

0070デフォルトの名無しさん

2005/06/22(水) 14:06:31

>>69
dpiから計算すれば同じですね

0071魔界の天使

2005/06/22(水) 14:14:19

>>66
誤差による精度落ちが起こる可能性があるので
基準となる座標を　別に保存しておいた方がいい。

XDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
YDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);

1cmのピクセル = XDPI * 1 <cm>;
Xピクセルの長さ = X / XPI <ｲﾝﾁ>

function InchTotwips(InchValue: Extended) : integer;
begin // twips 単位 (1440 dpi)
Result := trunc(InchValue * 1440);
end;

function twipsToInch(twipsValue: Extended) : Extended;
begin // twips 単位 (1440 dpi)
Result := twipsValue / 1440;
end;

function InchToMm(InchValue : Extended) : Extended;
begin // 1 Inch - 25.4 mm
Result := InchValue * 25.4;
end;

0072魔界の天使

2005/06/22(水) 14:15:56

訂正
1cmのピクセル = InchToMm(XDPI * 1） <cm>;

0073魔界の天使

2005/06/22(水) 14:18:52

function mmToInch(MmValue : Extended) : Extended;
begin // 1 Inch - 25.4 mm
Result := MmValue / 25.4;
end;

訂正
1cmのピクセル = trunc(XDPI * mmToInch(10));

0074& ◆5dyn/GgcdE

2005/06/22(水) 14:20:45

訂正
YDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSY);

0075魔界の天使

2005/06/22(水) 14:28:47

まとめ

XDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
YDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSY);

Xピクセルの長さ　<ｲﾝﾁ> := X / XPI;
Xピクセルの長さ　<cm> := InchToMm(X / XPI) / 10;
1cmのピクセル　<ﾋﾟｸｾﾙ> := trunc(XDPI * mmToInch(10));
1ｲﾝﾁのピクセル　<ﾋﾟｸｾﾙ> := XDPI;

0076デフォルトの名無しさん

2005/06/22(水) 14:31:01

>XDPI := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
19インチと17インチのCRT両方で96が返って来る・・・
デバイスが古すぎて情報取れてないのかな。

0077デフォルトの名無しさん

2005/06/22(水) 14:54:14

>>76
何インチだろうが設定が96なら96しか返らないだろ。

0078デフォルトの名無しさん

2005/06/22(水) 15:30:09

むしろ　その1cmに本当に意味があるのかどうか　考え直せ

例えば、画面の解像度を取得して、横と縦のピクセル数のそれぞれ1/10とかでもいいんじゃないか

0079デフォルトの名無しさん

2005/06/22(水) 15:33:39

HORZSIZE物理画面の幅 (ミリメートル単位)
VERTSIZE物理画面の高さ (ミリメートル単位)

上のはプレート内の幅を含むので、見えている範囲の実寸の取り方は知らない。

008063

2005/06/22(水) 16:04:06

>>64-65
ありがとうございます。

008166

2005/06/22(水) 16:14:25

>>66です
すみません。質問の仕方が悪かったです。
実際にはQuickReportで質問した内容のことがやりたくて質問致しました。
A4サイズの紙に対し、端から何CMの位置にデータを印字したいとか、そういう話です。
混乱を招くような質問の仕方でした。本当すみません。
実際には、ミリ単位での誤差も出ないようにQRLabelなどのコンポーネントを配置しなければ
ならなかったため>>66のような質問を致しました。
皆さんに頂いたレスを参考に再度取り組んでみます。
レスして頂いた方々、ありがとうございました。

0082魔界の天使

2005/06/22(水) 17:40:53

>>81
QuickReportなら　正確な出力はむりかもしれません

カスタムコンポーネント作ったことがありますが
すこしずれます。

RatioX := GetDeviceCaps(QRPrinter.Canvas.Handle, LOGPIXELSX)
/ GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
RatioY := GetDeviceCaps(QRPrinter.Canvas.Handle, LOGPIXELSY)
/ GetDeviceCaps(Canvas.Handle, LOGPIXELSY);

に書きたい座標のピクセルかけると　
QRPrinter.Canvas,の座標になる

0083魔界の天使

2005/06/22(水) 18:05:52

QRLabel1.Left :=
trunc(1 * GetDeviceCaps(QRLabel1.Canvas.Handle, LOGPIXELSX) / 2.54);
で　いいいと思います

0084デフォルトの名無しさん

2005/06/22(水) 22:09:11

ここまでレスが付くと関心するね

0085デフォルトの名無しさん

2005/06/22(水) 22:19:01

ドライブ名(D:\とか)から、そのドライブのデバイス名(MAXTOR *****)を取得する事は可能ですか？
WMIとか使うと良いと聞いたのですが、どうもよくわかりません。

どうぞ宜しくお願いします。

0086デフォルトの名無しさん

2005/06/22(水) 23:55:55

WMIはCOMオブジェクト。よって他のCOMと同じように扱うことが出来る。
タイプライブラリに取り込むか、CreateOleObjectでオブジェクト作るかどちらかの方法で。
なおにWMIそのものの仕様についてはMSDN参照のこと。

008785

2005/06/23(木) 02:54:03

http://homepage3.nifty.com/KENCH/open/wmi/delphi_wmi.htm

ここのサンプルを見ながらやってみました。
ここで悩んだのですが、OleVariant型に格納されている値って、
それがStringかIntegerかBoolか配列なのか扱えない型なのか・・という判別は、Delphiでできるのでしょうか。
tryで総当たりしか無いでしょうか。

それと、Win32_LogicalDiskで、論理ドライブの一覧を、Win32_DiskDriveで物理ドライブの一覧を得ることができました。
しかし、論理ドライブがどの物理ドライブ上にあるのか、上手く繋がりません。
何をキーにリレーションすると良いのでしょうか。

0088デフォルトの名無しさん

2005/06/23(木) 08:37:50

VarIs○○○じゃダメなのかい

008985

2005/06/23(木) 11:28:28

VarIsでできました。
助かりました。

論理ドライブから物理ドライブを割り出すのはなかなか上手くいかないですが、
これはDelphiではなくてWMIの問題ですね。

0090デフォルトの名無しさん

2005/06/23(木) 17:51:50

文字列処理について質問です。
何百～何千と文字列を検索し、切り抜き、連結するということを繰り返す場合、
Copy関数による部分文字列の抜き出し、
及びstring型+string型の文字列連結では、非常に動作が遅いと知り、
私もそう感じたので、何とか高速化したいと思っています。
ですがその方法が全く分からずに、途方にくれております。
知恵をお貸しください。

0091デフォルトの名無しさん

2005/06/23(木) 18:28:08

>>90
PChar

0092デフォルトの名無しさん

2005/06/23(木) 18:48:52

ポインタで検索、Copy でなくポインタを使ってメモリコピー。
連結は、あらかじめ Size を長めに取っておいた TStringStream の Write を
つかうとよい。

0093デフォルトの名無しさん

2005/06/23(木) 18:51:33

TStringStream より TMemoryStream を使ったほうがよさそう。あらかじめ大きめに SetSize()
しておけば拡張に伴う無駄なコピーは避けられる

0094デフォルトの名無しさん

2005/06/23(木) 18:51:41

リファレンスの「文字列処理ルーチン（ヌルで終わる）」を使った
C言語のような文字列処理をやればいいんだけど
Delphiの範囲内で０からそれを覚えられるのか知らん。
特に遅い部分のサンプルコードでも晒してみたら。

0095デフォルトの名無しさん

2005/06/23(木) 18:54:25

Copy で抜き出して「string型+string型の文字列連結」じゃ、これ以上ないくらい遅いだろ。
コード見なくても分かるでしょ。

0096デフォルトの名無しさん

2005/06/23(木) 19:17:19

コードがあれば高速化したコードを示せるかもしれないって話。

0097デフォルトの名無しさん

2005/06/23(木) 19:39:22

>>96
「string型+string型の文字列連結」の「高速化したコード」例を示して

0098デフォルトの名無しさん

2005/06/23(木) 19:44:05

なんだこいつ・・・

009990

2005/06/23(木) 20:06:08

部分的ではありますが、このようなことをしています。
テクストファイルの各行に含まれる、二つの要素を連結させて
TStringListに溜め込み、まとめて出力する　といった感じです。

procedure TForm1.Button1Click(Sender: TObject);
var StrList : TStringList;
var ResList : TStringList;
var posision: integer;
var i : integer;
var Line : string;
var StrA : string;
var StrB : string;
var Res : string;
begin
if OpenDialog1.Execute then begin
StrList := TStringList.Create;
ResList := TStringList.Create;
StrList.LoadFromFile(OpenDialog1.FileName);
i := 0;
while StrList.Count > i do begin
Line := StrList[i];
posision := Pos('hogehoge', Line);
posision := Pos('piyopiyo', Line);
StrA := Copy(Line, posision, 8);
StrB := Copy(Line, posision, 8);
Res := StrA + ' ' + StrB;
ResList.Add(Res);
Inc(i);
end;
Memo1.Lines.Assign(ResList);
end;
end;

010090

2005/06/23(木) 20:07:15

Tabは有効じゃないんですねorz

0101デフォルトの名無しさん

2005/06/23(木) 20:13:07

Resは常に'piyopiyo piyopiyo'になるような・・・と野暮なこと言ってみる

■ このスレッドは過去ログ倉庫に格納されています