1.Kako da mi Edit1 pise i cita izmedju "&danas=" i "&" ...?
U kodu: s:= copy(s, pos('=', s)+1, Length(s)- Length('prikaz')); izmenim umesto prikaz danas, ali mi on cita sve pa i iza danas, sigurno treba da ga ogranicim dokle da cita, ali ja basak ne znam kako
E ovako, prvo treba da shvatis kako rade funkcije "pos" i "copy":
a. POS vraca poziciju nekog podstringa u datom stringu, na primer:
pos('phi', 'delphi') vraca 4,
pos('de', 'delphi') vraca 1,
pos('pgi', 'delphi') vraca 0 posto podstring 'pgi' ne postoji u stringu 'delphi';
b. COPY funkcija uzima tri parametra, respektivno: string iz koga hoces da kopiras neki deo, pozicija od koje pocinjes da kopiras (prvo znak u stringu ima poziciju 1), i broj znakova koje kopiras. U mom kodu stoji:
Code:
s:= copy(s, pos('=', s)+1, Length(s)- Length('prikaz'));
to znaci da iz stringa s, od pozicije koja se nalazi posle znaka '=' (zato stoji ovo +1 posle poziva POS - ne treba da procitas '='), kopiras broj znakova koji je jednak duzini celog stringa (to je Length(s)) minus duzina stringa 'prikaz' (to je Length('prikaz'); tu si mogao da napises i: Length(s)- Length('prikaz='), i to bi bio tacan broj znakova koje treba da kopiras, ali ako je taj broj veci od duzine stringa, kopirace se sve do kraja stringa, pa u ovom slucaju nije bitno sta si stavio od ta dva (mogao si i samo Length(s) da stavis).
E nadam se da si to razumeo, ako nisi procitaj help, lepse je objasnjeno
.
2. Kako da mi Edit1 pise i cita izmedju "&danas=" i "&" ...?
Ako si ukapirao ovo gore onda ti je lako da shvatis da se deo stringa izmedju "&danas=" i "&" cita ovako:
Code:
s:= '&danas=Danas&vreme=21:00&emisija=Manemanija&autor=Mane';
Edit1.Text:= copy(s, pos('=', s)+1, pos('&vreme', s) - Length('&danas=') - 1);
3. I ako imam ComboBox i u njemu recimo 3 items: Danas Juce Sutra .... moze li kad kliknem na Danas on recimo zapise Promenada a kad ucetavam to Promenada ucitava kao "Danas"
Naravno da moze:
Code:
//zapisivanje
procedure TForm1.ComboBox1Change(Sender: TObject);
var t: TextFile;
begin
assignFile(t, 'moja_datoteka.txt');
rewrite(t);
if (ComboBox1.Text = 'Danas') then WriteLn(t, 'Promenada')
else if (ComboBox1.Text = 'Sutra') then WriteLn(t, 'Limunada')
else if (ComboBox1.Text = 'Juce') then WriteLn(t, 'juce nisam pio :)');
CloseFile(t);
end;
Code:
//ucitavanje
procedure TForm1.FormCreate(Sender: TObject);
var t: TextFile; s: string;
begin
assignFile(t, 'moja_datoteka.txt');
reset(t);
ReadLn(t, s);
if (s = 'Promenada') then ComboBox1.Text:= 'Danas'
else if (s = 'Limunada') then ComboBox1.Text:= 'Sutra'
else if (s = 'juce nisam pio :)') then ComboBox1.Text:= 'Juce';
CloseFile(t);
end;
Ako nesto nije jasno u tom kodu, slobodno pitaj, napravicu ti aplikaciju da vidis kako to radi.
3. Postoji li mogucnost da kad stisnem neko dugme pusti se externi waw ili mp3 fajl i da nicemu sem toga dugme ni ne sluzi
Naravno da postoji. Evo kako klikom na neko dugme mozes pokrenuti bilo koji fajl:
Code:
uses ShellApi; //moras da dodas 'ShellApi' u 'uses' listu koja se nalazi na vrhu koda programa, inace program nece 'videti' funkciju ShellExecute;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open','C:\Program Files (x86)\Guitar Pro 5\GP5.exe', nil, nil, SW_SHOWNORMAL);
end;
naravno, umesto ove adrese za pokretanje GP5.exe ti stavis adresu (tj. putanju) do datoteke koju hoces da pokrenes.
Eto to ti je to, ne mogu vise da pisem, vec je svanulo
.
edit: ovo gore za pustanje mp3 fajla ce pokrenuti default audio plejer za pustanje. Ako hoces da se zvuk cuje direktno iz tvog programa (znaci bez pokretanja audio playera), koristi MediaPlayer komponentu koja dodje uz delphi.
Molim za pomoc oko pravljenja programcica
23.03.2009. u 09:56 · pre 214 meseci
#1
Re: Molim za pomoc oko pravljenja programcica