Int64 to Integer

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako koristiš TListBox za listu, TMediaPlayer za puštanje muzičkih fajlova onda u TListBox fajl možeš učitati:
...    // declarations     i: integer;     a: string; ... begin   OpenDialog1.Filter:='Audio files (*.mp3;*.wav)|*.mp3;*.wav|All files (*.*)|*.*';   if OpenDialog1.Execute then   begin     for i:=0 to OpenDialog1.Files.Count-1 do      begin       a:=OpenDialog1.Files[i];       ListBox1.Items.Append(ExtractFileName(a));      end;     if ListBox1.ItemIndex = -1 then      ListBox1.ItemIndex:= 0  end;
Puštanje muzike:
...   if ListBox1.ItemIndex <> -1 then    begin      i:= ListBox1.ItemIndex;      MediaPlayer.FileName :=  ListBox1.Items.Strings[i];      MediaPlayer.Open;      MediaPlayer.Play;    end;
Ima tu još stvari koje se mogu dodati, lepše napisati, etc. Probaj, za početak.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Loshmi Hvala mnogo..................sad radi sve...!!!!!!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Licanin1990 ::Moras da probas da bi ti bilo jasno.

srdjos ::jedna od težih stvari kod programiranja je
puno, puno, puno, puno čitanja .....

Zar stvarno mislite da je potrebno da mu "popujete"? Pa sigurno je da puno cita i puno proba. Zaboga, pa LittleHacker ima "samo trinaest godinica"!!! Za par godina ce biti GreatHacker i zasto mu ne pomoci koliko god je moguce sada kada mu je to potrebno?


loshmi_sr , NuLLCoDe, Srki_82 i strog verovatno dele moje misljenje, jer stvarno pomazu.

Jos malo offtopica, pa necu vise: LittleHacker je medju najhrabrijima koji se jos usudjuju da postave pitanje na ovom forumu od kada je beli uveo nova pravila koja ce moci da ispostuju samo iskusni programeri, dok ce pocetnici, kojima help nije dovoljno jasan, ostati uskraceni za objasnjenja koja bi im pomogla da brze napreduju.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ehehehe..........Hvala na lepim recima...........
Kako da sejvujem sada listu(da mogu posle ponovo da je otvorim)???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Eh, Eco, pa nisam ja toliko gadan... ali ipak, ovo nije forum za pitanja tipa "kako da ukucam tekst u EditBox".
Jbg... ima knjiga... mora da postoji bar jedan preduslov: da se procita bilo kakva pocetnicka knjiga za jezik u kome zelis da radis.

Kako bi bilo da ja sad odem u #java i zamolim ih da me nauce da napisem "hello world". Ne ide ljudi.

Sve je ok kad se pocne program pa zapne, pa onda "pomagajte drugovi (skoro) sve sam probao i ne ide i hocu da se ubijem"..
To je OK.
E j*** ga, ako se sazna da se nije procitao ni HELP, onda ne znam sta vise da radim.
ono.. RTFM (read the f****g manual)

[smod edit by leggy]Izbacen nepristojan jezik[/edit]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

LittleHacker ::Ehehehe..........Hvala na lepim recima...........
Kako da sejvujem sada listu(da mogu posle ponovo da je otvorim)???

Ako koristis ListBox pogledaj sledece dve stvari:

ListBox1.Items.SaveToFile('imefajla.txt'); //txt mozes da promenis u bilo sta //i ListBox1.Items.LoadFromFile('imefajla.txt'); //txt opet mozes da promenis u bilo sta ;)

E sad... Ako hoces da cuvaas tu tvoju listu malo drugacije snimljenu da ne bi mogao svako da je otvori u Notepadu i da je tako eventualno izmeni/pokvari onda ces morati da napravis neki svoj sistem za ucitavanje i snimanje kroz neku petlju ( repeat {blok komandi} until not EOF(Fajl) ) gde ces da citas red po red fajla i da ga pripremas za svoju listu i onda da ga ubacujes u listu... Za pocetak mislim da ti je i ovo gore dovoljno .

Dopuna: 20 Apr 2007 9:33

BTW ne zaboravi da okacis ovde svoj mocni player kad bude gotov, cisto da vidimo sta si odradio ...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

slazem se, pomozimo coveku

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

OK ljudi, ako nastavite da se odaljavate od teme necu imati drugog izbora nego da pobrise off-topic i da lupim lock...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

LittleHacker ::Ehehehe..........Hvala na lepim recima...........
Kako da sejvujem sada listu(da mogu posle ponovo da je otvorim)???
Imaš više načina. Za početak, uzećemo da si učitao podatke u list, te za TForm a za event OnClose možeš napisati:
 ListBox1.Items.SaveToFile(extractfilepath(application.ExeName)+'PlayList.lst');
za TForm a event OnCreate, inverzno od prethodnog primera:
if fileExists(extractfilepath(application.ExeName)+'PlayList.lst') then     ListBox1.Items.LoadFromFile(extractfilepath(application.ExeName)+'PlayList.lst');
Ovim dobijaš da poslednja učitana lista ti se memoriše, te po pokretanju programa je učitavaš. Često je to dobra stvar.
Dalje, snimanje u PlayList -u:
 SaveDialog.Filter:='PlayList files (*.lst)|*.lst';  if SaveDialog.Execute then    ListBox1.Items.SaveToFile(SaveDialog.FileName+'.lst');
Inverzno od toga je učitavanje:
 OpenDialog.Filter:='Play list files (*.lst)|*.lst';  if OpenDialog.Execute then   if OpenDialog.FileName<>'' then    ListBox1.Items.LoadFromFile(OpenDialog.FileName);
Naravno, ovo sve što sam postovao se jako lepo može modifikovati i upakovati. Probaj, pitaj, etc.

Na kraju, slažem se da ne treba postovati "gluposti", nekome jesu, a nekome nisu, stoga ću postaviti par linkova
odakle treba početi:

1) Torry
2) Delphi3000
3) Delphi About
4) SwissDelphiCenter

BTW, ne bi bilo loše postaviti jednu TOP temu gde će se postovati korisni linkovi, pa možda da se napravi poneki i tutorijal, zatim predlozi za literaturu, etc. Mislim da bi time forum dobio na težini i kvalitetu.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala loshmi...........Strog nije mi jasno zasto da se neudaljavamo od teme???Zar nije lakse da sve pitam u jednoj temi nego da pravim 10 tema???

Srdjos ja sam krenuo da citam Delphi 7 za programere(valjda se tako zove) i sad sam na 100. strani........A knjiga ima 800 strana!!!I citam kad god imam vremena zato sto mi je to zanimljivo............
Ovakve knjige nemozes da citas brzo nego moras sve to da zapisujes sa strane da mozes da se potsetis i moras da budes dobro koncetrisan......

Licanin pita kako da pretvori vreme u string........to sam naucio na 15. strani knijge..........(nisam hteo nikoga da uvredim)......