Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка: Symbol 'faReadOnly' is specific to a platform

lucifer © (2005-05-31 18:11:00)
Взял пример из хёлпа Делфи :

The following example uses an edit control, a button, a string grid, and seven check boxes. The check boxes correspond to the seven possible file attributes. When the button is clicked, the path specified in the edit control is searched for files matching the checked file attributes. The names and sizes of the matching files are inserted into the string grid.

procedure TForm1.Button1Click(Sender: TObject);

var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then

FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then

FileAttrs := FileAttrs + faAnyFile;

with StringGrid1 do
begin
RowCount := 0;

if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then

begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;

и возникает следующая ошибка из темы!
В принципе прога работает, но файлы не ищет! Что скажите??

Anatoly Podgoretsky (2005-05-31 21:30:00) [1]
Класть не надо, надо отключить

raidan (2005-05-31 21:10:00) [2]
>begin...end © (31.05.05 20:19) [4]
А я вот люблю экстрим и всегда кладу болт на такие предупреждения.
Или, может быть, я не собираюсь ничего делать под Kylix :)

Igorek (2005-05-31 20:52:00) [3]
$IFDEF KYLIX - вроде есть такое

begin...end (2005-05-31 20:19:00) [4]
> raidan © (31.05.05 20:05) [3]

Это ужасно :))

raidan (2005-05-31 20:05:00) [5]
>lucifer © (31.05.05 18:11)
Это значит, что в Kylix ваша программа вряд-ли скомпилится в рабочий продукт.

Marser (2005-05-31 18:45:00) [6]
Это всего лишь предупреждение о привязанности к ОС этой константы.

Cobalt (2005-05-31 18:27:00) [7]
2 lucifer ©
Учите английский - "Warning" переводится не как "ошибка".

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »