DeleteFile(Fil) kan ikke altid compileres
Jeg har to næste ens routiner, men jeg kan kun compilere den ene.procedure TForm73.DeleteClick(Sender: TObject);
var
Fil: String;
begin
if Form11.Hente then
begin
Fil := Global.HentLydeMappe(Slags.ItemIndex)
+ List.Items[List.ItemIndex] + '.mp3';
if FileExists(Fil) then
begin
DeleteFile(Fil);
OpdaterClick(Sender);
end;
end;
end;
procedure TForm8.DeleteMp3Click(Sender: TObject);
var
Fil : String;
begin // Slet den mp3 fil som hører til denne titel.
if Form11.Hente then
begin
TitelData := Global.HentTitel(Index);
Fil := Global.HentLokal('Musik') + IntToStr(Global.HentPlade(TitelData.Plade).Nr);
Fil := Fil + '\' + TitelData.Side + IntToStr(TitelData.Skaering) + '.mp3';
if FileExists(Fil) then
begin
DeleteFile(Fil);
TitelData.PaaHdd := Form9.ErDenPaaHdd(TitelData.Plade, TitelData.Side, TitelData.Skaering);
Global.GemTitel(TitelData);
Vis;
end;
end;
end;
Den der hedder DeleteClick... kan fint compileres.
Men den der hedder DeleteMp3Click... kan ikke.
Jeg får følgende fejl: [Error] Figur8.pas(208): Incompatible types: 'String' and 'PChar'
På linie 208 står der: DeleteFile(Fil);
Hvorfor kan man compilere den ene, men ikke den anden?
Hvad har jeg overset?
Hvis jeg udfaser linie 208 med // så compileres det hele, men så kan rutinen jo aldrig slette filen.
PS. Jeg bruger D6.
