Prazno mesto na kraju(pocetku) naziva. Kako ukloniti?Code:
...
function izvodjac(Fajl:string):string;
var
w:string;
begin
w:='';
while Pos('-', Fajl) > 0 do
begin
w:=w+Copy(Fajl,1,Pos('-',Fajl)-1);
Delete(Fajl,1,Pos('-',Fajl));
end;
result:=w;
end;
...
...
grid.cells[0,grid.RowCount-1]:=izvodjac(s); //Izvodjac
grid.cells[1,grid.RowCount-1]:=l; //Naziv pesme
grid.cells[1,grid.RowCount-1]:=root; // Directory.Directory:=root
grid.RowCount:=grid.RowCount+1; //Novi red
...
...
function izvodjac(Fajl:string):string;
var
w:string;
begin
w:='';
while Pos('-', Fajl) > 0 do
begin
w:=w+Copy(Fajl,1,Pos('-',Fajl)-1);
Delete(Fajl,1,Pos('-',Fajl));
end;
result:=w;
end;
...
...
grid.cells[0,grid.RowCount-1]:=izvodjac(s); //Izvodjac
grid.cells[1,grid.RowCount-1]:=l; //Naziv pesme
grid.cells[1,grid.RowCount-1]:=root; // Directory.Directory:=root
grid.RowCount:=grid.RowCount+1; //Novi red
...
Pravim neki program da iscita svu muziku (mp3) sa HDD-a. E sad problem je sledeci kako da razdvojim Izvodjaca, Naziv pesme i sta raditi ako ima vise "-" u nazivu pesme? Da li je jos neko radio ovako nesto?
Ja sa ovom gore procedurom izdvajama izvodjaca, ali imam problema sa praznim mestom. Koda radi savrseno ako nema razmaka npr. "Benny Benassi-Change Style.Mp3" onda nemam prazno polje, a ako je "Benny Benassi - Change Style.Mp3", onda dobijam sledece "Benny Benassi ", " Change Style" u 1 i 2 kolini. Koristim Stringgrid za prikaz. Kako ovo da resim?
Unapred hvala!
GYGY
Re: Prazno mesto na kraju(pocetku) naziva. Kako ukloniti?