掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルか画像ファイルかの判定 (ID：3173)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初心者ですがビューアーを作ろうと思っています。 TForm1.FormCreateのところでコマンドラインから取得した ファイルをテキストファイルか画像ファイルか判断したいのですが どのように記述すればいいのでしょうか？ implementation {$R *.dfm} procedure TForm1.ShowText; var Memo1: TMemo; begin Memo1:= TMemo.Create(Self); Memo1.Parent := Self; Memo1.Align := alClient; Memo1.Lines.LoadFromFile(ParamStr(1)); end; procedure TForm1.ShowImage; var Image1: TImage; begin Image1:= TImage.Create(Self); Image1.Parent := Self; Image1.Align := alClient; Image1.Picture.LoadFromFile(ParamStr(1)); end; procedure TForm1.FormCreate(Sender: TObject); begin if ParamCount > 0 then 「テキストならShowTextへ」 「画像ならShowImageへ」 end; end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.