Считывание строк из файла в Android-приложении

@lord_commander · Регистрация: 20.05.2014

Author24 — интернет-сервис помощи студентам

Создаю приложение, которое при нажатии на кнопку выводит в Edit"ы строки из txt-файла. При сборке проекта, этот txt-файл не учитывается, и после установки приложения, оно не находит этот файл для считывания информации из него. Я пытался разместить это файл на устройстве, и прописал к нему путь, но после этого выскакивает ошибка "list index out of bounds (0)".
Как можно связать проект с этим файлом, чтобы файл был в проекте, при его установке, и какой тогда прописать путь к этому файлу? Или есть другой способ, реализовать это? Если есть, не могли бы вы его продемонстрировать.

Вот как реализуется считывание строк из файла в моем приложении:

Delphi

procedure THeaderFooterForm.Button7Click(Sender: TObject);
var
 someStringList : TStringList;
 F: TextFile;
 i:integer;
begin
if combobox1.Index=0 then
begin
AssignFile(F, '/mnt/sdcard/Android/data/myfile.txt');
Reset(F);
someStringList := TStringList.Create;
someStringList.LoadFromFile('/mnt/sdcard/Android/data/myfile.txt');
Edit1.Text := someStringList[0];
Edit2.Text := someStringList[1];
someStringList.Free;
end;
if combobox1.Index=1 then
begin
AssignFile(F, '/mnt/sdcard/Android/data/myfile.txt');
Reset(F);
someStringList := TStringList.Create;
someStringList.LoadFromFile('/mnt/sdcard/Android/data/myfile.txt');
Edit1.Text := someStringList[5];
Edit2.Text := someStringList[6];
someStringList.Free;
end;

@Mantikor123 · 22.05.2014, 15:07

пару вопросов для начала.
как файл ты добавляешь в устройство?
лично я через Deployment, и прописываю путь assets\internal
после этого получаю свой путь таким образом

Delphi

1	put_fil:=TPath.GetDocumentsPath + PathDelim + 'config.ini'

ну и собственно чтение самого файла в массив строк.

Delphi

AssignFile(SaveF, put_fil);
if FileExists(put_fil) then
     begin
      Reset(SaveF) ;
      for I := 1 to 8 do
      ReadLn(SaveF, ini[i]);
      CloseFile(SaveF);
     end
 else ShowMessage('Файл налаштувань пошкоджений!');

@lord_commander · 22.05.2014, 17:48 **[ТС]**

Ну, я сначала размещал файл на устройстве и прописывал к нему путь "/mnt/sdcard/Android/data/myfile.txt"
А как именно работать через Deployment? Я пытался с ним поработать, но как-то безуспешно.

А код:

Delphi

AssignFile(SaveF, put_fil);
if FileExists(put_fil) then
     begin
      Reset(SaveF) ;
      for I := 1 to 8 do
      ReadLn(SaveF, ini[i]);
      CloseFile(SaveF);
     end
 else ShowMessage('Файл налаштувань пошкоджений!');

получается считывает все строки в массив, а потом к ним обращаться примерно так:

Delphi

1	Edit1.Text := ini[номер строки];

Я прав?

@Mantikor123 · 26.05.2014, 21:03

да вы правы. я не скинул переменые моя трабла...
ini это просто масив текстовый

а про деплоумент тут посмотритетык

@Mantikor123 22 / 22 / 12 Регистрация: 23.12.2009 Сообщений: 279
	26.05.2014, 21:03	4
	да вы правы. я не скинул переменые моя трабла... ini это просто масив текстовый а про деплоумент тут посмотритетык 0