Forum: Cross-Platform-Entwicklung
by gee21,
4. Jun 2014
Also ich habe es nun endlich geschaft. Falls noch ein Noob wie ich das Problem hat :-D
So habe ich es gelöst:
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
Forum: Cross-Platform-Entwicklung
by gee21,
4. Jun 2014
Also mein Ziel wäre es, das man zb eine Checkbox markieren könnte und dann werden alle Dateien von zb dem Ordner "Bilder" in einer Listbox oder so angezeigt. Danach soll IdFTP die Dateien hochladen.
Bis jetzt sehe ich aber noch nicht so richtig durch wie ich das auf Android anstellen kann.
Forum: Cross-Platform-Entwicklung
by gee21,
19. Mai 2014
Hallo alle zusammen.
Ich würde gerne in meiner Android App einen Ordner auf dem Handy auswählen.
Der Pfad soll dann in ein Edit und anschliessend möchte ich alle enthaltenen Dateien in einer Listbox anzeigen lassen.
Den Ordner ausgewählt, habe ich bis jetzt immer so gemacht: (Dateien Auflisten lassen habe ich leider noch gar keinen Plan :(
procedure TForm2.SpeedButton1Click(Sender:...