androidとiOSスマホ内にテキストファイルを作成するには？ (ID:49141)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Firemonkeyで１）テキストファイルを操作し、２）そのテキストをメールに送るコードについて

私は心理学の研究者です。
心理学の研究に使うために、Rad Studio XE 10.2のFiremonkeyを使って、AndroidとiOSのアプリを作っています。
もともとはDelphi6、Lazarus ver 1.0.12を使ってWindows用に作っていたアプリを移植して、さらに機能を付け加えたいと思っているところです。

Windows版では、ある課題をやってもらいその反応時間を取得し、テキストファイル(.txt)でその結果を出力するように作っていました。
今回の質問は、１）Firemonkeyを使ってAndroidとiOSで同じように課題の結果をテキストファイルで出力する方法、２）そのテキストファイルをメールアドレスに送る方法を教えていただきたいのです。

Windows用に作っていたコードを以下に載せます。
１）このコードをどう修正するとAndroidとiOSの端末内にテキストファイルを作成し、実験結果を記録できるようになりますでしょうか？
２）このコードにさらにどう追加すると、その実験結果のテキストファイルを、私のメールアドレスに送ることができるでしょうか？
ネットや書籍を調べているのですが、自力では探しきれませんでした。
ヤフー知恵袋でま質問しましたが、私が理解できる回答ではありませんでした(コードがC++)。
こうしてみなさまのお力をお借りしたいと思っているところです。

以下はwindows版のコードです。
// 終わりボタンを押したあとの操作
procedure TFTraining.EndButtonClick(Sender: TObject);
var x : TextFile;
h: Integer;
str : string;
begin
// 「vsdata.txt」が存在しているか確認する
str := 'vsdata.txt'; // 「str」にファイル名を記録する

If FileExists(str) then
ShowMessage('実験データをテキストファイル「vsdata.txt」に上書きします') // メッセージを表示する
else
begin
ShowMessage('テキストファイル「vsdata.txt」を作成し実験データを書き込みます');
end;

AssignFile(x, 'vsdata.txt'); // 「x」に「vsdata」を割り当てる
Rewrite(x); // データを書き込むファイル「vsdata」を作成する
Append(x); // ファイルを使えるようにする

Writeln(x, '実験結果一覧');
Writeln(x, 'trial', ' ', 'reaction');
for h := 1 To NumberOfTrial do
// 各試行(h)の反応時間(ReactionTimeArrayに格納されている)を出力する
Writeln(x, IntToStr(h), ' ', FloatToStr(ReactionTimeArray[h]));

CloseFile(x); // テキストファイルを閉じる
end;

←解決時は質問者本人がここをチェックしてください。

戻る