Delphi Drawers

function fnWriteFile(strFilePath:string; strText:string):boolean;
var
  stlText:TStringList;
begin
  //フォルダチェック
  if not fnCreateFolder(fnGetFolderPathByFilePath(strFilePath)) then begin
    result := False;
    Exit;
  end;
  //ファイル出力
  result := True;
  stlText := TStringList.Create;
  try
    stlText.Clear;
    stlText.Text := strText;
    stlText.SaveToFile(strFilePath);
  except
    result := False;
  end;
  stlText.Free;
end;
function fnCreateFolder(strFolderPath:string):boolean;
begin
  if fnFolderExists(strFolderPath) then begin
    fnCreateFolder := True;
  end else begin
    fnCreateFolder := ForceDirectories(strFolderPath);
  end;
end;