Cześć. Mam mały problem, który nie wiem jak rozwiązać a w sieci też nie znalazłem.
W założeniu kod ma pobrać z konsoli parametr, który jest nazwą pliku i utworzyć ten plik.
uses
sysutils;
var
fin,fout: string;
fstr: text;
begin
readln(fin);
assign(fstr, fin);
rewrite(fstr);
writeln(fstr,'przyklad');
close(fstr);
end.
Powyższy kod działa. Niestety w momencie kiedy zrobię tak:
//zmienne itp. j.w
begin
fin := Paramstr(1);
assign(fstr, fin);
rewrite(fstr);
writeln(fstr,'przyklad');
close(fstr);
end.
To program się uruchamia bez błędu lecz plik się nie tworzy. Gdzie może być problem ? Dodam, że jak wyświetlę sobie ten parametr to pokazuje prawidłową wartość. Paramstr przekazuje wynik w postaci string a assign drugi parametr także jeżeli się nie mylę.