16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"コマンドラインパラメータの処理"
この発言に対し以下のコメントが寄せられています
#01065 K.OHNO さん Re:コマンドラインパラメータの処理
こんにちは〜 H-Tritonです。
テキストエディタなどのアプリケーションでは、コマンドラインパラメータ
からファイル名を受け取って開くことがありますが、ファイルパスにスペー
スが含まれる場合(例:C:\MY DOMUMENTS\....など)、パラメータがスペース
がセパレータとなって分離されるため ParamStr(1)では正しく処理できませ
ん。
以下は、このようなパスを持つファイル名をパラメータで受け取り起動時に
開くテキストエディタのサンプルコードです。
新規フォームに TMemoを貼り付けて下さい。
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
OpenFile: string;
begin
OpenFile:= '';
if ParamCount < 1 then Exit;
for i:= 1 to ParamCount do OpenFile:= OpenFile + ParamStr(i) + ' ';
OpenFile:= TrimRight(OpenFile);
if FileExists(OpenFile) then Memo1.Lines.LoadFromFile(OpenFile);
end;
○ でるふぁい依存症連盟加入受付中 ○
http://member.nifty.ne.jp/h-triton/
Original document by H-Triton 氏 ID:(QZV11422)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|