[Delphi] Jak przepisać dane z FileListBox do ComboBox

0

Witam,

Proszę o rozwiązanie problemu zawartego w temacie. Czyli jak przepisać wybranne pliki (ale bez rozszerzenia, tylko same nazwy plików) do ComboBox.

Z góry dziekuję za rozwiązanie problemu.

Pozdrawiam,
Piotr Murawski

0

Jak zwykle nie mam przy sobie Delphiego, ale może zrobić pętle po wszystkich elementach filelistboxa (filelistbox.items.count, czy coś takiego), w pierwszej kolejności obcinając końcówkę uzyskanego stringa od kropki do końca (delete), i dodawać do Comboboxa (combobox.add)

0

For i:=0 to FileListBox1.Items.Count-1 do
ListBox1.Items.Add(ChangeFileExt(FileListBox1.Items[i],''));

0

Tak tez mozna:

var
i:integer;
item:string;
begin
for i:=0 to FileListBox1.Items.Count-1 do
begin
item:=FileListBox1.Items.Strings[i];
Delete(item,Length(item)-3,Length(item));
ComboBox1.Items.Add(item);
end;

pozdrówka

1 użytkowników online, w tym zalogowanych: 0, gości: 1