Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

как определить связь   Найти похожие ветки 

← →
Андрусь ©   (2003-02-27 19:26) [0]

Привет Всем! Как определить,данная файловая переменная связана с файлом на диске или нет?

---

← →
jack128 ©   (2003-02-27 20:30) [1]

А зачем? Ты же сам связываешь файл. Можешь при AssignFile выставлятьть какой нить флаг...
Еще есть такое продположение(сам не проверял)
var f : file;
begin
...
if TFileRec(f).Name <> nil then // cвязана с файлом

---

← →
Андрусь ©   (2003-02-28 12:44) [2]

Я тож про это в книге читал

---

← →
Игорь Шевченко ©   (2003-02-28 13:39) [3]

Мож, поможет...
unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
F : Text;
procedure UpdateButtons();
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Reset(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CloseFile(F);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
with TTextRec(F) do
if Mode = fmClosed then
Edit1.Text := "Closed"
else if Mode = fmInput then
Edit1.Text := "Opened for read"
else if Mode = fmOutput then
Edit1.Text := "Opened for write"
else
Edit1.Text := "Unknown";
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
AssignFile(F, "C:\AUTOEXEC.BAT");
UpdateButtons();
end;

procedure TForm1.UpdateButtons;
var FileAssigned : Boolean;
begin
FileAssigned := StrLen(TTextRec(F).Name) <> 0;
Button1.Enabled := FileAssigned;
Button2.Enabled := FileAssigned;
Button3.Enabled := FileAssigned;
Button4.Enabled := NOT FileAssigned;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
UpdateButtons();
end;

end.


---

Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c