(11-04-2017, Saat: 16:24)Paranoyaq Adlı Kullanıcıdan Alıntı: ...
2 programın içinde kaydedilen dosyayı sildikden sonra silinecek dosya bulunamadı diyor
3 önceden dosya içinde bulunan mp3u silmiyor
...
sorun ne acaba
...
Merhaba,
2 ve 3. sorunun nedeni;
DosyaAdi Global Değişkenine herhangi bir Path atamamışsınız. Bu durumda bilmediği dosya adını silememesi doğaldır.
Global Değişken kullanmaya gerek kalmadan, yalnızca Lokal bir değişken ile işinizi halledebilirsiniz. Böylece sistem bellek kullanımını azaltmış olursunuz.
Metodun önceki hali;
procedure TTabbedwithNavigationForm.SpeedButton1Click(Sender: TObject);
var
i: Integer;
StrDosya: String;
begin
for i := Pred(ListView1.Items.Count) downto 0 do
begin
if ListView1.Items[i].Checked then
ListView1.Items.Delete(i);
StrDosya := TPath.Combine(TPath.GetSharedPicturesPath, DosyaAdi);
if TFile.Exists(StrDosya) then
TFile.Delete(StrDosya)
else
ShowMessage('Silinecek dosya bulunamadı');
end;
end;
Metodun yeni hali;
procedure TTabbedwithNavigationForm.SpeedButton1Click(Sender: TObject);
var
i: Integer;
StrDosya: String;
begin
for i := Pred(ListView1.Items.Count) downto 0 do
begin
StrDosya := GetArsHedef(ListView1.Items[i].Text);
if ListView1.Items[i].Checked then
ListView1.Items.Delete(i);
// StrDosya := TPath.Combine(TPath.GetSharedPicturesPath, DosyaAdi);
if TFile.Exists(StrDosya) then
TFile.Delete(StrDosya)
else
ShowMessage('Silinecek dosya bulunamadı');
end;
end;
(11-04-2017, Saat: 16:24)Paranoyaq Adlı Kullanıcıdan Alıntı: ...
4 bazen java.io.IOexcetion : SetDataSource failed hatası veriyor
...
sorun ne acaba
...
Mp3 dosyalarını listelediğiniz
ListView1'in
OnItemClick olayında seçili olan ses dosyasını yeniden çalmanızdan kaynaklanıyor. Silinen bir sesi çalmaması da gayet doğal.
Metodun Önceki hali;
procedure TTabbedwithNavigationForm.ListView1ItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
txtbilgi.Text := 'Parça: ' + AItem.Text;
MediaPlayer1.FileName := AItem.Detail;
MediaPlayer1.Play;
FloatAnimation1.StopValue := -txtbilgi.Width - Image1.Width;
FloatAnimation1.Start;
end;
Düzeltilmiş hali;
procedure TTabbedwithNavigationForm.ListView1ItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
txtbilgi.Text := 'Parça: ' + AItem.Text;
// MediaPlayer1.FileName := AItem.Detail;
// MediaPlayer1.Play;
FloatAnimation1.StopValue := -txtbilgi.Width - Image1.Width;
FloatAnimation1.Start;
end;
Ana formunuzun Pas dosyası:
TabbedFormwithNavigation