[Delphi] Pliki

0

Jak załadować plik do zmiennej TextFile z filename open dialog? i save?
podczas dzialania prograu wystepuje mi blad!!!

0

Pochwalony!
Sorki, za bardzo nie pokumowywuje o co Ci chodzi ale może o to :P:

var
TF: TextFile;
begin
if OpenDialog1.Execute then
if OpenDialog1.FileName '' then
if FileExists(OpenDialog1.FileName) then
begin
AssignFile(TF, OpenDialog1.FileName);
Reset(TF);
{...coś tam...}
CloseFile(TF);
end;
end;

Mam nadzieję że pomogłem :P

0

Pochwalony!
Sorki, za bardzo nie pokumowywuje o co Ci chodzi ale może o to :P:

var
TF: TextFile;
begin
if OpenDialog1.Execute then
if OpenDialog1.FileName '' then
if FileExists(OpenDialog1.FileName) then
begin
AssignFile(TF, OpenDialog1.FileName);
Reset(TF);
{...coś tam...}
CloseFile(TF);
end;
end;

Mam nadzieję że pomogłem :P

a po tyle tego?
if OpenDialog1.FileName '' then
if FileExists(OpenDialog1.FileName) then

hm? jezeli wybierasz plik z OpenDialog to chyba zwracasz juz od razu wartosc ze plik istnieje, chyba ze zniknie w mgnieniu oka, czyli w tym samym czasie co klikasz w przycisk otworz...............i jeszcze raz if fileexists ghehehehehhehe

1 użytkowników online, w tym zalogowanych: 0, gości: 1