Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
TStringList *tslList = new TStringList;
TStringList *tstTemp = new TStringList;
tslList->LoadFromFile( "Datei1.txt" );
tslTemp->LoadFromFile( "Datei2.txt" );
tslList->AddStrings( tslTemp );
tslTemp->LoadFromFile( "Datei3.txt" );
tslList->AddStrings( tslTemp );
usw...
SelectDirectory("Wählen Sie bitte ein Verzeichnis aus.", "",verzeichnis);
Edit1->Text = verzeichnis;
ListBox1->Clear();
if (FindFirst(Edit1->Text + "\\*.jpg", faAnyFile, sr) == 0)
{
do
{
ListBox1->AddItem(sr.Name,NULL);
} while (FindNext(sr) == 0);
FindClose(sr);
}
if (FindFirst("*.txt", faAnyFile, sr) == 0)
{
do
{
ListBox1->AddItem(sr.Name,NULL);
} while (FindNext(sr) == 0);
FindClose(sr);
}