De momento invente algo asi:
Edit2: Nombre del Archivo
Boton1: Cargar
ListBox1: Lista Final
Código Delphi
[-]procedure TTabbedForm.Button6Click(Sender: TObject);
var
TextFile : TStringList;
FileName : string;
begin
if Edit2.Text = '' then
begin
ShowMessage('Ingrese le nombre del archivo.');
end
else
begin
try
textFile := TStringList.Create;
try
{$IFDEF ANDROID}
FileName := '/sdcard/'+Edit2.Text;
{$ENDIF ANDROID}
if FileExists(FileName) then begin
textFile.LoadFromFile(FileName); ListBox1.Items.Assign(textFile); end
else begin showMessage('Archivo no Existe.');
end;
finally
textFile.Free;
end;
except
on E : Exception do ShowMessage('ClassError: '+e.ClassName+#13#13+'Message: '+e.Message);
end;
end;
end;
y el usuario debe ingresar manualmente el nombre del archivo el cual debe estar en la memoria interna del dispositivo.