Ben 2 kod ile ilgili sorum bu Diyelim ki 2-form var ben Form1-de bu proceduru tamamladim
ListBox-a eklenen dosyaların önüne rakam eklemek için bun da hiç bir sorun yok (ben Bildiyim)
Kod: Tümünü seç
procedure TForm1.NumaraEkle;
var i,j:integer; L:TListBox; s:string;
begin
topint:=listB.TopIndex;
try
L:=Tlistbox.CreateParented(form2.Handle);
for i:=0 to listb.Count-1 do
begin
L.Items.Add(inttostr(i+1)+'. '+extractfilename(lista.Items[i]));
end;
L.TopIndex:=Topint;
ListB.Items:=L.Items;
ListB.TopIndex:=L.TopIndex;
L.Clear;
L.Free;
except
abort;
end;
end;ve kendi programımda kulanmak istiyorum ve sizden yardım istiyorum Bu dosya arama kodunun sorunu
Form1-de olan > procedure TForm1.NumaraEkle; procedure izin vermiyor yani liste eklenen dosyaların
önüne rakam ekliyor ve rakam ekleyince de bu kod çalışmıyor çalışıyorda dosyanın önüne rakam eklendiyi için
kulanıcı dosya aramak isteyince rakam yazmiyor direk dosya ismini yaziyor ee
Bu kodlar Form2-de
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;
cevir:=tut;
end;
procedure TForm2.isimChange(Sender: TObject);
var
a:integer;
begin
Dosya.Clear;
for a:=0 to form2.ListB.Count-1 do
begin
if pos(isim.Text,cevir(form2.ListB.Items.Strings[a]))<>0 then
begin
dosya.Items.Add(form2.ListB.Items.Strings[a]);
end;
end;
end;ben bu iki kodu nasıl bir birine oydurucam benim sitediyim Form1-de ki ListB-ye Eklenen rakamları
nasıl bir anlık yok saysın ve sadece dosya isimlerinde arasın
Sorum uzun oldu qalıba neyse
) sana zahmet olucak ancak kodu düzenleyip bana