JWW専用掲示板 [One Topic All View / Re[1]: 誰か、「Delphi 6 personal」知りませんか？ / Page: 0]

JWW専用掲示板
(現在過去ログ98 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■20992 / inTopicNo.1)

　誰か、「Delphi 6 personal」知りませんか？

□投稿者/ MT_ 5回-(2004/08/22(Sun) 01:48:25)
https://www.dance.ne.jp/~shoji/

記事内容:[|]　

どなたか、「Delphi」で外部変形作ってる方いらっしゃいませんか？

「Delphi 6 personal」が無料配布されてると聞き、早速チャレンジしてみまし
た。

開発環境はＶＢと殆んど同じで、ＧＵＩも提供してくれて、ランタイムも不要で無
料・・・と良いとこばかりなのですが、Pascal系の言語なので今一、記述に苦労し
ています。

今日、Ｎｅｔで参考ベージをいくつか当たってみますと、関数や宣言、メソッド、
文法は微妙に異なるものの、リファレンス見ながらであれば、演算処理関係の記述
はなんとかできてきました。

ところが、肝心のJwc_temp.txtの読み込みにつまづき、ストップしてしまいまし
た。

ＶＢでは、テキストを読み込んで、各行ををSpilt(スピリット)して、配列変数に
組み込むことで、パラメーターをＧｅｔしていましたが、Delphiではその方法がど
うしてもつかめずにいます。

正確に言うと、「LoadFromFile」メソッドでファイルは読込できても、行数の判っ
ている以外の場合、各行全てにアクセスする方法がわかりません。また、Spilt関
数も見当たらず、文字の切り出しにも頭を悩ませる１日でした。

どなたか、外部変形用のファイル入出力のTipsお教え頂けないでしょうか？お願い
します。

引用返信/返信 [メール受信/OFF] 削除キー/

■20993 / inTopicNo.2)

　Re[1]: 誰か、「Delphi 6 personal」知りませんか？

▲▼■

□投稿者/ 金公 6回-(2004/08/22(Sun) 02:07:10)

記事内容:[|]　

ボクはDelphiを使えないんだけど、
ここあたり参考にならないかな～。
http://www.geocities.jp/takamori700/sundaydelphi/KAN.html

違ってたらゴメン。m(_ _)m

引用返信/返信 [メール受信/OFF] 削除キー/

■20994 / inTopicNo.3)

　Re[1]: 誰か、「Delphi 6 personal」知りませんか？

▲▼■

□投稿者/ 牛渡 2回-(2004/08/22(Sun) 07:47:59)
https://www61.tok2.com/home2/gravelroad/

記事内容:[|]　

こんにちは、Delphi6 Personal はコンパイルした成果品の商用利用も禁止ですので
お気をつけ下さい。

とりあえず、TStringList オブジェクトを利用してこんな感じではいかがでしょう
か？

begin
　line := TStringList.Create;
　field := TStringList.Create;
　try
　　line.LoadFromFile(InputFile);
　　for i := 0 to line.Count - 1 do begin
　　　field.DelimitedText := line[ i ];
　　　　:
　　end;
　except
　　on EFOpenError do { };
　end;
end;

line に、各行のデータが、field に各フィールドのデータが切り出されます。

引用返信/返信 [メール受信/OFF] 削除キー/

■20995 / inTopicNo.4)

　Re[2]: 誰か、「Delphi 6 personal」知りませんか？

▲▼■

□投稿者/ 金公 7回-(2004/08/22(Sun) 13:06:42)

記事内容:[|]　

過去にどこかで拾ってきたソースですが。

var
    filename,str : string;
    f : system.text;
    i : integer;
begin
    i := 0;
    filename := 'ファイル名';
    assignfile(F,filename);	    //バッファの割り当て
    reset(F);		    //読み込む命令
    repeat		    //until までを繰り返し
        readln(F,str);	    //memo1を一行ずつ読み込む
        memo1.lines[i] := str; 
        i := i +1;
    until Eof(f) = true;	    //ファイルが終わるまで
    closefile(F);		    //ファイルを閉じる
