#99 Article 453 Posted at 1992/09/17 17:15:33 by Mai (MAP2260) [Q.PASCSL]
Subject: Re:*17 まだ登録書も出してないパスカルの質問。 /452 ...... /433 /432
えーと、前にも書きましたように、デフォルト（＄Ｍ指定なし
では、ＴＰで書かれたプログラムが、ＤＯＳ上のフリーメモリを全て
（というのはちょっと正しくない表現ですが）ヒープメモリに割り当てるわけです。
ですから、＄Ｍ指定の３番目をいじってやればいいわけです。
（デフォルトでは、３２７６７，６５５３６，６５５３６０かな？）
スタックは、ＴＰのプログラムが使用するので、大き目に見ておいた方が
いいみたいです。
（ＴＶｉｓｉｏｎとか使わなければ、１６Ｋでも充分かも。
ファイルネームを渡したい、というのは、ワイルドカード＊．ＭＬ１（ＭＬ１って
全然知らないんですがこれでいいんですよね？）と、ＦｉｎｄＦｉｒｓｔ、
ＦｉｎｄＮｅｘｔを使ってあてはまるファイル名を配列にでもほうりこんどけば
いいのではないかと思います。
フルパスファイル名＝＞ドライブ＋ディレクトリ＋ファイル名＋拡張子みたいな
分解をやるのは、Ｓｔｒ文びしばしで分解しないと駄目だと思いましたが。
ＴＰ ｆｏｒ Ｗｉｎだと、ＦｉｌｅＳｐｌｉｔで一発なんですが。
ただ、実際問題として、フルパス名が分かれば十分だと思いますが・・・
あ、それともパス名は分かれてくるかな？
参考までに、私が作ったＰＲＣＧＳ画像メニュープログラムのファイル名検索部を
（一部ですが）次ぎに書いてみます。
（ＲＣＳファイルから切り出したから、多少狂ってるかも・・・）
begin
Attr:=AnyFile and not Directory;
p:='*.PRC';
FindFirst(p,Attr,S);
if DosError<>0 then begin
writeln('Error.');
Halt(1);
end;
i:=1;FileName[i]:=s.Name;
ReadID(i);
while (DosError = 0) and (i<MaxFile) do
begin
FindNext(S);
if DosError=0 then begin
inc(i);
FileName[i]:=s.Name;
ReadID(i);
end;
end;
FileNumber:=Pred(i);
end;
なんか、これで見る限りちゃんとディレクトリ／パス／ファイル名／拡張子を
分けて判断するみたいですね。
Ｐ．Ｓ．マニュアルというか、ライブラリリファレンスには、FindFirst,FindNextとも
出てます(^_^;)
Ｍａｉ