witam. Posiadam D7, i mam pewien problem. Wrzucam na forme opendialoga i 2 buttony. Nastepnie wpisuje taki kod :
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
plik:textfile;
begin
assignfile(plik,'logi\test.htm');
rewrite(plik);
writeln(plik,'test');
closefile(plik);
end;
No i klikam button2. Wszytko dziala poprawnie - zaposuje sie to co ma sie zapisac do pliku. Klikam jeszcze raz - znow wszystko OK. I wszytko jest OK do momentu az klikne button1 - wywoluje sie opendialog.execute, wybieram jakis plik. No i od tego momentu jak klikne button2 to wywala blad "Project Project1.exe raised exception class EInOutError with message "invalid filename". Process stoped".
Czemu tak sie dzieje ? przeciez procedury button1click i button2click nie maja ze soba nic wspolnego ! Przeciez nie otwieram pliku ktory wybralem w opendialog tylko jakis inny! Pomocy!