09. april 2006 - 12:47Der er
4 kommentarer og 1 løsning
opdatering af items i TListView
hej experter
ja nu er jeg på spil igen ;-)... jeg har en dialog hvor brugeren kan vælge hvilket format et stykke musik skal lande i... når brugeren klikker på ok gemmes en værdi der fortæller hvilket format det skal lande i... men der hvor jeg har et problem er at i MediaBox.Items[i].Subitems[0] har filnavn og sti hvor den konverterede fil skal lande - dvs at hvis brugeren har valg .ogg skal filendelesen opdateres på alle items i subitems[0].
har lavet denne algo der skal konvertere filerne:
if TagIn > MainForm.MediaBox.Items.Count-1 then begin TagIn := 0; TagOut := 0; Exit; end; LblInput.Caption := MainForm.MediaBox.Items[Tagin].Caption; LblOutput.Caption := MainForm.MediaBox.Items[TagOut].SubItems[0]; Inc(Tagin); Inc(TagOut); end;
har så lavet denne modificeret version af algoen, men det vil bare ikke ændre filendelsen :S
if FixExt.Tag > MainForm.MediaBox.Items.Count-1 then begin FixExt.Enabled := False; FixExt.Tag := 0; Exit; end; case ComBoxDestFormat.ItemIndex of 0: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.ogg'); end; 1: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.mp3'); end; 2: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.fla'); end; 3: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.flac'); end; 4: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.ape'); end; 5: begin ChangeFileExt(MainForm.MediaBox.Items[FixExt.Tag].SubItems[0], '.wav'); end; end; FixExt.Tag := FixExt.Tag + 1;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