end;

引用返信/返信 [メール受信/OFF] 削除キー/

■20996 / inTopicNo.5)

　Re[1]: 誰か、「Delphi 6 personal」知りませんか？

▲▼■

□投稿者/ 古川＠ 568回-(2004/08/22(Sun) 13:23:19)
https://jwx.hp.infoseek.co.jp/

記事内容:[|]　

■No20992に返信(MT_さんの記事)
> どなたか、「Delphi」で外部変形作ってる方いらっしゃいませんか？
> 外部変形用のファイル入出力のTipsお教え頂けないでしょうか？

私が公開している外部変形は全てDelphiで作っています。

まず、１行当たりのパラメータは最大17個？位だったので、
行数を確認してから、下記recordを動的に行数分定義、
１行読み込んで、AnsiPos(' ',文字列); で、切れ目を確認、
１つのパラメータをCopyで読み込み、読み込み済み部分を次々 Delete
して、行末までデータを読みとるという手法をとっています。

とりあえず、Stringで全て読み込み、外部変形用への数値変換などは、
その後からの処理です。

TZahyoFile = record // 座標ファイルデータ
count : Integer ; // 行当たりのデータ数
param : array [0..17] of String ; // 行の個別データ(最大17個と想定)
end;

文字種類等、先頭部分の共通項目は別のrecordに読み込んでいます。

引用返信/返信 [メール受信/ON] 削除キー/

■21002 / inTopicNo.6)

　Re[1]: 誰か、「Delphi 6 personal」知りませんか？

▲▼■

□投稿者/ ビギナー1 5回-(2004/08/23(Mon) 00:58:52)

記事内容:[|]　

みなさん、何か矛盾を感じません？

> 元々、「イラレの使い方」を尋ねられても、掲示板（ココ、確か１０００文字以
内
> でしたよね？）ではお答えできないスレなもので

だったら「Delphi」だけいいわけ？

私はJw-cadに関することだからどちらもOKだと思っていますが、
他の人の質問はNOと云っておきながら自分はOKなんて・・・。

引用返信/返信 [メール受信/OFF] 削除キー/

■21003 / inTopicNo.7)

　早速に、有難うございました。

▲▼■

□投稿者/ MT_ 6回-(2004/08/23(Mon) 11:52:45)
https://www.dance.ne.jp/~shoji/

記事内容:[|]　

皆様、有難うございました。昨日、見てませんで、返信遅れました。

・牛渡さま、有難うございます。多分、それで行けそうです。構文自体は普通そう
なので・・・。「line.Count」とか「on EFOpenError do { };」といった関数や構
文が「ミソ」ですね？一生懸命、ヘルブで探したのですが、見つけられませんでし
たので助かりました。

・金公さま、有難うございます。これは、全く見つけられなかった構文。ファイル
を開くのに、「LoadFromFile」にしか気が付きませんでしたが、他にもあるのです
ね？「Uintl」を使った読み込みはVBでは使ってましたので、ご紹介のソースを研
究してみます。

・古川さま、有難うございます。Delphiをお使いだったのですね？心強
い・・・・。そういえば、作ったexeのアイコンがどこかで見た事のあるアイコン
だった・・・。そういうことでしたか・・。

でも、古川さまのご指導は、今の私には少し難しいようです。どれが、変数で、ど
れがコマンドなのか判別付かない私には・・・。

結局、各行のスペースで区切られたパラメーターを取得するには、そういった構文
が効率が良いということなのですね？VBやAWKにある「split」関数のようなものは
無いのでしょうか？

また、「１行当たりのパラメータは最大17個？位」・・・頭にいれて起きます。エ
ラーの原因が掴めないって、結構、この手のミスがありますものね。

ついでと言ってはなんですが、「if文」や「case文」・・・などなど、VBではネス
トが７階層でしたが、Delphiでも、やはり、ネストの制限があるのでしょうか？

