お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"ファイルパスを UNIX 風に変換"

この発言に対し以下のコメントが寄せられています
#00230 凛 さん RE:ファイルパスを UNIX 風に変換

みなさんこんにちは,TDです。 OpenDialog などから得られたファイル名を UNIX 風のパス表記に変換します。 ホームページ作成にはけっこう便利かもしれません。 初心者向きです。 このコードが出来上がった後で,Delphi のヘルプから”DosPathToUnixPath” という関数を発見したんですが,HTTPApp というユニットファイルが 見つからないために使用できませんでした。 そこで今回,他にも使えない人がいるのではと思い,アップしました。 procedure TForm1.Button1Click(Sender: TObject); var Path: String; begin if OpenDialog.Execute then begin Path := OpenDialog.FileName; Delete(Path, 1, 2); //パスから”C:”という部分を削除しています。 //ここはお好みで。 while Pos('\', Path) > 0 do begin i := Pos('\', Path); Delete(Path, i, 1); Insert('/', Path, i); end; Edit1.Text := Path; end; end; > Original document by TD 氏 ID:(CQA13003)



ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum