Bu Sorunu forma sordum ancak cevap veren olmadı ben de bir yerden buldum
bulmasına-da bir az daha yardım gerekiyor ben winamp-da ki gibi aram özeliyi yapıyorum
yardım rica edicem cevirme function bu
Kod: Tümünü seç
function cevir(str:string):string;
var
a:char;
tut:string;
f:integer;
begin
tut:=' ';
for f:=1 to length(str) do
begin
a:=upcase(str[f]);
tut:=tut+a;
end;Kod: Tümünü seç
procedure TForm3.songnameChange(Sender: TObject);
var
a:integer;
begin
names.Clear;
for a:=0 to form2.ListB.Count-1 do
begin
if pos(songname.Text,cevir(form2.ListB.Items.Strings[a]))<>0 then
begin
names.Items.Add(form2.ListB.Items.Strings[a]);
end;
end;
end;bu yüzdende dosya arama işlemi gerçekleşmiyor yanı önce dosyanın önüne numara ekledim ya
ondan benim istediyim ' . ' karakterinen sonra arama yapsın bunu içinde kod buldum ancak benim koda
uygulayamadım
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
str:string;
begin
for i:=0 to ListBox1.Items.Count-1 do
begin
k:=Pos('.',ListBox1.Items[i]);
if k>0 then
begin
str:=copy(ListBox1.Items[i],k+1,100);
ListBox2.Items.Add(str);
end;
end;
end;yani böyle
1.AAAAAA >> AAAAAA
2.BBBBBBB >> BBBBBBB
3.SSSSSSS >> SSSSSSS
oluyor bu kodu yukardaki arama koduna eklemek istiyorum ' . ' karakterinden sonraki dosyada isimlerin-de
arasın diye
