Компилятор. Ошибка. Что не так?

← →
Vlad Oshin © (2004-07-30 09:21) [0]

z.f2:string;
zi: set of char;
______________

if not (z.f2[i] in zi){тут} then bol:=bol and false;

{тут}
( ожидалось но ) найдено?!?

← →
Думкин © (2004-07-30 09:26) [1]

> bol:=bol and false;

А это зачем такое?

← →
Sandman25 © (2004-07-30 09:31) [2]

Прекрасно компилируется

procedure TForm1.bt1Click(Sender: TObject);
var
s: string;
z: set of char;
begin
s := "123";
z := ["1","5"];
if not (s[1] in z) then
end;

← →
Vlad Oshin © (2004-07-30 09:39) [3]

bol:=true;
for i:=1 to length(z.f2) do
if not (z.f2[i] in zi) then bol:=bol and false;
не компилируется ...

> Думкин © (30.07.04 09:26) [1]
> > bol:=bol and false;
>
> А это зачем такое?

если хоть один символ строки не в множестве, надо сообщить

← →
Anatoly Podgoretsky © (2004-07-30 09:47) [4]

Интересное объявление string, пытался компилятор запутать

← →
Vlad Oshin © (2004-07-30 09:49) [5]

бейте меня ногами
в раздел типов написал zi.
Делфи уже перезапускал, думал глюк :)

← →
Vlad Oshin © (2004-07-30 09:51) [6]

> Anatoly Podgoretsky © (30.07.04 09:47) [4]

z:zap;

zap=record
f1:string[6];
f2:string[8];

← →
Думкин © (2004-07-30 09:52) [7]

> [3] Vlad Oshin © (30.07.04 09:39)
> > Думкин © (30.07.04 09:26) [1]
> > > bol:=bol and false;
> >
> > А это зачем такое?
>
> если хоть один символ строки не в множестве, надо сообщить

А так bol := false не работает?
Ну или уж:
bol:=bol and (z.f2[i] in zi);
Или уж... с while для скорости.

← →
Vlad Oshin © (2004-07-30 09:57) [8]

> Думкин © (30.07.04 09:52) [7]

copy|paste
мне идею проверить

← →
Anatoly Podgoretsky © (2004-07-30 10:04) [9]

Vlad Oshin © (30.07.04 09:51) [6]
Так и надо приводить правильное объявление, а не z.f2:string;

← →
Sandman25 © (2004-07-30 10:12) [10]

procedure TForm1.bt1Click(Sender: TObject);
var
s: record
s2: string[8];
end;
z: set of char;
begin
s.s2 := "123";
z := ["1","5"];
if not (s.s2[1] in z) then
end;

← →
Nikolay (2004-07-31 07:12) [11]

bol and false
Я что-то не понял? Это ж всегда = false!

>then bol:=bol and false;

Наверное, так надо:

Bol := not Bol;

Или

Bol := Bol or False; ???

А то, ведь Nikolay прав.

> [11] Nikolay (31.07.04 07:12)
> bol and false
> Я что-то не понял? Это ж всегда = false!

Ну и что. Этого и добивались. Только достаточно было просто написать bol := false; да и break-нуть можно. А то какой смысл просматривать все остальное?

Ведь

> если хоть один символ строки не в множестве, надо сообщить

А вот смысл этого

> z.f2:string;

я так до сих пор и не понял. Точнее, я не пронял как это компилер вообще допустил.

Что, модуль имеет имя z? Или как?
В 6-ке это не катит по-любому...

Компилятор. Ошибка. Что не так? Найти похожие ветки