Witam, mam problem z programem mianowicie piszę program który po wypełnieniu pól, i wczytaniu ścieżki do obrazka zapisze te informacje razem ze ścieżką do pliku txt, problem polega na tym ze wywala błąd Invalid FileName, natomiast błedu nie ma gdy nie uzyje fuknkcji OpenPictureDialog który włąsnie zwraca mi scieżkę do zmiennej src,
oto kod
procedure TForm2.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.FileName:='';
if
OpenPictureDialog1.Execute
then
Edit4.Text := OpenPictureDialog1.FileName
else
showmessage('Wcisnieto Anuluj');
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form2.Close();
end;
procedure TForm2.Button2Click(Sender: TObject);
var ptytul : string;
otytul : string;
gatunek1 : string;
gatunek2 : string;
gatunek3 : string;
gatunek : string;
dlfilmu : string;
opis : string;
src : string;
TF : TextFile;
plik : string;
begin
ptytul := Edit1.Text;
otytul := Edit2.Text;
gatunek1 := ComboBox1.Text;
gatunek2 := ComboBox2.Text;
gatunek3 := ComboBox3.Text;
dlfilmu := Edit3.Text;
opis := Memo1.Text;
src := Edit4.Text;
// zalozenia gatunkow
if gatunek1<>'' then
gatunek:=gatunek1;
if gatunek2<>'' then
gatunek:=gatunek2;
if gatunek3<>'' then
gatunek:=gatunek3;
if (gatunek1<>'') and (gatunek2<>'') then
gatunek:=gatunek1+', '+gatunek2;
if (gatunek2<>'') and (gatunek3<>'') then
gatunek:=gatunek2+', '+gatunek3;
if (gatunek1<>'') and (gatunek3<>'') then
gatunek:=gatunek1+', '+gatunek3;
if (gatunek1<>'') and (gatunek2<>'') and (gatunek3<>'') then
gatunek:=gatunek1+', '+gatunek2+', '+gatunek3;
if (gatunek1='') and (gatunek2='') and (gatunek3='') then
gatunek:='Nie wybrano zadego gatunku';
if (ptytul='') or (otytul='') or (gatunek='') or (dlfilmu='') or (opis='') then
showmessage('ERROR! Film nie zostal dodany, poniewaz nie wypelniono wszystkich informacji')
else
begin
plik:='zbior\1122.txt';
if Not FileExists(plik) Then // Sprawdzenie, czy plik istnieje
Begin
AssignFile(TF,plik);
ReWrite(TF);
Writeln(TF,ptytul);
Writeln(TF,otytul);
Writeln(TF,gatunek);
Writeln(TF,dlfilmu);
Writeln(TF,opis);
Writeln(TF,src);
End Else
Begin
AssignFile(TF,plik);
Reset(TF); // jeżeli tak - otwórz do odczytu
Writeln(TF,ptytul);
Writeln(TF,otytul);
Writeln(TF,gatunek);
Writeln(TF,dlfilmu);
Writeln(TF,opis);
Writeln(TF,src);
End;
CloseFile(TF);
end;
end;
Gdzie robię błąd ?