Incompatible types

[MetR]

atr:integer;

ошибка вот на йэтой строке:

atr:=faReadOnly+faDirectory;

в чем прикол?

[mss]

Не на этой.
Удали dcu и пересобери проект.

[MetR]

не помогает, кстати эта фигня появилась после того как я бд создал

[Сtrl]

Возможно, эти константы были переопределены. Попробуйте явно указывать модуль, в котором они объявлены.

[hunteee]

Добрый день! Следующая проблема несовместимости типов.

procedure TForm1.Button1Click(Sender: TObject);


var P,Q,a,b,x,k,y,l,i:integer;
S,D,M: string;

W:array [1..36] of string;

begin
W[1]:='À';W[2]:='Á';W[3]:=#13;W[4]:='Ì';W[5]:='Ã';W[6]:='Ò';
W[7]:='Å';W[8]:='Ð';W[9]:='Ç';W[10]:='È';W[11]:='É';W[12]:='Ê';
W[13]:='Ë';W[14]:='Â';W[15]:='Í';W[16]:='Î';W[17]:='Ï';W[18]:='Æ';
W[19]:='Ñ';W[20]:='Ä';W[21]:='Ó';W[22]:='Ô';W[23]:='Õ';W[24]:='Ö';
W[25]:='×';W[26]:='Ø';W[27]:='-';W[28]:='Ù';W[29]:='Ú';W[30]:='Û';
W[31]:='Ü';W[32]:=',';W[33]:='Ý';W[34]:='Þ';W[34]:='ß';W[35]:=' ';
W[36]:='!';
S := Edit1.Text;
l := length(S);
y := Q + P;
a := Q * P;

for i := 0 to l do
begin
M := pos(S[i],W);
b := M - y;
D := D + inttostr(b);

end;

P := strtoint(Edit2.Text);
Q := strtoint(Edit3.Text);
Edit4.Text := inttostr(a);
Edit5.Text := inttostr(b);

end;
end.

На линии M := pos(S[i],W); выдает ошибку несовместимости типов, т.к. M,S,W это string, а i из for это integer. Что делать?