ＪＷＷとは、直接関係ないことで恐縮ですが、JWW外変となると、Delphi系の掲示
板ではチョット勝手が違うものですから、思い切って書きこんでみました。

多くの方が、ご存知で、心強くなりました。また、たまに質問させて頂きますの
で、よろしくお願いします。

あくまで、「Delphi6 Personal はコンパイルした成果品の商用利用禁止」です
が、商品になるような代物は私には到底出来ませんし、これからの外変言語に使っ
ていこうと思います。

解決済み!

引用返信/返信 [メール受信/OFF] 削除キー/

■21010 / inTopicNo.8)

　Re[3]: 早速に、有難うございました。

▲▼■

□投稿者/ Delphi使い 1回-(2004/08/23(Mon) 16:20:02)

記事内容:[|]　

■No21003に返信(MT_さんの記事)
> あくまで、「Delphi6 Personal はコンパイルした成果品の商用利用禁止」です
> が、商品になるような代物は私には到底出来ませんし、これからの外変言語に使
っ
> ていこうと思います。
>
水を差す分けじゃないですが、Delphi6 Per の使用許諾では開発そのもの、及び開
発されたプログラム等は、利用形態、配布形態の如何に拘らず業務での利用が禁止
されています。
Delphiの学習目的なら何ら気にする必要は無いですが、外部変形の場合使用許諾に
抵触する恐れがあるので注意が必要です。

(削除キー：1234)

引用返信/返信 [メール受信/OFF] 削除キー/

■21011 / inTopicNo.9)

　Re[4]: 早速に、有難うございました。

▲▼■

□投稿者/ \\ 1回-(2004/08/23(Mon) 16:51:55)

記事内容:[|]　

読みましたか？
http://www.borland.co.jp/delphi/del6/report/sugii_1.html

引用返信/返信 [メール受信/OFF] 削除キー/

■21012 / inTopicNo.10)

　一応ＯＫだと受け取れますが・・・

▲▼■

□投稿者/ MT_ 7回-(2004/08/23(Mon) 17:28:29)
https://www.dance.ne.jp/~shoji/

記事内容:[|]　

Bolandのページに杉井様のような、レポートが掲載されているところを考えます
と、成果品その物の商用配布無ければ問題なさそうですが・・・。

外変作って、自己業務使用や、無償配布ならＯＫでしゃ？

引用返信/返信 [メール受信/OFF] 削除キー/

■21013 / inTopicNo.11)

　Re[5]: 早速に、有難うございました。

▲▼■

□投稿者/ Delphi使い 2回-(2004/08/23(Mon) 17:37:29)

記事内容:[|]　

■No21011に返信(\\さんの記事)
> 読みましたか？
> http://www.borland.co.jp/delphi/del6/report/sugii_1.html

もちろん知ってますよ、それよりあなたはDelphi6に同梱されているLicense.txtを
ご覧になりましたか？もし見ていなかったら見てください、そして是非こちらもご
覧になってくださいね。
http://www.borland.co.jp/products/newlicense.html

ボーランドが定義する商用目的に抵触しないのなら問題無いのですが、JW_CADのよ
うな商用利用が前提のソフト専用のツールの場合、商用と非商用の境があやふやに
なるので注意して欲しいと思ってのことです。

引用返信/返信 [メール受信/OFF] 削除キー/

■21015 / inTopicNo.12)

　Re[6]: 早速に、有難うございました。

▲▼■

□投稿者/ \\ 2回-(2004/08/23(Mon) 18:41:03)

記事内容:[|]　

了解いたしました。

解決済み!

引用返信/返信 [メール受信/OFF] 削除キー/

■21016 / inTopicNo.13)

　Re[6]: 一応ＯＫだと受け取れますが・・・

▲▼■

□投稿者/ kenji-mt 4回-(2004/08/23(Mon) 18:58:00)