Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Внизкак определить связь Найти похожие ветки
← →
Андрусь (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c