OpenDialog a ListBox

[Minister]

Cze.
Mam problem. Chcę wsadzić do ListBoxa lokalizacje wszystkich plików wybranych poprzez OpenDialog. Ustawiłem MultiSelect na true, więc mogę kilka zaznaczyć. Jak można teraz przenieść te nazwy plików do listboxa? Chcę potem po kolei coś z nimi zrobić.
Z góry dzięki

[MisticFrezer]

To bardzo proste. OpenDialog ma właściwość Files->Strings, gdzie siedza ścieżki. Tak więc

Kod: Zaznacz cały

if(OpenDialog1->Execute() && !OpenDialog1->FileName.IsEmpty())
{
int ileplikow = OpenDialog1->Files->Count;
        for(int i=0;i<ileplikow;i++)
        {
         ListBox1->Items->Add(ExtractFileName(OpenDialog1->Files->Strings[i] ) );
        }
}

[Cyfrowy Baron]

To jest prostsze niż myślisz. Pętla jest zbędna, a warunek też powinien być inaczej skonstruowany, gdyż ten element !OpenDialog1->FileName.IsEmpty() jest zbędny. Dlaczego? Dlatego, że jeżeli nie wybierzesz żadnego pliku w OpenDialog to nie będziesz mógł wybrać przycisku Otwórz, a okno będziesz mógł zamknąć tylko przyciskiem Anuluj, a wybranie przycisku Anuluj nie spełnia warunku OpenDialog->Execute(), więc nic nie będzie dodawane. Powinieneś jeszcze w opcjach OpenDialog ustawić właściwość Options->ofFileMustEists na true. Ta właściwość nakazuje wybranie tylko plików które istnieją, czyli są obecne w podanej lokalizacji. Przydaje się to w sytuacji gdy ktoś zamiast wybrać plik w oknie dialogowym wpisuje do niego ścieżkę dostępu w pole Nazwa pliku, a plik np. nie istnieje w podanej lokalizacji.

Kod: Zaznacz cały

OpenDialog1->FileName = "";
if(OpenDialog1->Execute())
{
   ListBox1->Items->AddStrings(OpenDialog1->Files);
}

OpenDialog->Files zwraca wartość typu TStrings a funkcja Items->AddStrings pobiera również wartość typu TStrings, dlatego za każdym wywołaniem tego kodu do listy ListBox1 będą dodawane pliki, gdybyś chciał za każdym wywołaniem kodu zmieniać zawartość listy ListBox1 wtedy można postąpić tak:

Kod: Zaznacz cały

OpenDialog1->FileName = "";
if(OpenDialog1->Execute())
{
   ListBox1->Items->Clear();
   ListBox1->Items->AddStrings(OpenDialog1->Files);
}

ale prościej będzie tak:

Kod: Zaznacz cały

OpenDialog1->FileName = "";
if(OpenDialog1->Execute())
{
   ListBox1->Items->Assign(OpenDialog1->Files);
}

[Minister]

Dzięki.
Ale ja to i tak zawsze problemy stwarzam. Ładnie lokalizacje sie wgrywały do ListBoxa. Poprawne.
Ale potem chcę je odczytać - i tu jest błąd. Zamiast przykładowo:
D:\2010\Polski.txt
Mam
:\2010\Polski.txt
czyli literke dysku wywala.
A w listboxie wyświetla dobrze.
W taki sposób to wyświetlam:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

for (i = 0; i < ListBox1->Items->Count; i++) {
 ShowMessage(ListBox1->Items->ValueFromIndex[i]);
}

Znalazłem rozwiązanie - zamiast ValueFromIndex[i] dałem Strings[i]

[Cyfrowy Baron]

Funkcja Items->ValueFromIndex[index] też zwróci prawidłową wartość, chociaż tej funkcji używa się w sytuacji gdy lista zawiera nazwy i wartości przypisane do nazw. Użycie tej funkcji w sytuacji gdy lista nie jest zbudowana z nazw i wartości, gdzie separatorem jest znak równości powinno sprawić, że nic nie zostanie zwrócone, więc dziwne jest dla mnie, że funkcja cokolwiek zwraca, gdyż brak tutaj separatora w postaci domyślnego znaku równości ( = ).
► patrz serwis: Cyfrowy Baron dział: porady TStringList Tworzenie listy zawierającej nazwy i wartości przypisane do nazw.

Funkcja Items->Strings[index] zwróci element listy niezależnie od tego jaką konstrukcję ma ta lista.