この発言に対し以下のコメントが寄せられています

#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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。